Nothing

```
.binary.seq = function (m, n)
{ rep.vector = round (2 ^ (0:(m - 1) ) )
verts = matrix (0, nrow=n, ncol=m)
for (j in 1:m)
verts [,j] = rep (c (0, 1), times=rep.vector [j], each=rep.vector [1 + m - j])
verts
}
.binary.sign = function (binary)
{ sums = apply (binary, 1, sum)
sign = rep (1L, nrow (binary) )
if (ncol (binary) %% 2 == 0)
sign [(1 + sums) %% 2 == 0] = -1L
else
sign [sums %% 2 == 0] = -1L
sign
}
comb.prob = function (F, a, b)
{ has.matrix.args = (is.matrix (a) && is.matrix (b) )
if (has.matrix.args)
{ m = ncol (a)
if (nrow (a) != nrow (b) )
stop ("nrow(a) must equal nrow(b)")
if (ncol (a) != ncol (b) )
stop ("ncol(a) must equal ncol(b)")
}
else
{ m = length (a)
if (length (a) != length (b) )
stop ("length(a) must equal length(b)")
}
nF = as.integer (round (2 ^ m) )
binary = .binary.seq (m, nF)
sign = .binary.sign (binary)
y = 0
for (i in 1:nF)
{ x = a
j = as.logical (binary [i,])
if (has.matrix.args)
x [,j] = b [,j]
else
x [j] = b [j]
y = y + sign [i] * F (x)
}
y
}
```

**Any scripts or data that you put into this service are public.**

Embedding an R snippet on your website

Add the following code to your website.

For more information on customizing the embed code, read Embedding Snippets.