From 0eeb6f56a7bdaa5e7855fe3719846c55d1be47b8 Mon Sep 17 00:00:00 2001 From: Daniel Date: Sun, 23 Jun 2024 20:25:18 +0200 Subject: [PATCH] lintr --- R/interpret_pd.R | 2 +- R/interpret_r2.R | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/R/interpret_pd.R b/R/interpret_pd.R index 711b9ef61..305a138a2 100644 --- a/R/interpret_pd.R +++ b/R/interpret_pd.R @@ -30,7 +30,7 @@ interpret_pd <- function(pd, rules = "default", ...) { rules <- .match.rules( rules, list( - default = rules(c(0.975), c("not significant", "significant"), + default = rules(0.975, c("not significant", "significant"), name = "default", right = TRUE ), makowski2019 = rules(c(0.95, 0.97, 0.99, 0.999), c("uncertain", "possibly existing", "likely existing", "probably existing", "certainly existing"), diff --git a/R/interpret_r2.R b/R/interpret_r2.R index c294a0cca..f8cb9ea0d 100644 --- a/R/interpret_r2.R +++ b/R/interpret_r2.R @@ -55,7 +55,7 @@ interpret_r2 <- function(r2, rules = "cohen1988") { cohen1988 = rules(c(0.02, 0.13, 0.26), c("very weak", "weak", "moderate", "substantial"), name = "cohen1988", right = FALSE ), - falk1992 = rules(c(0.10), c("negligible", "adequate"), + falk1992 = rules(0.10, c("negligible", "adequate"), name = "falk1992", right = FALSE ), chin1998 = rules(c(0.19, 0.33, 0.67), c("very weak", "weak", "moderate", "substantial"),