diff --git a/R/reportTax.R b/R/reportTax.R index 9f119320..e924178a 100644 --- a/R/reportTax.R +++ b/R/reportTax.R @@ -224,10 +224,6 @@ reportTax <- function(gdx,output=NULL,regionSubsetList=NULL,t=c(seq(2005,2060,5) p21_taxrevPE2SE0 <- readGDX(gdx, name=c("p21_taxrevPE2SE0"), format= "first_found")[,t,]*1000 out <- mbind(out, setNames(p21_taxrevPE2SE0,"Net Taxes|PE2SE Technologies (billion US$2005/yr)")) - #technology specific new capacity subsidies or taxes revenue - p21_taxrevTech0 <- readGDX(gdx, name=c("p21_taxrevTech0"), format= "first_found")[,t,]*1000 - out <- mbind(out, setNames(p21_taxrevTech0,"Net Taxes|Technologies delta cap (billion US$2005/yr)")) - # exports tax p21_taxrevXport0 <- readGDX(gdx, name=c("p21_taxrevXport0"), format= "first_found")[,t,]*1000 out <- mbind(out, setNames(p21_taxrevXport0,"Net Taxes|Exports (billion US$2005/yr)"))