SM0 = rnorm(300, 0,1)
SM1 = rnorm(300, 0,1)
NM0 = rnorm(300, 0,1)
NM1 = rnorm(300, 0,1)
S1 <- exp(-1*(0.408*SM0 +0.15*SM1 + 0.684*NM0+0.15*NM1))*rweibull(300,scale = 1 , shape=1)
C1 <- runif(300, 0,1.58)
Time <- pmin(S1, C1)
Event <- 1*(S1 < C1)
Markers <- cbind(SM0,SM1,NM0 ,NM1 )
tau <- max(Time[Event==1])
stCPE(Time, Event, Markers, 0, tau)
Run the code above in your browser using DataLab