relrisk(X, sigma = NULL, ..., varcov = NULL, at = "pixels", casecontrol=TRUE)"ppp"
    which has factor valued marks).bw.relrisk to select the
    bandwidth, or passed to density.ppp to control the
    pixel resolution.sigma.at="pixels") or
    only at the points of X (at="points").X consists of only two types of points,
  the result is a pixel image (if at="pixels")
  or a vector of probabilities (if at="points").  If X consists of more than two types of points,
  the result is:
  
at="pixels")
    a list of pixel images, with one image for each possible type of point.
    The result also belongs to the class"listof"so that it can
    be printed and plotted.at="points")
    a matrix of probabilities, with rows corresponding to
    data points$x_i$, and columns corresponding
    to types$j$.X  is a bivariate point pattern
  (a multitype point pattern consisting of two types of points)
  then by default,
  the points of the first type (the first level of marks(X))
  are treated as controls or non-events, and points of the second type
  are treated as cases or events. Then this command computes
  the spatially-varying risk of an event,
  i.e. the probability $p(u)$
  that a point at spatial location $u$
  will be a case.  If X is a multitype point pattern with $m > 2$ types,
  or if X is a bivariate point pattern
  and casecontrol=FALSE,
  then this command computes, for each type $j$,
  a nonparametric estimate of
  the spatially-varying risk of an event of type $j$.
  This is the probability $p_j(u)$
  that a point at spatial location $u$
  will belong to type $j$.
  If at = "pixels" the calculation is performed for
  every spatial location $u$ on a fine pixel grid, and the result
  is a pixel image representing the function $p(u)$
  or a list of pixel images representing the functions 
  $p_j(u)$ for $j = 1,\ldots,m$.
  If at = "points" the calculation is performed
  only at the data points $x_i$. The result is a vector of values
  $p(x_i)$ giving the estimated probability of a case
  at each data point, or a matrix of values 
  $p_j(x_i)$ giving the estimated probability of
  each possible type $j$ at each data point.
  Estimation is performed by a simple Nadaraja-Watson type kernel
  smoother (Diggle, 2003). If sigma and varcov
  are both missing or null, then the smoothing bandwidth sigma
  is selected by cross-validation using bw.relrisk.
bw.relrisk,
 density.ppp,
 Smooth.ppp,
 eval.im.
 which.max.im.data(urkiola)
   p <- relrisk(urkiola, 20)
   if(interactive()) {
      plot(p, main="proportion of oak")
      plot(eval.im(p > 0.3), main="More than 30 percent oak")
      data(lansing)
      z <- relrisk(lansing)
      plot(z, main="Lansing Woods")
      plot(which.max.im(z), main="Most common species")
   }Run the code above in your browser using DataLab