fix broken examples while waiting for tidy to support emmeans

zhaoxiaohe · Nov 6, 2017 · 7b35e5f · 7b35e5f
1 parent 7e4d7bf
commit 7b35e5f
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 3 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -42,6 +42,7 @@ Suggests:
     runjags,
     rstanarm,
     rstantools,
+    lsmeans,
     emmeans,
     broom,
     dotwhisker,

diff --git a/README.Rmd b/README.Rmd
@@ -126,7 +126,7 @@ library(ggplot2)
 library(ggstance)
 library(rstan)
 library(tidybayes)
-library(emmeans)
+library(lsmeans)
 library(broom)
 library(brms)
 library(modelr)
@@ -246,8 +246,8 @@ For example, let's compare to ordinary least squares (OLS) regression:
 ```{r}
 linear_estimates = 
   lm(response ~ condition, data = ABC) %>% 
-  emmeans(~ condition) %>% 
-  broom:::tidy.ref.grid() %>%  # need to specify explicitly until broom updates to support emmeans (formerly lsmeans)
+  lsmeans(~ condition) %>% 
+  tidy() %>%
   mutate(model = "OLS")
 linear_estimates
 ```

diff --git a/vignettes/tidybayes.Rmd b/vignettes/tidybayes.Rmd
@@ -594,6 +594,7 @@ Combining `emmeans::emmeans` with `broom::tidy`, we can generate tidy-format est
 linear_estimates = m_linear %>% 
   emmeans(~ condition) %>% 
   broom:::tidy.ref.grid() %>%  # need to specify explicitly until broom updates to support emmeans (formerly lsmeans)
+  rename(estimate = emmean) %>%
   mutate(model = "OLS")
 
 linear_estimates