Set price level ratio years and names to NULL

pik-piam · Nov 13, 2024 · 4a3c9f0 · 4a3c9f0
1 parent a574dc7
commit 4a3c9f0
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/R/calcRatioPPP2MER.R b/R/calcRatioPPP2MER.R
@@ -16,6 +16,9 @@ calcRatioPPP2MER <- function(when = 2017) {
   data <- readSource("WDI", "PA.NUS.PPPC.RF")[, when, ]
   # Replace 0s with 1s. This was done previously. Other solutions here should be taken into consideration.
   data[data == 0] <- 1
+  # Set names and years to NULL, for GAMS interface to work.
+  getNames(data) <- NULL
+  getYears(data) <- NULL
 
   weight <- calcOutput("GDPPast", aggregate = FALSE, years = when)