pcfinhom(X, lambda = NULL, ..., r = NULL,
         kernel = "epanechnikov", bw = NULL, stoyan = 0.15,
         correction = c("translate", "Ripley"),
         renormalise = TRUE, normpower=1,
         reciplambda = NULL,
         sigma = NULL, varcov = NULL)"ppp").X,
    a pixel image (object of class "im") giving the
    intensity values at all locatiodensity.default.density.default.density.default.lambda.
    Values of the estimated reciprocal $1/\lambda$
    of the intensity function.
    Either a vector giving the reciprocal intensity values
    at the points of the pattern X,
    a pixel image (odensity.ppp
    to control the smoothing bandwidth, when lambda is
    estimated by kernel smoothing."fv").
  Essentially a data frame containing the variablesThe best intuitive interpretation is the following: the probability $p(r)$ of finding two points at locations $x$ and $y$ separated by a distance $r$ is equal to $$p(r) = \lambda(x) lambda(y) g(r) \,{\rm d}x \, {\rm d}y$$ where $\lambda$ is the intensity function of the point process. For a Poisson point process with intensity function $\lambda$, this probability is $p(r) = \lambda(x) \lambda(y)$ so $g_{\rm inhom}(r) = 1$.
  The inhomogeneous pair correlation function 
  is related to the inhomogeneous $K$ function through
  $$g_{\rm inhom}(r) = \frac{K'_{\rm inhom}(r)}{2\pi r}$$
  where $K'_{\rm inhom}(r)$
  is the derivative of $K_{\rm inhom}(r)$, the
  inhomogeneous $K$ function. See Kinhom for information
  about $K_{\rm inhom}(r)$.
  The command pcfinhom estimates the inhomogeneous
  pair correlation using a modified version of
  the algorithm in pcf.ppp.   
  
  If renormalise=TRUE (the default), then the estimates 
  are multiplied by $c^{\mbox{normpower}}$ where 
  $c = \mbox{area}(W)/\sum (1/\lambda(x_i)).$
  This rescaling reduces the variability and bias of the estimate
  in small samples and in cases of very strong inhomogeneity.
  The default value of normpower is 1
  but the most sensible value is 2, which would correspond to rescaling
  the lambda values so that
  $\sum (1/\lambda(x_i)) = \mbox{area}(W).$
pcf, 
  pcf.ppp, 
  Kinhomdata(residualspaper)
  X <- residualspaper$Fig4b
  plot(pcfinhom(X, stoyan=0.2, sigma=0.1))
  fit <- ppm(X, ~polynom(x,y,2))
  plot(pcfinhom(X, lambda=fit, normpower=2))Run the code above in your browser using DataLab