# NOT RUN {
df_x<-data_sim(n=1000,true_hr=0.8,haz_c=0.5/365)
df_x$f.trt<-as.factor(df_x$trt_long)
data_intrim<-uc_data_transform(data=df_x,
var_list=c("id_long","f.trt"),
var_list_new=c("id","trt"),
time="time_long",
prob="prob_long")
# }
Run the code above in your browser using DataLab