Add direct call to stats::IQR()

R-Lum · Mar 6, 2025 · a156c48 · a156c48
1 parent 7d722d2
commit a156c48
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/calc_FadingCorr.R b/R/calc_FadingCorr.R
@@ -390,7 +390,7 @@ calc_FadingCorr <- function(
   tempMC <- tempMC[!is.na(tempMC)]
 
   ## discard wild outliers, as they will bias the error if present
-  tempMC <- tempMC[tempMC < 100 * IQR(tempMC)]
+  tempMC <- tempMC[tempMC < 100 * stats::IQR(tempMC)]
 
   ##obtain corrected age
   age.corr <- data.frame(