observe the social contact output

avallecam · avallecam · commit 9001a543cb6e · 2025-07-27T09:38:39.000-04:00
diff --git a/instructors/data/04-practical-activity-1.R b/instructors/data/04-practical-activity-1.R
@@ -27,9 +27,13 @@ contact_data <- socialmixr::contact_matrix(
   #<COMPLETE>
 )
 
+contact_data
+
 # Prepare contact matrix
 socialcontact_matrix <- t(contact_data$matrix)
 
+socialcontact_matrix
+
 # (2) Initial conditions --------------------------------------------------
 
 ## Infectious population ---------
diff --git a/instructors/fig/04-practical-instructor-1.R b/instructors/fig/04-practical-instructor-1.R
@@ -45,9 +45,13 @@ contact_data <- socialmixr::contact_matrix(
   symmetric = TRUE
 )
 
+contact_data
+
 # Prepare contact matrix
 socialcontact_matrix <- t(contact_data$matrix)
 
+socialcontact_matrix
+
 # (2) Initial conditions --------------------------------------------------
 
 ## Infectious population ---------
