version update

Author: jeffreyevans

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: spatialEco
 Type: Package
 Title: Spatial Analysis and Modelling Utilities
-Version: 2.0-3
+Version: 2.0-4
 Date: 2025-09-29
 Authors@R: c(
     person(family="Evans", given="Jeffrey S.", email = "jeffrey_evans@tnc.org", 
@@ -54,4 +54,4 @@ NeedsCompilation: no
 Repository: CRAN
 LazyData: true
 Encoding: UTF-8
-RoxygenNote: 7.3.2
+RoxygenNote: 7.3.3

NAMESPACE

@@ -137,4 +137,5 @@ export(tri)
 export(vrm)
 export(winsorize)
 export(wt.centroid)
+export(z_normalization)
 import(terra)

R/elev-data.R

@@ -18,5 +18,5 @@
 #'   \item{proj4string}{+proj=longlat +ellps=WGS84}
 #' }
 #'
-#' @source \url{http://www.diva-gis.org/Data}
+#' @source \url{https://diva-gis.org/data.html}
 NULL

R/raster.kendall.R

@@ -69,15 +69,17 @@ raster.kendall <- function(x, intercept = TRUE, p.value = TRUE,
     stop("please install zyp package before running this function")
   if (!inherits(x, "SpatRaster")) 
     stop(deparse(substitute(x)), " must be a terra SpatRaster object")
+  if(terra::nlyr(x) > 150)
+    warning("The Kendall Tau can become numerically unstable with large numbers of observations")   
   if(min.obs < 6)
     warning("Setting the time-series threshold (n) to fewer than 6 obs may invalidate 
 	  the statistic and <= 4 will result in NA's") 
   if( terra::nlyr(x) < min.obs) 
     stop("Too few layers to calculate a trend")
   idx <- which(c(TRUE, tau, intercept, p.value, rep(confidence,2)))	
   out.names <- c("slope", "tau", "intercept", "p-value", "limits.LCL", "limits.UCL")[idx]
-    trend.slope <- function(y, metrics=idx, m=method[1]) {
-      kendall(y, method = m, threshold = min.obs)[metrics]
+    trend.slope <- function(y, metrics=idx, method=method[1]) {
+      kendall(y)[metrics]
     }
   k <- terra::app(x, fun=trend.slope, ...)
     names(k) <- out.names