-
Notifications
You must be signed in to change notification settings - Fork 0
/
Objective_1.R
34 lines (20 loc) · 1.21 KB
/
Objective_1.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
# Get csv files from CSSEGISandData/COVID-19 database
covid_confirmations <- read.csv("https://raw.githubusercontent.com/DivaMC/COVID-19/master/csse_covid_19_data/csse_covid_19_time_series/time_series_covid19_confirmed_global.csv", stringsAsFactors=FALSE)
covid_deaths <- read.csv("https://raw.githubusercontent.com/DivaMC/COVID-19/master/csse_covid_19_data/csse_covid_19_time_series/time_series_covid19_deaths_global.csv", stringsAsFactors=FALSE)
covid_recoveries <- read.csv("https://raw.githubusercontent.com/DivaMC/COVID-19/master/csse_covid_19_data/csse_covid_19_time_series/time_series_covid19_recovered_global.csv", stringsAsFactors=FALSE)
# Find greatest number of deaths on first day
for(i in covid_deaths$X1.22.20) {
if(i > 0) {
print(i)
}
}
max(covid_deaths$X1.22.20)
first_city_deaths <- covid_deaths$Province.State[which.max(covid_deaths$X1.22.20)]
# Find greatest number of confirmed cases on first day
max(covid_confirmations$X1.22.20)
first_city_confirmation <- covid_confirmations$Province.State[which.max(covid_confirmations$X1.22.20)]
# Find and print city of origin
if (first_city_deaths == first_city_confirmation) {
covid_city_origin <- first_city_confirmation
}
print(covid_city_origin)