Nothing
XY.function <-
function (a, b)
{
if (b == 1) {
result = sum(a[, 1] * a[, 2] * a[, 3])
}
else {
if (b == 2) {
result = sum((1 - a[, 1]) * (1 - a[, 2]) * a[, 3])
}
else {
if (b == 3) {
result = sum(a[, 1] * (1 - a[, 2]) * a[, 3])
}
else {
if (b == 4) {
result = sum((1 - a[, 1]) * a[, 2] * a[, 3])
}
}
}
}
return(result)
}
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.