powered by
Check the transition probabilities for numeric values and unity row sum
check_trans_prob(trans_mat)
transition matrix
0 if they add to 1 else error
checking for rowsum - checks for the class of transition matrix, value of rowsum (to be 1) and numeric values
# NOT RUN { 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