Convert a contactmatrix_list to a tidy data.frame
Source: R/S3-contactmatrix_list.R
tidy.contactmatrix_list.RdConvert a contactmatrix_list to a tidy data.frame
Usage
# S3 method for class 'contactmatrix_list'
tidy(x, ...)Examples
cm1 <- new_contactmatrix(
from = c("[0,5)", "[5,10)", "[5,10)"),
to = c("[0,5)", "[10,15)", "[15,20)"),
value = c(0.32 , 0.46 , 0.72 )
)
cm2 <- new_contactmatrix(
from = c("[5,10)", "[0,5)", "[5,10)"),
to = c("[15,20)", "[10,15)", "[10,15)"),
value = c(0.27 , 0.09 , 0.32 )
)
cml <- new_contactmatrix_list(cm1, cm2)
tidy(cml)
#> age_from age_to contact index
#> 1 [0,5) [0,5) 0.32 1
#> 2 [10,15) [0,5) 0.00 1
#> 3 [15,20) [0,5) 0.00 1
#> 4 [5,10) [0,5) 0.00 1
#> 5 [0,5) [10,15) 0.00 1
#> 6 [10,15) [10,15) 0.00 1
#> 7 [15,20) [10,15) 0.00 1
#> 8 [5,10) [10,15) 0.46 1
#> 9 [0,5) [15,20) 0.00 1
#> 10 [10,15) [15,20) 0.00 1
#> 11 [15,20) [15,20) 0.00 1
#> 12 [5,10) [15,20) 0.72 1
#> 13 [0,5) [5,10) 0.00 1
#> 14 [10,15) [5,10) 0.00 1
#> 15 [15,20) [5,10) 0.00 1
#> 16 [5,10) [5,10) 0.00 1
#> 17 [0,5) [0,5) 0.00 2
#> 18 [10,15) [0,5) 0.00 2
#> 19 [15,20) [0,5) 0.00 2
#> 20 [5,10) [0,5) 0.00 2
#> 21 [0,5) [10,15) 0.09 2
#> 22 [10,15) [10,15) 0.00 2
#> 23 [15,20) [10,15) 0.00 2
#> 24 [5,10) [10,15) 0.32 2
#> 25 [0,5) [15,20) 0.00 2
#> 26 [10,15) [15,20) 0.00 2
#> 27 [15,20) [15,20) 0.00 2
#> 28 [5,10) [15,20) 0.27 2
#> 29 [0,5) [5,10) 0.00 2
#> 30 [10,15) [5,10) 0.00 2
#> 31 [15,20) [5,10) 0.00 2
#> 32 [5,10) [5,10) 0.00 2