Nothing
step.forward <- function(z, p, net) {
a <- t(apply(z, 1, function(x) {BoolNet::stateTransition(net,x)}))
a[a>0] = 1
a[a<0] = 0
b <- xor(a, matrix(Rlab::rbern(length(net$genes)*nrow(z), p), ncol=length(net$genes)))
return (b)
}
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.