#' nr_fish
#'
#' @param fish_PJ_csv data to perform actions on
#'
#' @author Jan-Philipp Dietrich
nr_fish<-function(fish_PJ_csv="dem_fish_PJ.cs3"){
fish<-read.magpie(fish_PJ_csv)
#pop<-read.magpie(populationcsv)
# fish: ~0.156 g Protein per kcal #FBS
# 4.184 joules per calory
# 0.16 g Nitrogen per g of protein
# y g Nr = x * kcal * 0.1 * 0.16
fish_nr<-fish/4.184*0.156*0.16
return(fish_nr)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.