From 25aa0b65fa78600cffaeb744c8985a14213da45e Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Paul-Christian=20B=C3=BCrkner?= Date: Mon, 24 Jun 2024 10:44:12 +0200 Subject: [PATCH] fix typo in tests --- tests/testthat/tests.priorsense.R | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/tests/testthat/tests.priorsense.R b/tests/testthat/tests.priorsense.R index 548a02547..e09ae5e20 100644 --- a/tests/testthat/tests.priorsense.R +++ b/tests/testthat/tests.priorsense.R @@ -8,13 +8,13 @@ fit1 <- rename_pars(brms:::brmsfit_example1) test_that("create_priorsense_data returns expected output structure", { psd1 <- create_priorsense_data(fit1) - expect_s3_class(psd$draws, "draws") - expect_s3_class(psd$fit, "brmsfit") - expect_s3_class(psd$log_lik, "draws") - expect_s3_class(psd$log_prior, "draws") - expect_true(is.function(psd$log_lik_fn)) - expect_true(is.function(psd$log_prior_fn)) - expect_true(is.function(psd$log_ratio_fn)) + expect_s3_class(psd1$draws, "draws") + expect_s3_class(psd1$fit, "brmsfit") + expect_s3_class(psd1$log_lik, "draws") + expect_s3_class(psd1$log_prior, "draws") + expect_true(is.function(psd1$log_lik_fn)) + expect_true(is.function(psd1$log_prior_fn)) + expect_true(is.function(psd1$log_ratio_fn)) }) test_that("powerscale returns without error", {