R/nr_ag_res_recycle.R

In pik-piam/nitrogen: Nitrogen Library

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