R/nr_livestock_budget.R

In pik-piam/nitrogen: Nitrogen Library

#' nr_livestock_budget
#'
#' @param fulldata data to perform actions on
#'
#' @author Jan-Philipp Dietrich
nr_livestock_budget<-function(fulldata){
    out<-combine.chunks(nr_feed(fulldata),-nr_losses_awms(fulldata))
    out<-combine.chunks(out,setNames(-dimSums(nr_manure(fulldata)[,,"fuel"],dim=3.1),"manure_fuel"))
    out<-combine.chunks(out,setNames(-dimSums(nr_manure(fulldata)[,,"grazing_pasture"],dim=3.1),"manure_grazing"))
    out<-combine.chunks(out,-nr_manure_recycl_cropl(fulldata))
    out<-combine.chunks(out,-nr_manure_recycl_past(fulldata))
    out<-combine.chunks(out,-setNames(dimSums(nr_livestock_products(fulldata),dim=3.1),"livst_products"))
    out<-combine.chunks(out,-setNames(dimSums(nr_slaughter_waste(fulldata),dim=c(3.1,3.2)),"slaughter_waste"))
    return(as.magpie(out))
}