R/nr_production_pasture.R

In pik-piam/nitrogen: Nitrogen Library

#' nr_production_pasture
#'
#' @param fulldata data to perform actions on
#'
#' @author Jan-Philipp Dietrich
nr_production_pasture<-function(fulldata) {
    return(
        setNames(collapseNames(readGDX(fulldata,"ov_prod_reg", format="first_found")[,,"pasture"][,,"level"])*
                     collapseNames(readGDX(fulldata, "im_attributes_harvest", format="first_found")[,,"nr"][,,"pasture"]),"pasture")
    )  
}