Commint_2

stpp-GitHub-community · Apr 15, 2024 · 5c34850 · 5c34850
1 parent b0c74c6
commit 5c34850
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/kmmr.R b/R/kmmr.R
@@ -86,7 +86,7 @@ kmmr <- function(xyt,s.region,s.lambda,ds,ks="epanech",hs,correction="none",appr
   kmmrtheo <- 1
   npt <- pxy$n[1]
   nds <- length(ds)
-  cmm <- mean(ptst)^2
+  cmm <- (range(ptst)/2)^2
   ekmmr <- rep(0,nds)
 
   storage.mode(ekmmr) <- "double"