---
title: "Covid-19"
author: "Jeff Kinne"
date: "March 12, 2020"
output: html_document
---
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```
# Covid-19 Analysis
This data came from https://github.com/CSSEGISandData/COVID-19
**This is bold**
```{r}
setwd("~/Downloads/")
confirmed <- read.csv("time_series_19-covid-Confirmed.csv")
# pick a country
region <- 2 # challenge - have the code get the index based on a country string
data <- confirmed[region, 5:ncol(confirmed)]
# only for days at least 10
indexes <- which(data >= 10)
first_index <- indexes[1]
data_10 <- data[first_index:length(data)]
# plot
plot(1:length(data_10), log(data_10))
```
```{r}
# Challenge: US - determine rows that are US, colSums to add them up to get one row of US. And also using $ and ==
# Challenge: make a prediction
# - look at the log plot to see which days in a row have the same growth
# - use those days and log(data) with lm function - linear model
# - use predice function with the result of the linear model to predict
# Challenge:
data_10_new <- data_10[-1] - data_10[-length(data_10)]
plot(1:length(data_10_new), data_10_new)
```