From b1c2fda279c6c8746135197cdb13af9bc50ec703 Mon Sep 17 00:00:00 2001
From: lucasmalla <49912636+lucasmalla@users.noreply.github.com>
Date: Mon, 11 Nov 2024 04:53:56 +0300
Subject: [PATCH] Update 11_school_sampling.R

---
 scripts/11_school_sampling.R | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/scripts/11_school_sampling.R b/scripts/11_school_sampling.R
index 226f64a..d681c6d 100644
--- 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