#' 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))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.