Semiparametric spectral modeling
parky
Fri Mar 24 08:10:10 2017
library(mbstructure)
data(MBconnectome)
out <- generate.graph(newrdat, vdf.right)
g <- out$g
vdf <- out$vdf
dmax <- 50
Xhat <- doEmbed(g, dmax, plotElbow=FALSE)
suppressMessages(library(mclust))
Kmax <- 19
mc <- Mclust(Xhat, 1:Kmax)
vdf$cluster <- factor(mc$class)
sout <- synthMB(g, vdf)
semiout <- plotMLE(Xhat, vdf)
