https://github.com/cran/Splancs
Tip revision: c431b2b8efe97f45c4fc0a84aca1020fd3c62587 authored by Roger Bivand on 19 August 2011, 00:00:00 UTC
version 2.01-29
version 2.01-29
Tip revision: c431b2b
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)
}