Nothing
clean.na <- function (x, margin, drop = FALSE) {
ind <- apply(x, margin, function(xx) all(!is.na(xx)))
if (margin == 1) x[ind, , drop = drop]
else x[, ind, drop = drop]
}
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.