Use as_contactmatrix() method

Bisaloo · Apr 22, 2024 · ab1cae6 · ab1cae6
1 parent d700a80
commit ab1cae6
Showing 1 changed file with 2 additions and 6 deletions.
diff --git a/R/contact_matrix.R b/R/contact_matrix.R
@@ -63,12 +63,8 @@ contact_matrix <- function(
     )
   }
 
-  res <- contactmatrix::new_contactmatrix(
-    from      = rep(rownames(matrix_country),
-                    each = length(colnames(matrix_country))),
-    to        = rep(colnames(matrix_country),
-                    length(rownames(matrix_country))),
-    value     = c(t(matrix_country)),
+  res <- contactmatrix::as_contactmatrix(
+    matrix_country,
     symmetric = FALSE
   )