Skip to content

Commit

Permalink
Merge branch '42_nb' of github.com:openpharma/RobinCar2 into 42_nb
Browse files Browse the repository at this point in the history
  • Loading branch information
clarkliming committed Oct 15, 2024
2 parents a1df86e + 4bacdfb commit 57d40c7
Show file tree
Hide file tree
Showing 2 changed files with 3 additions and 3 deletions.
4 changes: 2 additions & 2 deletions R/treatment_effect.R
Original file line number Diff line number Diff line change
Expand Up @@ -183,7 +183,7 @@ print.treatment_effect <- function(x, ...) {
cat("Randomization: ", deparse(attr(x, "treatment")), "\n")
cat("Marginal Mean: \n")
print(attr(x, "marginal_mean"))

cat("Variance Type: ", attr(x, "vartype"), "\n")
if (identical(attr(x, "vartype"), "none")) {
trt_sd <- rep(NA, length(x))
Expand All @@ -207,5 +207,5 @@ print.treatment_effect <- function(x, ...) {
coef_mat,
zap.ind = 3,
digits = 3
)
)
}
2 changes: 1 addition & 1 deletion tests/testthat/test-utils.R
Original file line number Diff line number Diff line change
Expand Up @@ -11,7 +11,7 @@ test_that("h_get_vars works for formula", {
"only one randomization schema is allowed!"
)
expect_error(
h_get_vars( ~ ps(s2)),
h_get_vars(~ ps(s2)),
"treatment formula must be of type treatment ~ strata"
)
expect_error(
Expand Down

0 comments on commit 57d40c7

Please sign in to comment.