tweak to vignette

vignettes/posterior-simulation.Rmd

@@ -295,16 +295,16 @@ Having collected the posterior draws, we summarise each set into 50%, 80%, and 9
 ```{r ga-fail-intervals}
 int_ga <- fs_ga |>
   group_by(.row) |>
-  median_qi(.width = c(.5, .8, .95)) |>
+  median_qi(.width = c(0.5, 0.8, 0.95)) |>
   left_join(df, by = join_by(.row == .row))
 
 int_mh <- fs_mh |>
   group_by(.row) |>
-  median_qi(.width = c(.5, .8, .95)) |>
+  median_qi(.width = c(0.5, 0.8, 0.95)) |>
   left_join(df, by = join_by(.row == .row))
 ```
 
-First we plot the intervals for the Gaussian approximation to the posterior, and then we repeat the plot using the intervals derived from the Metropolis Hastings sampler, and arrange the two plots using *patchwork*
+First we plot the intervals for the Gaussian approximation to the posterior, and then we repeat the plot using the intervals derived from the Metropolis Hastings sampler, arranging the two plots using *patchwork*
 ```{r ga-fail-plot-plus-intervals}
 plt_ga <- df |>
   ggplot(aes(x = x, y = y)) +