predictiveecology / canclimatedata Goto Github PK

    climateVariables <- list(
      historic_CMI_normal = list(
        vars = "historic_CMI_normal",
        fun = quote(calcCMInormal),
        .dots = list(historic_period = historic_prd, historic_years = historic_yrs)
      ),
      historic_MDC = list(
        vars = c(sprintf("historic_PPT%02d", 4:9), sprintf("historic_Tmax%02d", 4:9)),
        fun = quote(calcMDC),
        .dots = list(historic_years = historic_yrs)
      ),
      projected_ATA = list(
        vars = c("future_MAT", "historic_MAT_normal"),
        fun = quote(calcATA),
        .dots = list(historic_period = historic_prd, future_years = projected_yrs)
      ),
      projected_CMI = list(
        vars = "future_CMI",
        fun = quote(calcAsIs),
        .dots = list(future_years = projected_yrs)
      ),
      projected_MDC = list(
        vars = c(sprintf("future_PPT%02d", 4:9), sprintf("future_Tmax%02d", 4:9)),
        fun = quote(calcMDC),
        .dots = list(future_years = projected_yrs)
      )
    )

  ## objects for LandR.CS:
  sim$ATAstack <- climateRasters$projected_ATA
  sim$CMIstack <- climateRasters$projected_CMI
  sim$CMInormal <- climateRasters$historic_CMI_normal

  ## objects for fireSense:
  sim$historicalClimateRasters <- list(MDC = climateRasters$historic_MDC)
  sim$projectedClimateRasters <- list(MDC = climateRasters$projected_MDC)