#' nr_hh_waste
#'
#' @param fulldata data to perform actions on
#' @param waste_shr ???
#' @param fish_PJ_csv ???
#'
#' @author Jan-Philipp Dietrich
nr_hh_waste<-function(fulldata,waste_shr,fish_PJ_csv=NULL){
if (!is.null(fish_PJ_csv)) {
food1<-nr_food_products(fulldata=fulldata)
food2<-nr_fish(fish_PJ_csv=fish_PJ_csv)[,getYears(food1),]
food_demand<-food1+setNames(food2,NULL)
} else {
food_demand<-nr_food_products(fulldata=fulldata)
}
out<-food_demand*(setNames(waste_shr,NULL)[,getYears(food_demand),])
return(setNames(out,"hh_waste"))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.