#' nr_manure_recycl_past
#'
#' @param fulldata data to perform actions on
#'
#' @author Jan-Philipp Dietrich
nr_manure_recycl_past<-function(fulldata){
manure <- nr_manure(fulldata)
recycl_conf <- readGDX(fulldata, "i55_recycl_conf", format="first_found")[,,"nr"]
conf_to_cropl_shr <- readGDX(fulldata, "i55_conf_to_cropl_shr", format="first_found")
out <- (
setNames(dimSums(manure[,,"confinement"]*recycl_conf*(1-conf_to_cropl_shr),dim=3.1),NULL)
)
return(setNames(out,"manure_recycl_past"))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.