inst/snippet/mom-beta-sim-02-fig.R

gf_point(shape2 ~ shape1, data = Results, alpha = 0.4) %>%
  gf_abline(intercept = 0, slope = 5/2)

gf_dhistogram( ~ (shape2 / shape1), data = Results, bins = 30) %>%
  gf_vline(xintercept = 2.5)

Try the fastR2 package in your browser

Any scripts or data that you put into this service are public.

fastR2 documentation built on Nov. 9, 2023, 9:06 a.m.