data(dataJoint)
modJoint<-frailtyPenal(Surv(time.entry,time.end,status)~cluster(id)+var1+var2
+terminal(status.terminal),
formula.terminalEvent=~var1,
data=dataJoint,n.knots=7,Frailty=TRUE,
kappa1=1, kappa2=1, joint=TRUE, recurrentAG=TRUE)
print(modJoint)Run the code above in your browser using DataLab