31 lines
1.1 KiB
R
Executable file
31 lines
1.1 KiB
R
Executable file
#!/usr/bin/Rscript
|
|
getwd()
|
|
setwd('~/git/covid_analysis/')
|
|
getwd()
|
|
############################################################
|
|
# TASK: basic plots
|
|
|
|
# useful links:
|
|
# http://www.sthda.com/english/wiki/ggplot2-dot-plot-quick-start-guide-r-software-and-data-visualization
|
|
############################################################
|
|
# 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_icu_wf = paste0(datadir,"/icu_covid_wf_v3.csv")
|
|
infile_icu_lf = paste0(datadir,"/icu_covid_lf_v3.csv")
|
|
#%%========================================================
|
|
# read file
|
|
wf_data = read.csv(infile_icu_wf , stringsAsFactors = F)
|
|
dim(wf_data)
|
|
|
|
lf_data = read.csv(infile_icu_lf , stringsAsFactors = F)
|
|
dim(lf_data)
|
|
#%%========================================================
|