# NOT RUN {
# }
# NOT RUN {
set.seed(1973)
\## generate an array with two constant blocks
Y <- MakeBlockNetworkChange(n=10, shape=10, T=40, type ="constant")
out0 <- NetworkStatic(Y, R=2, mcmc=10, burnin=10,
verbose=10, UL.Normal = "Orthonormal")
\## latent node positions
plotU(out0)
# }
Run the code above in your browser using DataLab