networks.R

get_psu_sample <- function(){
  nodeinfo <- read.table("http://www.stat.psu.edu/~dhunter/Rnetworks/nodal.attr.txt", head=T) 
  nodeinfo <<- cbind(1:nrow(nodeinfo),nodeinfo)
  names(nodeinfo)[1] <<- "id"
  myedges <<- read.table("http://www.stat.psu.edu/~dhunter/Rnetworks/edgelist.txt")
}

network_example <- function(){
  require(network)
  diseasenw <- network(myedges, directed=F, bipartite=132, vertex.attr = nodeinfo)
  plot(diseasenw)
  
  plot(diseasenw, vertex.col = 3-nodeinfo$race, vertex.sides = 2+nodeinfo$sex)

}

igraph_example <- function(){
  require(igraph) 

}