powered by
Check the transition probabilities for numeric values and unity row sum
check_trans_prob(trans_mat)
0 if they add to 1 else error
transition matrix
checking for rowsum - checks for the class of transition matrix, value of rowsum (to be 1) and numeric values
tmat <- rbind(c(1, 2), c(3, 4)) colnames(tmat) <- rownames(tmat) <- c("Healthy", "Dead") tm <- populate_transition_matrix(2, tmat, list_prob = c(0.5, 0.5, 0, 1)) check_trans_prob(tm)
Run the code above in your browser using DataLab