Commit e16c5da0 authored by LDalby's avatar LDalby
Browse files

WIP: Summarize last round of runs

parent 523b2a6c
......@@ -74,7 +74,7 @@ path_desktop("Goose", date_stamp, jobs, "scenario-grain-distributions.txt_152186
fst::read_fst() %>%
as_tibble() -> grain_dists
left_join(goose_numbers, grain_dists, by = c("param", "value", "season")) -> goose_numbers
# Summarize field forage data ----
# Mean numbers per day
......@@ -110,7 +110,8 @@ numbers_per_day %>%
labs(title = "Daily average numbers",
subtitle = "Pinkfeet numbers as a function of barnacle numbers",
caption = "Numbers are average of 10 consecutive seasons",
y = "proportion of default numbers")
y = "proportion of default numbers") +
facet_grid(~grain_dists)
......
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