modelSize() works for ranger models

.Rbuildignore

@@ -8,3 +8,4 @@
 ^\.Rproj\.user$
 ^\.github
 ^\.github$
+^enmSdmX_workspace.code-workspace

DESCRIPTION

@@ -1,8 +1,8 @@
 Package: enmSdmX
 Type: Package
 Title: Species Distribution Modeling and Ecological Niche Modeling
-Version: 1.1.7
-Date: 2024-08-02
+Version: 1.1.8
+Date: 2024-10-02
 Authors@R: 
 	c(
 		person(
@@ -57,7 +57,7 @@ Imports:
 LazyData: true
 LazyLoad: yes
 URL: https://github.com/adamlilith/enmSdmX
-BugReports: https://github.com/adamlilith/enmSdmX
+BugReports: https://github.com/adamlilith/enmSdmX/issues
 Encoding: UTF-8
 License: MIT + file LICENSE
-RoxygenNote: 7.3.1
+RoxygenNote: 7.3.2

NEWS.md

@@ -1,3 +1,6 @@
+# enmSdmX 1.1.8 2024-10-02
+- `modelSize()` can now tell size of a `ranger` random forest.
+
 # enmSdmX 1.1.7 2024-08-02
 - Clarified mis-leading help in several functions, including all the `trainXYZ()` functions (thank you, PT!).
 

R/modelSize.r

@@ -58,6 +58,11 @@ modelSize <- function(
 		NA
 		warning('Cannot determine number of presences and background sites for a MaxNet model.')
 
+	# random forest in ranger package
+	} else if (inherits(x, 'ranger')) {
+
+		as.numeric(x$predictions)
+
 	# random forest in party package
 	} else if (inherits(x, 'randomForest')) {
 
@@ -83,7 +88,11 @@ modelSize <- function(
 			stop('Cannot extract sample size from model object.')
 		}
 	} else if (binary) {
-		out <- c(sum(samples == 1), sum(samples == 0))
+		out <- if (inherits(x, 'ranger')) {
+			c(sum(samples == 1), sum(samples == 2))
+		} else {
+			c(sum(samples == 1), sum(samples == 0))
+		}
 		names(out) <- c('num1s', 'num0s')
 		if (out[1L] == 0 & out[2L] == 0) warning('Model does not seem to be using a binary response.', .immediate=TRUE)
 	} else {

README.md

@@ -1,8 +1,8 @@
 # enmSdmX
 <!-- badges: start -->
 
-[![Project Status: Active – The project has reached a stable, usable state and is being actively developed.](https://www.repostatus.org/badges/latest/active.svg)](https://www.repostatus.org/#active)
-[![cran version](https://www.r-pkg.org/badges/version/enmSdmX)](https://cran.r-project.org/package=enmSdmX)
+![R](https://img.shields.io/badge/r-%23276DC3.svg?style=for-the-badge&logo=r&logoColor=white) [![Project Status: Active – The project has reached a stable, usable state and is being actively developed.](https://www.repostatus.org/badges/latest/active.svg)](https://www.repostatus.org/#active) [![cran version](https://www.r-pkg.org/badges/version/enmSdmX)](https://cran.r-project.org/package=enmSdmX) [![R-CMD-check](https://github.com/adamlilith/fasterRaster/actions/workflows/R-CMD-check.yaml/badge.svg)](https://github.com/adamlilith/fasterRaster/actions/workflows/R-CMD-check.yaml)
+
 <!-- badges: end -->
 
 <strong>Tools for modeling niches and distributions of species </strong>

enmSdmX_workspace.code-workspace

@@ -0,0 +1,29 @@
+{
+	"folders": [
+		{
+			"path": "."
+		}
+	],
+	"settings": {
+		"workbench.colorCustomizations": {
+			"activityBar.activeBackground": "#1f6fd0",
+			"activityBar.background": "#1f6fd0",
+			"activityBar.foreground": "#e7e7e7",
+			"activityBar.inactiveForeground": "#e7e7e799",
+			"activityBarBadge.background": "#ee90bb",
+			"activityBarBadge.foreground": "#15202b",
+			"commandCenter.border": "#e7e7e799",
+			"sash.hoverBorder": "#1f6fd0",
+			"statusBar.background": "#1857a4",
+			"statusBar.foreground": "#e7e7e7",
+			"statusBarItem.hoverBackground": "#1f6fd0",
+			"statusBarItem.remoteBackground": "#1857a4",
+			"statusBarItem.remoteForeground": "#e7e7e7",
+			"titleBar.activeBackground": "#1857a4",
+			"titleBar.activeForeground": "#e7e7e7",
+			"titleBar.inactiveBackground": "#1857a499",
+			"titleBar.inactiveForeground": "#e7e7e799"
+		},
+		"peacock.color": "#1857a4"
+	}
+}