R/nr_losses_livstseed.R

In pik-piam/nitrogen: Nitrogen Library

#' nr_losses_livstseed
#'
#' @param fulldata data to perform actions on
#'
#' @author Jan-Philipp Dietrich
nr_losses_livstseed<-function(fulldata){
    kli<-expand.set(fulldata,"kli")
    out<-dimSums(nr_livestock_products_use(fulldata)[,,c("seed")][,,kli],dim=c(3.1,3.2))
    return(setNames(out,"losses_livstseed"))
}