.onAttach <-
function(libname, pkgname) {
packageStartupMessage(" **********************************************************************")
packageStartupMessage(" GRMeta: chemical data processing at Gustave Roussy - David Enot - 2017")
packageStartupMessage(" Latest source code available at https://github.com/tonedivad/GRMeta")
packageStartupMessage(" **********************************************************************")
}
.cvf <- function(x, n = 0) ifelse(sum(!is.na(x)) >= n, 100 *
sd(x, na.rm = T)/mean(x, na.rm = T), NA)
.cvrf <- function(x, n = 0) ifelse(sum(!is.na(x)) >= n, 100 *
mad(x, na.rm = T)/median(x, na.rm = T), NA)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.