if (FALSE) {
freqMatrix <- matrix(0, nrow = 2, ncol = 100)
freqMatrix[2, 26:100] <- (26:100) / 100
freqMatrix[1, ] <- 1 - freqMatrix[2, ]
plot_freqPatho(
index_gene = 1,
Nlevels_aggressiveness = 2,
freqMatrix,
nTS = 100,
Nyears = 10,
nTSpY = 10
)
}
Run the code above in your browser using DataLab