#' Missings in Stata
missings.stata <- function(data, missings, missing_codes=NULL)
{
if(length(data) != length(missings))
missings <- rep(NA, length(data))
if(is.null(missing_codes))
return(missings)
missings <-
ifelse(
data %in% missing_codes & data != NA,
var,
missings)
return(missings)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.