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