kmBlock-package: kmBlock: k-Means Like Blockmodeling of One-Mode and Linked...

In kmBlock: k-Means Like Blockmodeling of One-Mode and Linked Networks

kmBlock: k-Means Like Blockmodeling of One-Mode and Linked Networks

Description

Implements k-means like blockmodeling of one-mode and linked networks as presented in Žiberna (2020) \Sexpr[results=rd]{tools:::Rd_expr_doi("10.1016/j.socnet.2019.10.006")}. The development of this package is financially supported by the Slovenian Research Agency (https://www.arrs.si/) within the research programs P5-0168 and the research projects J7-8279 (Blockmodeling multilevel and temporal networks) and J5-2557 (Comparison and evaluation of different approaches to blockmodeling dynamic networks by simulations with application to Slovenian co-authorship networks).

Author(s)

Maintainer: Aleš Žiberna [e-mail]

References

Žiberna, Aleš (2020). k-means-based algorithm for blockmodeling linked networks. Social Networks 32(1), 105-126, \Sexpr[results=rd]{tools:::Rd_expr_doi("10.1016/j.socnet.2019.10.006")}.

See Also

kmBlockORPC

kmBlockC

Examples

# Simple one-mode network
library(blockmodeling)
k<-2
blockSizes<-rep(20,k)
IM<-matrix(c(0.8,.4,0.2,0.8), nrow=2)
if(any(dim(IM)!=c(k,k))) stop("invalid dimensions")

set.seed(2021)
clu<-rep(1:k, times=blockSizes)
n<-length(clu)
M<-matrix(rbinom(n*n,1,IM[clu,clu]),ncol=n, nrow=n)
diag(M)<-0
plotMat(M)

resORP<-kmBlockORPC(M,k=2, rep=10, return.all = TRUE)
plot(resORP)
clu(resORP)


# Linked network
library(blockmodeling)
set.seed(2021)
IM<-matrix(c(0.8,.4,0.2,0.8), nrow=2)
clu<-rep(1:2, each=20)
n<-length(clu)
nClu<-length(unique(clu))
M1<-matrix(rbinom(n^2,1,IM[clu,clu]),ncol=n, nrow=n)
M2<-matrix(rbinom(n^2,1,IM[clu,clu]),ncol=n, nrow=n)
M12<-diag(n)
nn<-c(n,n)
k<-c(2,2)
Ml<-matrix(0, nrow=sum(nn),ncol=sum(nn))
Ml[1:n,1:n]<-M1
Ml[n+1:n,n+1:n]<-M2
Ml[n+1:n, 1:n]<-M12
plotMat(Ml)

resMl<-kmBlockORPC(M=Ml, k=k, n=nn, rep=10)
plot(resMl)
clu(resMl)

kmBlock documentation built on Sept. 18, 2023, 3:03 p.m.