MAD.simple <- function(x) {
nas <- length(which(is.na(x)))
n <- length(x)
not_na <- n - nas
mad <- SAD.simple(x) / not_na
return(mad)
}
MAD <- aggregatingFunction1 (MAD.simple)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.