#' nr_ag_res_recycle
#'
#' @param fulldata data to perform actions on
#'
#' @author Jan-Philipp Dietrich
nr_ag_res_recycle<-function(fulldata) {
out<-setNames(dimSums(nr_ag_res_use(fulldata)[,,"recycle"],dim=3.2),NULL)+setNames(dimSums(nr_ag_res_use(fulldata)[,,"burn"]*(1-readGDX(fulldata,"f51_res_combust_eff", format="first_found")),dim=3.2),NULL)
return(out)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.