Skip to content

Commit

Permalink
Updatekmmr
Browse files Browse the repository at this point in the history
  • Loading branch information
frajaroco authored Jul 19, 2024
1 parent 7baba19 commit 3fa3910
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion R/kmmr.R
Original file line number Diff line number Diff line change
Expand Up @@ -94,7 +94,7 @@ kmmr <- function(xyt,s.region,s.lambda,ds,ks="epanech",hs,correction="none",appr
if (appro2[1]==1){
kmmrout <- .Fortran("kmmrcore",as.double(ptsx),as.double(ptsy),as.double(ptst),
as.integer(npt),as.double(ds),as.integer(nds),as.integer(ker2)
,as.double(hs),(ekmmr),PACKAGE="msfstpp")
,as.double(hs),(ekmmr),PACKAGE="stpp")

ekmmr <- kmmrout[[9]]/(mummr^2)

Expand Down

0 comments on commit 3fa3910

Please sign in to comment.