#' nr_slaughtered_animals
#'
#' @param fulldata data to perform actions on
#'
#' @author Jan-Philipp Dietrich
# Slaughtered animals
nr_slaughtered_animals<-function(fulldata) {
kli <- readGDX(fulldata, "kli")
use_reg <- nr_use(fulldata,nutrient="dm_model")[,,kli]
animal_shr <- readGDX(fulldata, "i55_animal_shr_awms", format="first_found")[,,kli]
slaughter_factor <- readGDX(fulldata, "f55_slaughter_factor", format="first_found")[,,kli]
attributes_animals <- collapseNames(readGDX(fulldata, "f55_attributes_living_animals", format="first_found")[,,"nr"])[,,kli]
out <- use_reg*slaughter_factor*attributes_animals*as.magpie(aperm(unwrap(animal_shr),c(1,2,4,3)))
return(out)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.