Commit ca0c35d6 authored by LDalby's avatar LDalby
Browse files

Write out the numbers probe

parent 0c24fd56
......@@ -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
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment