#' 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"))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.