43 lines
1.5 KiB
R
Executable file
43 lines
1.5 KiB
R
Executable file
#!/usr/bin/Rscript
|
|
getwd()
|
|
setwd('~/git/covid_analysis/')
|
|
getwd()
|
|
############################################################
|
|
# TASK: Read data to serve as input for downstream analyses
|
|
############################################################
|
|
# load libraries, packages and local imports
|
|
|
|
source("Header_TT.R")
|
|
#==========================================================
|
|
datadir = "~/git/covid_data/"
|
|
outdir = "~/git/covid_data/output/"
|
|
outdir_plots = "~/git/covid_data/output/plots/"
|
|
#outdir_plots_send = "~/git/covid_data/output/plots/to_send"
|
|
outdir_stats = "~/git/covid_data/output/stats/"
|
|
|
|
#==========================================================
|
|
# input data files
|
|
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")
|
|
|
|
#%%========================================================
|
|
# read files
|
|
my_data = read.csv(infile_covid, stringsAsFactors = F)
|
|
|
|
wf_data = read.csv(infile_icu_wf, stringsAsFactors = F)
|
|
dim(wf_data)
|
|
|
|
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)
|
|
#%%========================================================
|