Add more visualisation of possible mean parameter choices

analysis/mean-dist-vis.Rmd

@@ -57,3 +57,12 @@ shape
 rate
 shape / rate
 ```
+
+```{r other-params}
+data.frame(x = seq(1, 10, by = 0.1)) %>% 
+  ggplot(aes(x)) + 
+  geom_function(fun = ~ dgamma(.x, 1, 1)) + 
+  geom_function(fun = ~ dgamma(.x, 1, 2)) + 
+  geom_function(fun = ~ dgamma(.x, 1, 3)) + 
+  geom_function(fun = ~ dgamma(.x, 1, 4))
+```