added loess data in read_data.R and plotting scripts for loess

This commit is contained in:
Tanushree Tunstall 2020-10-23 14:27:48 +01:00
parent 8a2f9cb5f0
commit afd649d504
5 changed files with 716 additions and 8 deletions

View file

@ -17,17 +17,27 @@ outdir_stats = "~/git/covid_data/output/stats/"
#==========================================================
# input data files
infile_covid = paste0(datadir,"/covid19_v3.csv")
infile_covid = paste0(datadir, "/covid19_v3.csv")
infile_icu_wf = paste0(datadir, "/icu_covid_wf_v3.csv")
infile_icu_lf = paste0(datadir, "/icu_covid_lf_v3.csv")
infile_icu_wf_loess = paste0(datadir, "/icu_covid_wf_v3_loess.csv")
infile_icu_lf_loess = paste0(datadir, "/icu_covid_lf_v3_loess.csv")
infile_icu_wf = paste0(datadir,"/icu_covid_wf_v3.csv")
infile_icu_lf = paste0(datadir,"/icu_covid_lf_v3.csv")
#%%========================================================
# read files
my_data = read.csv(infile_covid, stringsAsFactors = F)
wf_data = read.csv(infile_icu_wf , stringsAsFactors = F)
wf_data = read.csv(infile_icu_wf, stringsAsFactors = F)
dim(wf_data)
lf_data = read.csv(infile_icu_lf , stringsAsFactors = F)
lf_data = read.csv(infile_icu_lf, stringsAsFactors = F)
dim(lf_data)
wf_data_loess = read.csv(infile_icu_wf_loess, stringsAsFactors = F)
dim(wf_data_loess)
lf_data_loess = read.csv(infile_icu_lf_loess, stringsAsFactors = F)
dim(lf_data_loess)
#%%========================================================