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