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