R/ppAnoxia.R

In HFpostdoc/sarModel: Sarracenia micro-ecosystem model

#' @title ppAnoxia 
#' 
#' Description ppAnoxia 
#' 
#' @param x x
#' @param relative relative
#' @export ppAnoxia
#' @return ppAnoxia
ppAnoxia <- function(x,thresh=1.6,relative=TRUE){
    o2 <- x$Oxygen
    if (relative){out <- length(o2[o2 <= thresh]) / length(o2)}else{
        out <- length(o2[o2 <= thresh])
    }
    return(out)
}