Nothing
missingness <-
function(mat)
{
mu<-table(rowSums(is.na(mat)))
#row.names(mu)<-"#units"
mv<-colSums(is.na(mat))
list(number_of_missing_values=sum(mv),missing_values_per_unit=mu,missing_values_per_variable=mv)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.