data(GLHS)
D <- Biograph.mvna (GLHS)
# Run mvna:
require (mvna)
zz <- attr(D$D,"param")$namstates
zzz <- attr(D$D,"param")$trans_possible
na <- mvna(data=D$D,state.names=zz,tra=zzz,cens.name=D$cens)
Run the code above in your browser using DataLab