R/nr_food_products.R

In pik-piam/nitrogen: Nitrogen Library

#' nr_food_products
#'
#' @param fulldata data to perform actions on
#' @param fish_PJ_csv ???
#'
#' @author Jan-Philipp Dietrich
nr_food_products<-function(fulldata, fish_PJ_csv="dem_fish_PJ.cs3"){
    out<-nr_plant_products(fulldata=fulldata) +
        dimSums(nr_livestock_products_use(fulldata=fulldata)[,,"food"],dim=c(3.1,3.2))
    out<- out + nr_fish(fish_PJ_csv=fish_PJ_csv)[,getYears(out),]
    out<-setNames(out,"food_products")            
    return(out)
}