# NOT RUN {
df_x<-data_sim(n=500,true_hr=0.8,haz_c=1/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")
df_y<-data_sim2(data_list=data_intrim,covariates=c("trt"),percentage=0.2)
# }
Run the code above in your browser using DataLab