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