two2one: Two-mode network conversions

Description Usage Arguments Value Author(s) See Also Examples

Description

Coverting two mode networks from two to one mode matrix representation and vice versa. If a two-mode matrix is converted in-to a one-mode matrix, the original two-mode matrix lies in the upper right corner of the one-mode matrix.

Usage

1
2

Arguments

M

A matrix representing the (usually valued) network.

clu

A partition. Each unique value represents one cluster. This should be a list of two vectors, one for each mode.

Value

Functions returns list with elemets: a mode mode matrix with the two mode network in its upper left corner.

M

The matrix

clu

The partition, in form appropriate for the mode of the matrix

Author(s)

Aleš Žiberna

See Also

optParC, optParC, optRandomParC, plot.mat

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
#generating a simple network corresponding to the simple Sum of squares
#structural equivalence with blockmodel:
# null com
# null null
n <- c(7, 13)
net <- matrix(NA, nrow = n[1], ncol = n[2])
clu <- list(rep(1:2, times = c(3, 4)), rep(1:2, times = c(5, 8)))
tclu <- lapply(clu, table)
net[clu[[1]] == 1, clu[[2]] == 1] <- rnorm(n = tclu[[1]][1] * tclu[[2]][1],
   mean = 0, sd = 1)
net[clu[[1]] == 1, clu[[2]] == 2] <- rnorm(n = tclu[[1]][1] * tclu[[2]][2],
   mean = 4, sd = 1)
net[clu[[1]] == 2, clu[[2]] == 1] <- rnorm(n = tclu[[1]][2] * tclu[[2]][1],
   mean = 4, sd = 1)
net[clu[[1]] == 2, clu[[2]] == 2] <- rnorm(n = tclu[[1]][2] * tclu[[2]][2],
   mean = 0, sd = 1)
plot.mat(net, clu = clu) #two mode matrix of a two mode network
#converting to one mode network
M1 <- two2one(net)$M
plot.mat(M1, clu = two2one(net)$clu) #plotting one mode matrix
plot.mat(one2two(M1, clu = clu)$M, clu = clu)
#converting one to two mode matix and ploting

blockmodeling documentation built on April 11, 2018, 3 a.m.