R/nr_hh_waste.R

In pik-piam/nitrogen: Nitrogen Library

#' 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"))
}