32 lines
1.1 KiB
R
Executable file
32 lines
1.1 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_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")
|
|
#%%========================================================
|
|
# 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)
|
|
#%%========================================================
|