######[1] CREAR DATA FRAME
install.package("readr")
install.package("dplyr")
install.package("tidyr")
library (readr)
library(dplyr)
library(tidyr)
urlfile_I="https://raw.githubusercontent.com/C...ries/time_series_covid19_confirmed_global.csv"
urlfile_R="https://raw.githubusercontent.com/C...ries/time_series_covid19_recovered_global.csv"
urlfile_D="https://raw.githubusercontent.com/C..._series/time_series_covid19_deaths_global.csv"
mydata_I<-read_csv(url(urlfile_I))
mydata_R<-read_csv(url(urlfile_R))
mydata_D<-read_csv(url(urlfile_D))
mydata_I <- mydata_I[,(-1)]
mydata_R <- mydata_R[,(-1)]
mydata_D <- mydata_D[,(-1)]
Ib <- aggregate(.~`Country/Region` ,
FUN = mean, data = mydata_I[,(-2:-3)])
Rb <- aggregate(.~`Country/Region` ,
FUN = mean, data = mydata_R[,(-2:-3)])
Db <- aggregate(.~`Country/Region` ,
FUN = mean, data = mydata_D[,(-2:-3)])
View(Ib)
View(Rb)
View(Db)