R/nr_cropuse_budget.R

In pik-piam/nitrogen: Nitrogen Library

#' 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))
}