This section overrides the SDP scenario with SSP1, among others. Setting this issue as a reminder to remove it when we update the MAgPIE data.
|
|
|
# make SSP2EU scenario using SSP2 data --- ATTENTION: needs to be deleted as soon as we have data for SSP2EU |
|
xSSP2EU <- x[, , c("SSP2-NDC-NDC", "SSP2-NDC-PkBudg1300", "SSP2-NDC-PkBudg900", "SSP2-NPI-Base")] |
|
getNames(xSSP2EU) <- gsub("SSP2", "SSP2EU", getNames(xSSP2EU)) |
|
x <- mbind(x, xSSP2EU) |
|
# make SDP* scenarios using SSP1 data --- ATTENTION: needs to be deleted as soon as we have data for SDP* |
|
xSDPEI <- x[, , c("SSP1-NDC-NDC", "SSP1-NDC-PkBudg1300", "SSP1-NDC-PkBudg900", "SSP1-NPI-Base")] |
|
getNames(xSDPEI) <- gsub("SSP1", "SDP_EI", getNames(xSDPEI)) |
|
xSDPRC <- x[, , c("SSP1-NDC-NDC", "SSP1-NDC-PkBudg1300", "SSP1-NDC-PkBudg900", "SSP1-NPI-Base")] |
|
getNames(xSDPRC) <- gsub("SSP1", "SDP_RC", getNames(xSDPRC)) |
|
xSDPMC <- x[, , c("SSP1-NDC-NDC", "SSP1-NDC-PkBudg1300", "SSP1-NDC-PkBudg900", "SSP1-NPI-Base")] |
|
getNames(xSDPMC) <- gsub("SSP1", "SDP_MC", getNames(xSDPMC)) |
|
x <- mbind(x, xSDPEI, xSDPRC, xSDPMC) |