#' nr_losses_material
#'
#' @param fulldata data to perform actions on
#'
#' @author Jan-Philipp Dietrich
nr_losses_material<-function(fulldata){
out<-dimSums(nr_use(fulldata=fulldata,nutrient="nr")[,,"material"],dim=c(3.1,3.2))
return(setNames(out,"losses_material"))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.