added summary stats and read data file scripts

This commit is contained in:
Tanushree Tunstall 2020-10-23 10:55:09 +01:00
commit 7c343f8bde
3 changed files with 326 additions and 0 deletions

32
read_data.R Normal file
View file

@ -0,0 +1,32 @@
#!/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.csv")
infile_icu_lf = paste0(datadir,"icu_covid_lf.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)
#%%========================================================