#' nr_cropuse_budget
#'
#' @param fulldata data to perform actions on
#'
#' @author Jan-Philipp Dietrich
nr_cropuse_budget<-function(fulldata){
kcr<-expand.set(fulldata,"kcr")
out<-combine.chunks(setNames(dimSums(nr_harvest(fulldata),dim=3.1),"crop_production"),-nr_plant_products(fulldata))
out<-combine.chunks(out,-dimSums(nr_use(fulldata)[,,c("seed","material","feed","bioenergy")][,,kcr],dim=3.2))
out<-combine.chunks(out,-setNames(nr_convby_prod(fulldata),"convby"))
return(as.magpie(out))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.