fix test-extractors

Author: jgabry

tests/testthat/test-extractors.R

@@ -4,10 +4,8 @@ context("Extractors")
 
 ITER <- 1000
 CHAINS <- 3
-capture.output(
-  fit <- stan_glm(mpg ~ wt + am, data = mtcars,
+fit <- stan_glm(mpg ~ wt + am, data = mtcars,
                   iter = ITER, chains = CHAINS, refresh = 0)
-)
 
 x <- list(cbind(a = 1:3, b = rnorm(3)), cbind(a = 1:3, b = rnorm(3)))
 
@@ -79,7 +77,6 @@ test_that("neff_ratio.stanreg returns correct structure", {
 test_that("rhat.stanfit returns correct structure", {
   r <- rhat(fit$stanfit)
   expect_named(r)
-  r <- r[!names(r) %in% "mean_PPD"]
   expect_equal(r, summary(fit)[, "Rhat"])
 
   r2 <- rhat(fit$stanfit, pars = c("wt", "sigma"))
@@ -92,7 +89,6 @@ test_that("neff_ratio.stanreg returns correct structure", {
 
   ratio <- neff_ratio(fit$stanfit)
   expect_named(ratio)
-  ratio <- ratio[!names(ratio) %in% "mean_PPD"]
   ans <- summary(fit)[, "n_eff"] / denom
   expect_equal(ratio, ans, tol = 0.001)