step.forward <- function(z, p, A, Ap, net) {
ind=rowmatch(A,z)
out=xor(Ap[ind,], matrix(Rlab::rbern(length(net$genes)*nrow(z), p), ncol=length(net$genes)))
return(out)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.