R/nr_grazing_pasture.R

Defines functions nr_grazing_pasture

#' 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"))  
}
pik-piam/nitrogen documentation built on Nov. 5, 2019, 12:48 a.m.