R/nr_slaughter_waste.R

In pik-piam/nitrogen: Nitrogen Library

#' nr_slaughter_waste
#'
#' @param fulldata data to perform actions on
#'
#' @author Jan-Philipp Dietrich
nr_slaughter_waste<-function(fulldata){
    kli <- readGDX(fulldata, "kli")
    out <- dimSums(nr_slaughtered_animals(fulldata),dim=3.3) - nr_livestock_products_use(fulldata)
    return(out)
}