Swap **MuMIn** dependency for **AICcmodavg**

adamlilith · Jun 6, 2024 · 03e4689 · 03e4689
1 parent 9cc65af
commit 03e4689
Show file tree

Hide file tree

Showing 4 changed files with 10 additions and 10 deletions.
diff --git a/R/interpolateRasts.r b/R/interpolateRasts.r
@@ -220,7 +220,7 @@ interpolateRasts <- function(
 						models[[length(models) + 1]] <- model
 						k <- c(k, length(model$coefficients))
 
-						aicc <- sapply(models, MuMIn::AICc)
+						aicc <- sapply(models, AICcmodavg::AICc)
 						interpModel <- models[[which.min(aicc)]]
 
 					} else if (type == 'bs') {
@@ -251,7 +251,7 @@ interpolateRasts <- function(
 						models[[length(models) + 1]] <- model
 						k <- c(k, length(model$coefficients))
 
-						aicc <- sapply(models, MuMIn::AICc)
+						aicc <- sapply(models, AICcmodavg::AICc)
 						interpModel <- models[[which.min(aicc)]]
 
 					} else if (type == 'smooth.spline') {
@@ -314,7 +314,7 @@ interpolateRasts <- function(
 							models[[length(models) + 1]] <- model
 							k <- c(k, length(model$coefficients))
 
-							aicc <- sapply(models, MuMIn::AICc)
+							aicc <- sapply(models, AICcmodavg::AICc)
 							interpModel <- models[[which.min(aicc)]]
 
 						}

diff --git a/R/trainGam.r b/R/trainGam.r
@@ -227,7 +227,7 @@ trainGAM <- function(
 				...
 			)
 
-			AICc <- MuMIn::AICc(model)
+			AICc <- AICcmodavg::AICc(model)
 
 			tuning <- data.frame(
 				model = form,
@@ -356,7 +356,7 @@ trainGAM <- function(
 			...
 		)
 
-		AICc <- MuMIn::AICc(model)
+		AICc <- AICcmodavg::AICc(model)
 
 		tuning <- data.frame(
 			model = form,
@@ -443,7 +443,7 @@ trainGAM <- function(
 		...
 	)
 
-	AICc <- MuMIn::AICc(model)
+	AICc <- AICcmodavg::AICc(model)
 
 	# out
 	out <- if (modelOut) {

diff --git a/R/trainGlm.r b/R/trainGlm.r
@@ -242,7 +242,7 @@ trainGLM <- function(
 				...
 			)
 
-			AICc <- MuMIn::AICc(model)
+			AICc <- AICcmodavg::AICc(model)
 
 			tuning <- data.frame(
 				model = form,
@@ -419,7 +419,7 @@ trainGLM <- function(
 			...
 		)
 
-		AICc <- MuMIn::AICc(model)
+		AICc <- AICcmodavg::AICc(model)
 
 		tuning <- data.frame(
 			model = form,
@@ -510,7 +510,7 @@ trainGLM <- function(
 		...
 	)
 
-	AICc <- MuMIn::AICc(model)
+	AICc <- AICcmodavg::AICc(model)
 
 	# out
 	if (modelOut) {

diff --git a/R/trainNs.r b/R/trainNs.r
@@ -336,7 +336,7 @@ trainNS <- function(
 		...
 	)
 
-	AICc <- MuMIn::AICc(model)
+	AICc <- AICcmodavg::AICc(model)
 
 	# out
 	out <- if (modelOut) {