Description Details Author(s) References See Also Examples
A small tool for Social Network Analysis, dealing with ego-centric network measures, including Burt's effective size and aggregate constraint and an import code suitable for a large number of adjacency matrices.
The Egonet package is also available as free web application on http://www.egonet.associazionerospo.org (and an example of output can be seen here: http://www.egonet.associazionerospo.org/egonetdata/EgonetOutput.htm)
Package: | egonet |
Type: | Package |
Version: | 1.0 |
Date: | 2010-03-11 |
License: | GPL (>= 2) |
LazyLoad: | yes |
A. Sciandra, F. Gioachin, L. Finos
Maintainer: <livio@stat.unipd.it>
Burt, R.S. (1992) ”Structural Holes. The Social Structure of Competition”, Cambridge (MA), Harvard University Press.
Wasserman, S. and Faust, K. (1994) ”Social Network Analysis. Method and Applications”, Cambridge (MA), Cambridge University Press.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 | ## This is a list of file' names containing the ego-network
ff <- c("q1.csv","q2.csv","q3.csv")
files <- paste("http://www.egonet.associazionerospo.org/egonetdata/",ff,sep="")
names(files) <- ff
##if all your data are in a directory (eg. egonets, containing all files with the same extension),
##you can easily get this list with the following commands
# ff <- dir("./egonets",pattern=".csv")
# files <- paste("./egonets/",ff,sep="")
# names(files) <- ff
# Here is a dataset with demographic informations and the names of files containing the ego-network
#we now want to add network indeces to this data.frame
data <- data.frame( gender=c("F","F","M"), age =(2:4)*10, filename=ff)
data
#import all the egonets
mats <- lapply(files,read.egonet)
#compute (default) indices on the first subject
index.egonet(mats[[1]])
#compute indices on all adjacency matrices
idx <- sapply(mats,index.egonet)
#reshape idx in a data.frame and add the file names
idx <- as.data.frame(t(idx))
idx <- cbind(idx,filename=rownames(idx))
#now merge demographic informations with the indices
data <- merge(data,idx,by="filename")
data
#Compute the \code{effsize} and \code{constraint} to the restricted network with "EGO" and nodes with "P" in the name (i.e. the relatives social circle)
idx <- sapply(mats,index.egonet, subset = "P",index = c("effsize","constraint"))
rownames(idx) <- paste(rownames(idx),"P",sep=".")
idx <- as.data.frame(t(idx))
idx <- cbind(idx,filename=rownames(idx))
#and merge them to the dataset
data <- merge(data,idx,by="filename")
data
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.