R/nr_losses_resburn.R

In pik-piam/nitrogen: Nitrogen Library

#' 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"))
}