R/nr_fish.R

Defines functions nr_fish

#' 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)
}
pik-piam/nitrogen documentation built on Nov. 5, 2019, 12:48 a.m.