Nothing
"rg.remove.na" <-
function(xx)
{
# Function to remove NAs from a vector and inform the user of how many.
#
nna <- 0
wna <- is.na(xx)
if(any(wna)) {
x <- xx[!wna]
nna <- sum(wna)
# cat(" ", nna, "NA (missing) values removed from input vector\n")
}
else x <- xx
invisible(list(x = x, nna = nna))
}
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.