R/nr_food_kcal_pc.R

In pik-piam/nitrogen: Nitrogen Library

#' nr_food_kcal_pc
#'
#' @param fulldata data to perform actions on
#' @param populationcsv ???
#' @param fish_PJ_csv ???
#'
#' @author Jan-Philipp Dietrich
nr_food_kcal_pc<-function(fulldata, populationcsv,fish_PJ_csv=NULL){
    pop<-read.magpie(populationcsv)
    food_dem<-readGDX(fulldata,"i16_food_demand","f16_food_demand", format="first_found")
    food_dem_pc<-setNames(food_dem/pop/365/4.184*1000000,"food_kcal_pcpd_no_fish")
    if (!is.null(fish_PJ_csv)) {
        fish_dem_pc<-nr_fish_kcal_pc(populationcsv=populationcsv,fish_PJ_csv=fish_PJ_csv)
        food_dem_pc<-setNames(food_dem_pc+fish_dem_pc,"food_kcal_pcpd_incl_fish")
    }
    return(food_dem_pc)
}