#' 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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.