R/meanDist.R
In guiludwig/mat3c: Marked spatial point processes with inhibition based on Matern-III clustered marks
Defines functions
meanDist
meanDist <- function(x){
if(!is.null(x$fingers)){
d <- dist(x$fingers)
} else {
d <- dist(cbind(x$x, x$y))
}
if(length(d) == 0){
return(0)
} else {
return(mean(d))
}
}
guiludwig/mat3c documentation built on Dec. 2, 2019, 1:32 a.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Defines functions meanDist
meanDist <- function(x){
if(!is.null(x$fingers)){
d <- dist(x$fingers)
} else {
d <- dist(cbind(x$x, x$y))
}
if(length(d) == 0){
return(0)
} else {
return(mean(d))
}
}
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.