Description Usage Arguments Value Examples
Create Movement Parameter Array
1 | create_movement_parameters(r, z = NULL)
|
r |
|
z |
|
array()
Movement parameters.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 | # 2x2
x <- array(c(0.9, 0.2, 0.1, 0.8, 0.7, 0.4, 0.3, 0.6), dim = c(2, 2, 2, 1))
z <- array(c(0, 1, 1, 0), dim = c(2, 2))
p <- create_movement_parameters(x, z)
r <- create_movement_rates(p, z)
all(x - r < 1e-12)
# 3x3 with missing adjacent rates
v <- c(0.9,0.1,0.3,0,0.8,0,0.1,0.1,0.7,0.6,0.2,0.6,0,0.5,0,0.4,0.3,0.4)
x <- array(v, dim = c(3,3,2,1))
z <- array(c(0,1,1,0,0,0,1,1,0), dim = c(3,3))
p <- create_movement_parameters(x, z)
r <- create_movement_rates(p, z)
all(x - r < 1e-12)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.