R/nr_losses.R

In pik-piam/nitrogen: Nitrogen Library

#' nr_losses
#'
#' @param fulldata data to perform actions on
#' @param fish_PJ_csv ???
#'
#' @author Jan-Philipp Dietrich
nr_losses<-function(fulldata,fish_PJ_csv="dem_fish_PJ.cs3") {
    out<-combine.chunks(nr_losses_material(fulldata),nr_losses_hhwaste_sewage(fulldata,fish_PJ_csv=fish_PJ_csv))
    out<-combine.chunks(nr_manure_recycl_past(fulldata),out)
    out<-combine.chunks(nr_losses_convby(fulldata),out)
    out<-combine.chunks(nr_losses_bioenergy(fulldata),out)  
    out<-combine.chunks(nr_losses_resother(fulldata),out)
    out<-combine.chunks(nr_losses_resburn(fulldata),out)
    out<-combine.chunks(nr_losses_slwaste(fulldata),out)
    out<-combine.chunks(nr_losses_awms(fulldata),out)
    out<-combine.chunks(nr_losses_field(fulldata),out)
    out<-combine.chunks(out,nr_losses_livstseed(fulldata))
    out<-as.magpie(out)
    return(out)
}