# Build a custom costmatrix with non-self consistent path lengths:
costmatrix <- make_costmatrix(
min_state = 0,
max_state = 2,
character_type = "irreversible"
)
costmatrix$costmatrix[1:9] <- c(0, 2, 4, 1, 0, 3, 5, 3, 0)
costmatrix$symmetry <- "Asymmetric"
costmatrix$type <- "custom"
# Fix costmatrix:
fixed_costmatrix <- fix_costmatrix(costmatrix = costmatrix)
# Compare transition costs:
costmatrix$costmatrix
fixed_costmatrix$costmatrix
Run the code above in your browser using DataLab