https://github.com/cran/Splancs
Tip revision: f029fd525a43547b3e9ce32fa846604b89d5df65 authored by Roger Bivand on 30 January 2008, 00:00:00 UTC
version 2.01-24
version 2.01-24
Tip revision: f029fd5
Kenv.csr.S
# Copyright Barry Rowlingson <b.rowlingson@lancaster.ac.uk> and
# Peter Diggle (c) 1991-3; http://www.maths.lancs.ac.uk/~rowlings/Splancs/
# R port: copyright 1998-2000 by Roger S. Bivand
Kenv.csr <- function(nptg,poly,nsim,s,quiet=FALSE)
{
kmax <- rep(0,length=length(s))
kmin <- rep(1.0E34,length=length(s))
for(isim in (1:nsim)){
if(!quiet)cat('Doing simulation ',isim,'\n')
khsim <- khat(csr(poly,nptg),poly,s)
kmax <- pmax(kmax,khsim)
kmin <- pmin(kmin,khsim)
}
list(lower=kmin,upper=kmax)
}