View source: R/inference_lsm.R
Fit a Latent Space Model for a Binary Network
1 | lsm(graph, ndim = 2, nstart = 5)
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | ## load the karate club data
data(karate, package="T4network")
## compute 2-dimensional latent space
lsm.embed = lsm(karate$A, ndim=2)
## prepare for plotting with 'igraph' with fixed layout
obj.igraph = igraph::graph_from_adjacency_matrix(karate$A, mode="undirected")
## visualize
opar <- par(no.readonly=TRUE)
par(mfrow=c(1,2))
plot(obj.igraph, vertex.color=karate$label, vertex.label=NA,
main="igraph visualization")
plot(obj.igraph, vertex.color=karate$label, vertex.label=NA,
layout=lsm.embed$latent, main="Latent space embedding")
par(opar)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.