R/nr_supplychain_budget.R

In pik-piam/nitrogen: Nitrogen Library

#' nr_supplychain_budget
#'
#' @param fulldata data to perform actions on
#'
#' @author Jan-Philipp Dietrich
nr_supplychain_budget<-function(fulldata){
    kcr<-readGDX(fulldata,"kcr")
    out<-combine.chunks(setNames(dimSums(nr_harvest(fulldata),dim=3.1),"crops"),setNames(dimSums(nr_ag_res_use(fulldata)[,,c("feed","other","bioenergy")],dim=c(3.1,3.2)),"ag_res"))
    out<-combine.chunks(out,nr_feed(fulldata)[,,c("pasture","scavenging")])
    out<-combine.chunks(out,-setNames(dimSums(nr_manure(fulldata),dim=c(3.1,3.2)),"manure"))
    
    out<-combine.chunks(out,-nr_plant_products(fulldata))
    out<-combine.chunks(out,-dimSums(nr_use(fulldata)[,,c("seed","material","bioenergy")][,,kcr],dim=3.2))
    out<-combine.chunks(out,-setNames(dimSums(nr_ag_res_use(fulldata)[,,c("other","bioenergy")],dim=c(3.1,3.2)),"ag_res_otherbio"))  
    out<-combine.chunks(out,-nr_losses_convby(fulldata))  
    out<-combine.chunks(out,-setNames(dimSums(nr_slaughtered_animals(fulldata)[,,c("food","material","seed","bioenergy")],dim=c(3.1,3.2,3.3)),"slaughtered_animals"))
    return(as.magpie(out))
}