From e9c82975925724b4e6e2612bee2680ff2b1f782e Mon Sep 17 00:00:00 2001 From: Falk Benke Date: Thu, 21 Mar 2024 10:13:35 +0100 Subject: [PATCH] remove plotCDR and convergenceCheck --- scripts/output/comparison/plotCDR.R | 34 ------------------------ scripts/output/single/convergenceCheck.R | 28 ------------------- 2 files changed, 62 deletions(-) delete mode 100644 scripts/output/comparison/plotCDR.R delete mode 100644 scripts/output/single/convergenceCheck.R diff --git a/scripts/output/comparison/plotCDR.R b/scripts/output/comparison/plotCDR.R deleted file mode 100644 index 45c54aad3..000000000 --- a/scripts/output/comparison/plotCDR.R +++ /dev/null @@ -1,34 +0,0 @@ -# | (C) 2006-2023 Potsdam Institute for Climate Impact Research (PIK) -# | authors, and contributors see CITATION.cff file. This file is part -# | of REMIND and licensed under AGPL-3.0-or-later. Under Section 7 of -# | AGPL-3.0, you are granted additional permissions described in the -# | REMIND License Exception, version 1.0 (see LICENSE file). -# | Contact: remind@pik-potsdam.de - -library(gms) -library(lucode2) -library(remind2) -library(lusweave) -library(mip) - -############################# BASIC CONFIGURATION ############################# - -if(!exists("source_include")) { - #Define arguments that can be read from command line - outputdirs <- c("C:/Users/lavinia/Documents/MEINS/MO/comparisonREMIND17REMIND20/output/r7463c_SSP2-Base-rem-5", - "C:/Users/lavinia/Documents/MEINS/MO/comparisonREMIND17REMIND20/output/BAU_2018-04-28_11.23.55"); - # path to the output folder - readArgs("outputdirs") -} - -############################################################################### - -# Set mif path -scenNames <- getScenNames(outputdirs) -mif_path <- file.path(outputdirs,paste("REMIND_generic_",scenNames,".mif",sep="")) -hist_path <- file.path(outputdirs[1],"historical.mif") - -# make comparision based on mif files -plotCDR(mif=mif_path, hist=hist_path, reg="all_reg") - - diff --git a/scripts/output/single/convergenceCheck.R b/scripts/output/single/convergenceCheck.R deleted file mode 100644 index cd15d6c26..000000000 --- a/scripts/output/single/convergenceCheck.R +++ /dev/null @@ -1,28 +0,0 @@ -# | (C) 2006-2023 Potsdam Institute for Climate Impact Research (PIK) -# | authors, and contributors see CITATION.cff file. This file is part -# | of REMIND and licensed under AGPL-3.0-or-later. Under Section 7 of -# | AGPL-3.0, you are granted additional permissions described in the -# | REMIND License Exception, version 1.0 (see LICENSE file). -# | Contact: remind@pik-potsdam.de -library(magclass) -library(remind2) -library(gms) -library(lucode2) -library(methods) -############################# BASIC CONFIGURATION ############################# -gdx_name <- "fulldata.gdx" # name of the gdx - -if(!exists("source_include")) { - #Define arguments that can be read from command line - outputdir <- "output/R17IH_SSP2_postIIASA-26_2016-12-23_16.03.23" # path to the output folder - readArgs("outputdir","gdx_name") -} - -gdx <- file.path(outputdir,gdx_name) -scenario <- getScenNames(outputdir) -############################################################################### -# paths of the pdf file -file_name <- file.path(outputdir,paste0("convergenceCheck_",scenario,".pdf")) - -# produce convergende pdf based on gdx information -convergenceCheck(gdx,file=file_name)