MBQhsi/R/MHbg.R

In rocrat/MBQ_Package: Masked Bobwhite HSI Models

#' @title Mary Hunnicut Bare Ground HSI
#'
#' @description Calculates the partial HSI given a proportion of bare ground
#'
#' @param x The proportion of bare ground (in decimal form)
#'
#' @return Returns the relative HSI value
#'
#' @usage MH.bg(x)
#'
#' @details Amount of bare ground, including that under vegetation. Must be capable of being traversed by a bobwhite. Measured as one would on Daubenmire transect.
#'
#' @export
#' @name MH.bg
#' @author Dominic LaRoche

MH.bg <- function(x){
  s <- ifelse( x < .2805743, dbeta(x, 3, 4.5)/2,
               ifelse(x > .4525119, dbeta(x, 3, 4.5)/2, 1))
  return(s)
}