R/get_RCP2.6.R

In epcc: Simulating Populations of Ectotherms under Global Warming

#'Projected values under IPCC RCP2.6 scenario
#'
#'@description This function allows obtaining the projected increment in environmental
#'             temperature according to the IPCC RCP2.6 scenario (2014).
#'
#'@param date A specific year or a vector of years.
#'
#'@details The temperature increment projection of the change in global mean surface
#'         temperature according to the IPCC RCP2.6 scenario. It is possible to get
#'         the value for one or various years.
#'
#'@return No return value, called for side effects.
#'
#'@references IPCC. (2014): Climate Change 2014: Synthesis Report. Contribution of Working Groups I,
#'            II and III to the Fifth Assessment Report of the Intergovernmental Panel on Climate
#'            Change [Core Writing Team, R.K. Pachauri and L.A. Meyer (eds.)]. IPCC, Geneva,
#'            Switzerland, 151 pp.
#'
#'@export
#'@examples
#'
#'########################################################################
#'  #Example 1: Projection of the temperature increase for a given year.
#'########################################################################
#'
#'date <- 2050
#'temp <- get_RCP2.6(date)
#'temp
#'
#'########################################################################
#'  #Example 2: Projection of the temperature increase for a vector of years.
#'########################################################################
#'
#'date <- seq(2005,2100,1/12)
#'temp <- get_RCP2.6(date)
#'plot(date,temp, type="l")

get_RCP2.6  <- function(date){
  ifelse(( 2005 <= date & date<=2065),0.61*(100/61)^{(date-2005)/60},ifelse((2065<date & date<=2100),1,NA))
}