R/nr_grazing_pasture.R

In pik-piam/nitrogen: Nitrogen Library

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