##' Sets the rules for fat adjustments
##'
##' For internal use only
##' @title fat_adjust
##' @param ... Ignored.
##' @return A list with contaminants, species and possibly locales where
##' fatadjustment should be made.
##' @author Erik Lampa
##' @export
fat_adjust <- function(...) {
# ## Sets which variables, species and locales are to be fat adjusted
# list(list(VAR = "CD", GENUS = "GADU"),
# list(VAR = "ZN", GENUS = "GADU"),
# list(VAR = "NI", GENUS = "GADU"),
# list(VAR = "DDE", GENUS = "CLUP", LOC = c("UTLV", "ANGV")),
# list(VAR = "PCBSUM", GENUS = "CLUP", LOC = c("UTLV", "ANGV")),
# list(VAR = "DDE", GENUS = "GADU"))
list()
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.