View source: R/averageDistance.R
1 | averageDistance(m = NULL)
|
m |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | ##---- Should be DIRECTLY executable !! ----
##-- ==> Define data, use random,
##-- or do help(data=index) for the standard data sets.
## The function is currently defined as
function (m = NULL)
{
if (is.null(m)) {
return(list(averageDistance = NA))
}
r_pop = raster(m)
return(list(averageDistance = cellStats(focal(r_pop, distanceMatrix(nrow(r_pop) -
1, ncol(r_pop) - 1), sum, pad = TRUE, padValue = 0) *
r_pop, sum)/(cellStats(r_pop, sum)^2 * sqrt(nrow(r_pop) *
ncol(r_pop)/pi))))
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.