averageDistance:

Usage Arguments Examples

View source: R/averageDistance.R

Usage

1

Arguments

m

Examples

 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))))
  }

JusteRaimbault/r-spatialmorphology documentation built on May 22, 2019, 5:07 p.m.