Nothing
Even <- function(x){
result <- vector()
if(!is.numeric(x)){
cat("Even only works on numbers")
stop()
}
for(i in 1:length(x)){
if(x[i]/2 == round(x[i]/2)){
result[i] <- T
}else{
result[i] <- F
}
}
return(result)
}
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.