Nothing
x <- array(
sample(as.raw(1:100)), c(5, 3, 2)
)
y <- array(
sample(as.raw(1:100)), c(5, 1, 1)
)
cond <- bc.raw(x, y, "!=")
print(cond)
bc_ifelse(cond, yes = x, no = y)
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.