Nothing
RemoveMissingData <-
function(x) {
#
# Listwise deletion of missing data.
#
# Args:
# x: Data (matrix).
#
# Returns:
# Data after listwise deletion of missing data (matrix).
#
n <- dim(x)[1]
y <- na.omit(x)
n.y <- dim(y)[1]
if (n.y < n) {
cat(" * ", n - n.y, " cases (", round(100 * (n - n.y) / n, 1),
"%) contained missing data;\n ", n.y, " out of ", n, " cases (",
round(100 * n.y / n, 1), "%) retained for analysis\n", sep = "")
}
return(y)
}
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.