From ec830a0de116bb37e9fb869ac2393567e70d5508 Mon Sep 17 00:00:00 2001 From: Francisco Date: Wed, 17 Jan 2024 08:55:39 -0500 Subject: [PATCH] Removed constant. --- R/kmmr.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/kmmr.R b/R/kmmr.R index 1851652..4b74c9e 100644 --- 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 {