# NOT RUN {
## Load the example data
data(acodata)
## Augmented data in the active arm
rfit1 <- aco1arm(data=acodata,
svtime="vacc1_evinf",
event="f_evinf",
treatment="f_treat",
BaselineMarker="fcgr2a.3",
subcohort="subcoh",
esttype=1,
augment=1,
extra=c("f_agele30","f_hsv_2","f_ad5gt18","f_crcm","any_drug",
"num_male_part_cat","uias","uras"))
rfit1
## Augmented data in the placebo arm
rfit2 <- aco1arm(data=acodata,
svtime="vacc1_evinf",
event="f_evinf",
treatment="f_treat",
BaselineMarker="fcgr2a.3",
subcohort="subcoh",
esttype=1,
augment=0,
extra=c("f_agele30","f_hsv_2","f_ad5gt18","f_crcm",
"any_drug","num_male_part_cat","uias","uras"))
rfit2
# }
Run the code above in your browser using DataLab