R/nr_livestock_products.R

In pik-piam/nitrogen: Nitrogen Library

#' nr_livestock_products
#'
#' @param fulldata data to perform actions on
#'
#' @author Jan-Philipp Dietrich
nr_livestock_products<-function(fulldata) {
    kli <- expand.set(fulldata,"kli")
    out <- livestock_production(fulldata)[,,kli]*collapseNames(readGDX(fulldata, "f55_attributes_livstproducts", format="first_found")[,,"nr"][,,kli])
    return(out)
}