Nothing
is.even <-
function (i)
{
if (any(i != trunc(i)))
stop("All values of 'i' must be integers")
(i%%2) == 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.