# NOT RUN {
df_x<-data_sim(n=500,0.8,haz_c=0.5/365)
data_intrim<-uc_data_transform(data=df_x,
var_list=c("id_long","trt_long"),
var_list_new=c("id","trt"),
time="time_long",
prob="prob_long")
fit<-Coxwt(data_list=data_intrim,covariates=c("trt"),init=c(1),BS=FALSE)
Coxwt.summ(fit)
##an example if we would like to check the BS variance
# }
# NOT RUN {
fit2<-Coxwt(data_list=data_intrim,covariates=c("trt"),init=c(1),BS=TRUE, nBS = 100)
Coxwt.summ(fit2)
# }
Run the code above in your browser using DataLab