# Build a simple matrix model with three classes,
# no retrogression and stasis only in the third stage,
# which is the only reproductive one in the life cycle.
aMat <- matrix(0, 3, 3)
aMat[cbind(2:3, 1:2)] <- 0.5
aMat[cbind(3, 3)] <- 0.8
aMat[1, 3] <-5
IPMamat <- coerceMatrixIPM(aMat)
Run the code above in your browser using DataLab