Nothing
`fuzzyor` <- function(...) {
other.args <- list(...)
if (is.matrix(other.args[[1]]) | is.data.frame(other.args[[1]])) {
return(apply(other.args[[1]], 1, max))
}
else {
return(pmax(...))
}
}
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.