Obtain a growth transition matrix from a vector of growth increments.
Examples
mp <- seq(31, 91, 10)
inc <- get_growth_increment(midpoint = mp)
get_growth_matrix(midpoint = mp, increment = inc)
#> size1
#> size2 31 41 51 61 71
#> 31 1.795521e-01 6.976594e-05 1.890678e-28 1.578811e-98 4.901403e-216
#> 41 6.977130e-01 5.527843e-01 1.284193e-06 1.469800e-39 3.763381e-114
#> 51 1.221372e-01 4.471229e-01 9.447207e-01 1.094613e-07 7.305782e-45
#> 61 5.977654e-04 2.303215e-05 5.527799e-02 9.969613e-01 4.856606e-08
#> 71 5.233729e-08 5.551115e-16 1.443290e-15 3.038580e-03 9.995819e-01
#> 81 6.972201e-14 0.000000e+00 0.000000e+00 0.000000e+00 4.180265e-04
#> 91 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00
#> size1
#> size2 81 91
#> 31 0.000000e+00 0.000000e+00
#> 41 1.620491e-228 0.000000e+00
#> 51 2.727775e-120 2.622575e-232
#> 61 7.139079e-47 3.839488e-122
#> 71 3.975293e-08 1.816611e-47
#> 81 9.998366e-01 3.813736e-08
#> 91 1.633304e-04 1.000000e+00
