## Not run:
# !isBinary(c(1, 1.1, 1, 1.1, NA))
# isBinary(c(1, 2, 1, 2, NA))
# !isBinary(c(-9, 2.3, 4.1, -9, -9), -9)
# isBinary(c(-9, 2, 4, -9, -9), -9)
# isBinary(c(1, 2, 2, 1, -9, -9.9), c(-9, -9.9))
# ## End(Not run)
Run the code above in your browser using DataLab