Obtain a growth transition matrix from a vector of growth increments.
Examples
mp <- seq(31, 91, 10)
inc <- get_growth_increment(midpoint = mp, gobs = NULL)
get_growth_matrix(midpoint = mp, increment = inc)
#> source
#> destination 31 41 51 61 71
#> 31 1.742382e-01 1.702165e-05 7.746202e-46 4.235917e-261 0.000000e+00
#> 41 7.082178e-01 5.574626e-01 7.048023e-10 7.945190e-103 0.000000e+00
#> 51 1.170813e-01 4.425157e-01 9.800304e-01 9.505355e-18 2.124650e-174
#> 61 4.627064e-04 4.630460e-06 1.996957e-02 9.999966e-01 4.573480e-27
#> 71 2.706840e-08 0.000000e+00 0.000000e+00 3.402750e-06 1.000000e+00
#> 81 1.987299e-14 0.000000e+00 0.000000e+00 0.000000e+00 9.738654e-12
#> 91 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00
#> source
#> destination 81 91
#> 31 0.000000e+00 0.000000e+00
#> 41 0.000000e+00 0.000000e+00
#> 51 0.000000e+00 0.000000e+00
#> 61 4.658785e-229 0.000000e+00
#> 71 5.474129e-34 5.575174e-252
#> 81 1.000000e+00 7.374015e-37
#> 91 3.330669e-16 1.000000e+00
