rho2hat(object, cov1, cov2, ..., method=c("ratio", "reweight"))"ppp"),
    a quadrature scheme (object of class "quad")
    or a fitted point process model (object of class "ppm").function(x,y) or a pixel image (object of
    class "im") providing the values of the covariate at any
    location, or one of the strings "x" or "y"
   density.ppp to smooth
    the scatterplots."im"). Also
  belongs to the special class "rho2hat" which has a plot method.rhohat.
  
  If object is a point pattern, this command
  produces a smoothed version of the scatterplot of
  the values of the covariates cov1 and cov2
  observed at the points of the point pattern.   The covariates cov1,cov2 must have continuous values.
  
  If object is a fitted point process model, suppose X is
  the original data point pattern to which the model was fitted. Then
  this command assumes X is a realisation of a Poisson point
  process with intensity function of the form
  $$\lambda(u) = \rho(Z_1(u), Z_2(u)) \kappa(u)$$
  where $\kappa(u)$ is the intensity of the fitted model
  object, and $\rho(z_1,z_2)$ is a function
  to be estimated. The algorithm computes a smooth estimate of the
  function $\rho$.
  The method determines how the density estimates will be
  combined to obtain an estimate of $\rho(z_1, z_2)$:
  
method="ratio", then$\rho(z_1, z_2)$is
    estimated by the ratio of two density estimates.
    The numerator is a (rescaled) density estimate obtained by
    smoothing the points$(Z_1(y_i), Z_2(y_i))$obtained by evaluating the two covariate$Z_1, Z_2$at the data points$y_i$. The denominator
    is a density estimate of the reference distribution of$(Z_1,Z_2)$.method="reweight", then$\rho(z_1, z_2)$is
    estimated by applying density estimation to the 
    points$(Z_1(y_i), Z_2(y_i))$obtained by evaluating the two covariate$Z_1, Z_2$at the data points$y_i$,
    with weights inversely proportional to the reference density of$(Z_1,Z_2)$.rhohat,
  methods.rho2hatdata(bei)
  attach(bei.extra)
  plot(rho2hat(bei, elev, grad))
  fit <- ppm(bei, ~polynom(elev, 3), covariates=bei.extra)
  plot(rho2hat(fit, elev, grad))
  plot(rho2hat(fit, elev, grad, method="reweight"))Run the code above in your browser using DataLab