#' @title Mary Hunnicut Layered Vegetation HSI
#'
#' @description Calculates the partial HSI given the presence of an ecotone.
#'
#' @param x A 1 or 0 indicating the presence or absence of an ecotone.
#'
#' @return Returns the relative HSI value
#'
#' @usage MH.eh(x)
#'
#' @details The presence or absence of an ecotone between drainage and upland grass habitat on each acre.
#'
#' @export
#' @name MH.eh
#' @author Dominic LaRoche
#'
MH.eh <- function(x){
s <- ifelse(x == 1, 1, 0)
return(s)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.