#' Dealing with NAs
#'
#' Doing common tasks with missings
#' @name NA
#' @param x vector
#' @param X data.table
frac_NA <- function(x) mean(is.na(x))
#' @name NA
sum_NA <- function(x) sum(is.na(x))
#' @name NA
rowsum_NA <- function(X) {
out <- integer(nrow(X))
for(i in seq_along(X)) out <- out + is.na(X[[i]])
out
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.