Write out the numbers probe

Grendel/scenario_01_goose-numbers.R

@@ -65,6 +65,11 @@ if(file_exists("GooseFieldForageData.txt"))
   if(file_exists("GooseGrainDist.txt")) {
     read_tsv("GooseGrainDist.txt", col_types = "ic") -> grain_dist
   }
+  if(file_exists("GoosePopulationData.txt")) {
+    read_tsv("GoosePopulationData.txt",
+             col_types = "iiiiiiiid") -> goose_numbers
+  }
+  
  
 # Write ----
 	index <- lineno[counter]
@@ -81,6 +86,10 @@ if(file_exists("GooseFieldForageData.txt"))
 	    mutate(param = param[i],
 	           value = value[i]) %>% 
 	    write_tsv(path = path(resultpath, "scenario-grain-distributions.txt"), append = TRUE)
+	  goose_numbers %>% 
+	    mutate(param = param[i],
+	           value = value[i]) %>% 
+	    write_tsv(path = path(resultpath, "scenario-goose-numbers.txt"), append = TRUE)
 	}
 	
 	# As the last thing we delete the goose output files