R/nr_waste_shr.R

In pik-piam/nitrogen: Nitrogen Library

#' nr_waste_shr
#'
#' @param fulldata data to perform actions on
#' @param kcal ???
#' @param populationcsv ???
#' @param fish_PJ_csv ???
#'
#' @author Jan-Philipp Dietrich
nr_waste_shr<-function(fulldata,kcal=2200, populationcsv, fish_PJ_csv=NULL){
    food_dem_pc<-nr_food_kcal_pc(fulldata=fulldata,populationcsv=populationcsv,fish_PJ_csv=fish_PJ_csv)
    waste<-(food_dem_pc-2200)
    undernurished<-which((0.10*food_dem_pc)>(food_dem_pc-2200),arr.ind=TRUE)
    waste[undernurished] <- (0.10*food_dem_pc)[undernurished]
    waste_shr<-setNames(waste/food_dem_pc,"waste_shr")
    return(waste_shr)
}