R/nr_final_demand_fbs.R

In pik-piam/nitrogen: Nitrogen Library

#' nr_final_demand_fbs
#'
#' @param fulldata data to perform actions on
#' @param nutrient the nutrient
#'
#' @author Jan-Philipp Dietrich
nr_final_demand_fbs<-function(fulldata,nutrient="nr"){
    food<-as.magpie(unwrap(nr_use(fulldata,nutrient="dm_model"))[,,"food",])
    content<-collapseNames(readGDX(fulldata,"i51_attributes_products_isabelle", format="first_found")[,,nutrient])
    out<-food*content
    return(out)
}