R/nullClimate.R

In PredictiveEcology/LandR: Landscape Ecosystem Modelling in R

#' Null climate effect
#'
#' Default climate effects function in the case where no climate effect is simulated
#'
#' @param cohortData a \code{cohortData} object that will be used to calculate the \%
#'    reduction/increase of mortality and growth biomasses per cohort.
#' @param ... additional arguments that are passed to LandR.CS
#'
#' @return \code{data.table} with \code{pixelGroup}, \code{age} and \code{speciesCode}, as well as
#'   \code{mortPred} and \code{growthPred} columns with \% reduction/increase of mortality and
#'   growth biomasses resulting from a climate effect.
#'   These percentages are later multiplied by the by baseline biomasses of mortality and growth
#'   (e.g. 0\% meaning total mortality or growth reduction, and 100\% meaning no reduction).
#'   This default, no climate effect, function outputs 100\% for all cohorts for both
#'   \code{mortPred} and \code{growthPred}.
#'
#' @export
#' @importFrom data.table data.table
calculateClimateEffect <- function(cohortData, ...) {
  predObj <- unique(cohortData[, .(pixelGroup, age, speciesCode)])
  predObj[, `:=`(mortPred = 100, growthPred = 100)]
  return(predObj)
}