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