Nothing
BASIX.equal <- function(a,b){
if(is.character(a)){
eq <- .Call("Ccompare2",a,b,PACKAGE="BASIX")
}else{
eq <- .Call("Ccompare",a,b,PACKAGE="BASIX")
}
eq <- as.logical(eq)
return(eq)
}
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.