data(dataMultiv)
ModMultive <- multivePenal(Surv(t0,t1,deltaEvent1)~
cluster(id)+var1+var2+terminal(deltadc)+event2(deltaEvent2),
formula.terminalEvent=~var1,formula2=~var1+var2+var3,
data=dataMultiv,Frailty=TRUE,recurrentAG=TRUE,
nb.int=c(3,3,3),hazard="Piecewise-per")
print(ModMultive)
Run the code above in your browser using DataLab