blob: a3307ca7b56b897db4e4949232939425bd85ad5d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
From e882fda905150649aa887c72731144330ca297b5 Mon Sep 17 00:00:00 2001
From: Lars-Dominik Braun <lars@6xq.net>
Date: Fri, 28 Oct 2022 09:18:11 +0200
Subject: [PATCH] Fix R2power with R>=4.2
The previous commit missed this if statement.
---
R/meta_functions.R | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/R/meta_functions.R b/R/meta_functions.R
index a65f0c1..fb3feba 100644
--- a/R/meta_functions.R
+++ b/R/meta_functions.R
@@ -172,7 +172,7 @@ R2power <- function(model, data, fixed_effects, simvar,
} # end if databased
# 2. SESOI
- suppressWarnings(if (SESOI != F){ # supress warning generated by if statement if SESOI =! F
+ suppressWarnings(if (!is.logical(SESOI)){
# change beta coeficients to SESOI values
model@beta <- SESOI
--
2.37.4
|
