R/testpackage.R

In hamsamilton/cgms.analysis: Functions for CGMS analysis

# setwd("/Users/samuelhamilton/cgms_analysis")
# setwd("/Users/samuelhamilton/cgms.analysis")
#
# # Data preprocessing #####
#
# #Load in census
# census <- rio::import("cleaned data/visitinfo.tsv")
# #fix datatypes
# cgms <- rio::import("cleaned data/cgms.csv")
#
# cgmsdf <- cgms.analysis::tocgmsdf(cgms,census)
# cgms.df.2124.V2PV8P <- cgmsdf %>%
#   filter(projno == 2124) %>%
#   filter(visit %in% c("V2_P","V8_P")) %>%
#   cgms.analysis::addnulldist()
#
# cgms.analysis::plotruns(cgms.df.2124.V2PV8P,"/Users/samuelhamilton/cgms_analysis","name")
#
# cgms.analysis::CalcEnSlide(df = cgms.df.2124.V2PV8P,varlist = c("Group"))
# cgms.analysis::CalcEnSlideDist(df = cgms.df.2124.V2PV8P,varlist = c("Group"))