Nothing
isBinary <-
function(arg) {
binary <- TRUE
arg <- as.matrix(na.exclude(arg))
if (is.matrix(arg)) {
u_mat <- unique(arg)
for (each in u_mat) {
if (each != 0 && each != 1) {
binary <- FALSE; break
}
} #breaks and returns FALSE as soon as it hits a non-missing, non (0,1) value
return(binary)
}
else {
message('Blau dimension columns must be coercable to matrix')
}
}
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.