inst/program/t_dm.R

In kismet303/lopo3000: LoPo 3000 Experimental package using RShiny for interactive LoPo

 
ADSL1 <- read_sas(paste0(main_path,"Studies/",study,"/data/ADAM/adsl.sas7bdat"))


fff <- filters(ADSL1,ADSL1,FilterL)
ADSL <- fff[[1]]


## @knitr answer
cat(fff[[3]])
cat("      ")
 
options(warn=-1)

a<-t_summary(ADSL[, c("AGE", "SEX", "RACE")], col_by = as.factor(ADSL$ARMCD))
 
options(warn=0)

print(a)
 
 
 date()