From 332568d3e8b0022f9510e7b1e609524cb3131bf3 Mon Sep 17 00:00:00 2001 From: Lars-Dominik Braun Date: Fri, 28 Oct 2022 09:58:47 +0200 Subject: [PATCH] gnu: r-mixedpower: Improve compatibility with R>=4.2. MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Upstream’s fix is incomplete and thus commit 7871447cf5d9fc5a7b5fe5277fc5e111e5ce32d7 was insufficient. * gnu/packages/patches/r-mixedpower-r2power.patch: New file. * gnu/local.mk (dist_patch_DATA): Add it. * gnu/packages/statistics.scm (r-mixedpower)[source]: Use it. --- .../patches/r-mixedpower-r2power.patch | 26 +++++++++++++++++++ 1 file changed, 26 insertions(+) create mode 100644 gnu/packages/patches/r-mixedpower-r2power.patch diff --git a/gnu/packages/patches/r-mixedpower-r2power.patch b/gnu/packages/patches/r-mixedpower-r2power.patch new file mode 100644 index 0000000000..a3307ca7b5 --- /dev/null +++ b/gnu/packages/patches/r-mixedpower-r2power.patch @@ -0,0 +1,26 @@ +From e882fda905150649aa887c72731144330ca297b5 Mon Sep 17 00:00:00 2001 +From: Lars-Dominik Braun +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 +