#--- sample data ---#
time <- c(0.7,1.6,3.1,4.5,7.6,11,13.5,18.6,22.7,26.5,0.4,2.2,2.9,3.8,5.2,8.6,9.8,10.1,13.3,14.9)
event <- c(0,1,1,0,0,1,0,1,0,0,0,1,0,1,0,1,0,1,1,0)
arm <- c(1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0)
data <- data.frame(time,event,arm)
#--- analysis ---#
library(rmstcompsens)
a = diftimermst(data,24)
print(a)
Run the code above in your browser using DataLab