Removed constant.

stpp-GitHub-community · Jan 17, 2024 · ec830a0 · ec830a0
1 parent 62921b8
commit ec830a0
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/kmmr.R b/R/kmmr.R
@@ -96,7 +96,7 @@ kmmr <- function(xyt,s.region,s.lambda,ds,ks="epanech",hs,correction="none",appr
                         as.integer(npt),as.double(ds),as.integer(nds),as.integer(ker2)
                         ,as.double(hs),(ekmmr))
 
-    ekmmr <- kmmrout[[9]]/(mummr^2)
+    ekmmr <- kmmrout[[9]]
 
     invisible(return(list(ekmmr=ekmmr,ds=ds,kernel=kernel,kmmrtheo=kmmrtheo)))
   } else {