R/is.SubPlot.R

In Sumpfohreule/S4Level2: Aggregates FVA Level2 Raw Data

########################################################################################################################
#' Test if given object ist of class "SubPlot"
#' 
#' @return a boolean value
#' 
is.SubPlot <- function(x) {
    is_plot <- class(x) == "SubPlot"
    return(is_plot)
}