# NOT RUN {
migr <- new_migration(
site_name = c("s1", "s2", "s3"),
flight_duration = matrix(c(0, 1, 2, 0, 0, 1, 0, 0, 0), ncol = 3, byrow = TRUE),
initial_state = c(10, 0, 0),
horizon = 5,
death_probability = c(0.05, 0.1, 1),
observation = matrix(c(9, 0, 0, 8, 0, 0, 2, 4, 1, 0, 0, 7), ncol = 3, byrow = TRUE)
)
# }
Run the code above in your browser using DataLab