R/parameters.R

Defines functions parameters.kppm parameters.ppm parameters

Documented in parameters parameters.kppm parameters.ppm

##
##    parameters.R
##
##   $Revision: 1.2 $ $Date: 2015/05/08 04:27:15 $
##

parameters <- function(model, ...) {
  UseMethod("parameters")
}

parameters.ppm <- function(model, ...) {
  ss <- summary(model, quick="no variances")
  out <- c(list(trend=ss$trend$value),
           ss$covfunargs,
           ss$interaction$interaction$par,
           ss$interaction$sensible$param)
  return(out)
}

parameters.kppm <- function(model, ...) {
  ss <- summary(model, quick="no variances")
  out <- c(list(trend=ss$trend$trend$value),
           ss$covfunargs,
           ss$clustpar,
           ss$clustargs,
           list(mu=ss$mu))
  return(out)
}

Try the spatstat package in your browser

Any scripts or data that you put into this service are public.

spatstat documentation built on Aug. 4, 2018, 1:04 a.m.