LNNB-snippet.R
From Organic Design wiki
mu <- defaults["mu"] sigma <- defaults["sigma"] tau <- defaults["tau"] p <- 2*slides means <- c(rep(rnorm(2*m1, mu, tau), each=slides),rep(rnorm(m0 , mu, tau), each=p))
X <- 2^(rnorm(m*p, means, sigma)) dim(X) <- c(p, m) X <- t(X)
