Nothing
#' matperim
#'
#' @param mat 2-column matrix representing the xy coordinates of a closed polygon or line segment
#'
#' @return The length of the perimeter
matperim <- function(mat) {
return(sum(sqrt((mat[2:nrow(mat),1]-mat[1:(nrow(mat)-1),1])^2 + (mat[2:nrow(mat),2]-mat[1:(nrow(mat)-1),2])^2)))
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.