R/lakeMeanWidth.R

Defines functions lakeMeanWidth

Documented in lakeMeanWidth

#' Function to return lake Mean Width
#' 
#' Mean lake width is the result of lake surface area divded by the maximum 
#' length.
#' 
#' @param inLakeMorpho An object of \code{\link{lakeMorphoClass}}.  Output of the 
#'        \code{\link{lakeSurroundTopo}} function would be appropriate as input
#' @export      
#' @return Returns a numeric value for the mean width of the lake 
#' @references Florida LAKEWATCH (2001). A Beginner's guide to water management
#'             - Lake Morphometry (2nd ed.). Gainesville: Florida LAKEWATCH, 
#'             Department of Fisheries and Aquatic Sciences.
#'             \href{http://edis.ifas.ufl.edu/pdffiles/FA/FA08100.pdf}{Link}
#' #' @import rgeos
#' 
#' @examples
#' data(lakes)
#' lakeMaxLength(inputLM, 50)
#' lakeMeanWidth(inputLM)
#' 

lakeMeanWidth <- function(inLakeMorpho) {
    if (class(inLakeMorpho) != "lakeMorpho") {
        stop("Input data is not of class 'lakeMorpho'.  Run lakeSurroundTopo first.")
    }
    if (is.null(inLakeMorpho$maxLengthLine)) {
        stop("Input 'lakeMorpho' does not contain a Maximum Length Line.  Run lakeMaxLength  first.")
    }
    return(round(lakeSurfaceArea(inLakeMorpho)/gLength(inLakeMorpho$maxLengthLine), 4))
} 

Try the lakemorpho package in your browser

Any scripts or data that you put into this service are public.

lakemorpho documentation built on Sept. 24, 2021, 1:06 a.m.