Update 11_school_sampling.R

WorldHealthOrganization · Nov 11, 2024 · b1c2fda · b1c2fda
1 parent 23721d4
commit b1c2fda
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/scripts/11_school_sampling.R b/scripts/11_school_sampling.R
@@ -78,7 +78,8 @@ sampling_function = function(datum = frame_schools,no_qnaires = 2906, no_schools
   total_enrolment = sum(datum$enrolment, na.rm = T) 
   overall_sampling_fraction = (adj_no_qnaires) / sum(datum$enrolment, na.rm = T)
   global_sf <<-overall_sampling_fraction
-
+  global_datum <<- datum
+
   if(all_schools=='No')
   {
     ##Selection of certainty schools