Nothing
eql <- function(x, y) {
if(length(x) > length(y)) {
y <- rep(y, , length(x))
} else {
x <- rep(x, , length(y))
}
rel2 <- ifelse(is.nan(x), is.nan(y), ifelse(is.nan(y), FALSE, x == y))
return(rel2)
}
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.