added summary stats and read data file scripts
This commit is contained in:
commit
7c343f8bde
3 changed files with 326 additions and 0 deletions
32
read_data.R
Normal file
32
read_data.R
Normal 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)
|
||||
#%%========================================================
|
Loading…
Add table
Add a link
Reference in a new issue