title: "Rain in Australia"
output:
flexdashboard::flex_dashboard:
orientation: columns
vertical_layout: fill
runtime: shiny
---

```{r setup, include=FALSE}
library(flexdashboard)
library(ggplot2)
library(rjson)
library(lubridate)
library(dplyr)
dat <- read.csv("weatherAUS.csv")
dat$Location <- as.character(dat$Location)
df.selected <- dat %>% select(Location, RainToday, MinTemp, MaxTemp, Rainfall,
                  Evaporation, Sunshine, WindGustSpeed,
                  WindSpeed9am, WindDir3pm, Humidity9am, Humidity3pm,
                  Pressure9am, Pressure3pm, Cloud9am, Cloud3pm, Temp9am,
                  Temp3pm, RISK_MM)

d_year <- dat
d_year <- d_year %>% mutate(Date = as.Date(as.character(Date), format = "%Y-%m-%d"))
d_year <- d_year %>% mutate(Year = year(Date))
d_year$Year <- as.Date(as.character(d_year$Year), format = "%Y")

d_names <- c("Average.MinTemp", "Average.MaxTemp", "Average.Rainfall",
         "Average.Evaporation", "Average.Sunshine",
         "Average.WindGustSpeed", "Average.WindSpeed9am",
         "Average.WindSpeed3pm", "Average.Humidity9am",
         "Average.Humidity3pm", "Average.Pressure9am

1. Suppose that you had a R.V. that was generated Y = Sin(X) + Z +...