Nothing
x.dim <- c(5, 3, 2)
x.len <- prod(x.dim)
x <- array(sample(1:100), x.dim)
y <- array(sample(1:100), c(5, 1, 1))
cond <- bc.i(x, y, ">")
bc_ifelse(cond, yes = x^2, 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.