Nothing
#' Function to calculate characteristics of an estimator (i.e. area)
#'
#' @param est an object of class RhrEstimator*
#' @param characteristic the name of the characteristic to be calculated
#' @param ... parameters passed to the characteristic function
#' @export
#' @return object of class RhrEstimatorCharacteristic
rhrEstimatorCharacteristic <- function(est, characteristic, ...) {
if (tolower(characteristic) == "area") {
return(rhrArea(est, ...))
}
if (tolower(characteristic) == "corearea") {
return(rhrCoreArea(est, ...))
}
}
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.