1d:T72e,# kmBlock: k-Means Like Blockmodeling of One-Mode and Linked Networks Implements k-means like blockmodeling of one-mode and linked networks as presented in Žiberna (2020) 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/](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). package ## Examples ```r # 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) ``` ## References Žiberna, Aleš (2020). k-means-based algorithm for blockmodeling linked networks. Social Networks 32(1), 105-126, tools:::Rd_expr_doi("10.1016/j.socnet.2019.10.006") . ## See Also `kmBlockORPC` `kmBlockC` ## Author(s) Maintainer : Aleš Žiberna ales.ziberna@fdv.uni-lj.si

kmBlock-package