Nothing
# Returns a sequence of integers from a to b if a <= b,
# otherwise nothing. You have no idea how important this
# function is...
Seq <- function(a, b, ...) {
if (a<=b) return(seq(a,b,...))
else return(numeric(0))
}
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.