Nothing
is.even <- function( x ) return( ifelse( x %% 2 == 0, TRUE, FALSE ) )
is.odd <- function( x ) return( ifelse( x %% 2 == 1, TRUE, FALSE ) )
even <- function( x ) return( x[ is.even( x ) ] )
odd <- function( x ) return( x[ is.odd( x ) ] )
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.