# NOT RUN {
## Load the example data
data(acodata)
## Case-cohort + case-only estimators
rfit1 <- aco2arm(data=acodata,
svtime="vacc1_evinf",
event="f_evinf",
treatment="f_treat",
BaselineMarker="fcgr2a.3",
subcohort="subcoh",
esttype=1,
weight=NULL,
extra=c("f_agele30","f_hsv_2","f_ad5gt18","f_crcm","any_drug",
"num_male_part_cat","uias","uras"))
rfit1
# }
Run the code above in your browser using DataLab