data(GLHS)
D <- Biograph.mvna (GLHS)
# Run mvna:
namstates.numeric <- as.character(1:length(namstates))
require (mvna)
na <- mvna(data=D$D,state.names=namstates.numeric,tra=D$par$trans_possible,cens.name=D$cens)
Run the code above in your browser using DataLab