---
title: "My First R Markdown"
author: "Rian DeFaccio , for BH Analytics LLC"
date: "`r Sys.Date()`"
format: 
  html:
    embed-resources: true
theme: "../common/css/sketchy.scss"
---

```{r echo=F}
library(readr)
library(ggplot2)
```

## An Imaginary World

---------------

In **Dataropolis**, where data flows like a digital river, analysts were solving 2^99^ mysteries every day. They delved into the ~~details~~  intricacies of information while the *hum of servers and the glow of screens* filled the air.

## Data About The City

Let's get a summary of the Dataropolis data set.

```{r echo=F, message=F}
dataropolis <- read_csv("../data/dataropolis.csv")
summary(dataropolis)
```

There are `r nrow(dataropolis)` rows in the data.

```{r fig.width=6, fig.height=2}
ggplot(dataropolis, aes(x=Year,y=gdp)) +
  geom_point() +
  ggtitle('gdp by years') 
```


### Common Misconception

Do not confuse **Dataropolis** with [Metropolis (1972 Film)](https://en.wikipedia.org/wiki/Metropolis_(1927_film))!

The priorities were as follows:

1. Build a dam to harness the power of data
2. Add a fish ladder to maintain biodiversity
3. Write code to fix everything `solution = problem + innovation`

### What Else?

People were doing math!

$$\int_{0}^{\infty}\frac{1}{4}x^2 e^{-2x} \,dx$$

And finally, the schedule for the day:

| Time       | Activity                                          |
|:------------|:---------------------------------------------------|
| 9:00 AM    | Review and clean raw data sets                    |
| 11:30 AM   | Conduct exploratory data analysis (EDA)           |
| 2:00 PM    | Collaborate with team members for insights        |
| 6:30 PM    | Implement machine learning models for predictions |

Generated with the help of ChatGPT.