calcWeightNash <- function() {
x <- readSource("REMIND_11Regi",subtype="nashWeight")
getNames(x) <- NULL
return(list(x = x,
weight = NULL,
unit = "factor",
description = "fallback Nash weights only to be used if due to infeasibilities internal computation of weights does not work"))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.