# NOT RUN {
library(amber)
library(classInt)
library(doParallel)
library(foreach)
library(Hmisc)
library(latex2exp)
library(ncdf4)
library(parallel)
library(raster)
library(rgdal)
library(rgeos)
library(scico)
library(sp)
library(stats)
library(utils)
library(viridis)
library(xtable)
mod01.path <- system.file('extdata/SIMod01', package = 'amber')
mod02.path <- system.file('extdata/SIMod02', package = 'amber')
mod.path.list <- list(mod01.path, mod02.path)
modelIDs <- c('CLASSIC.CRUJRAv2', 'CLASSIC.GSWP3W5E5')
variableNames <- c('HFG', 'HFLS', 'HFSS', 'RNS')
referenceNames <- c('FLUXNET', 'CLASS')
plotBars(mod.path.list, modelIDs, variableNames, referenceNames,
showFractions = TRUE, targetVariable = 'RNS', ofileName = 'barplot.pdf',
plot.width = 5, plot.height = 5, outputDir = FALSE)
# }
Run the code above in your browser using DataLab