Reading SNA data for #snaspb2013 on 22 August, 2013

library(RCurl)
library(igraph)
library(intergraph)

read.sstab<-function(theurl, ...){ #Function to read in a data table from online
  #_theurl_ refers to the location of the data
  #_..._ are parameters passed onto read.table
  require(RCurl)
  outtab<-getURL(theurl, ssl.verifypeer=FALSE)
  outtab<-textConnection(outtab)
  outtab<-read.table(outtab, sep="\t", ...)
  return(outtab)
  }

#Import the data
snaspb.mat<-read.sstab("https://docs.google.com/spreadsheet/pub?key=0Ai--oOZQWBHSdHJzZndycHJvR2NOVXBUTDFKODJCX3c&single=true&gid=0&output=txt", header=TRUE, row.names=1)
snaspb.atts<-read.sstab("https://docs.google.com/spreadsheet/pub?key=0Ai--oOZQWBHSdHJzZndycHJvR2NOVXBUTDFKODJCX3c&single=true&gid=1&output=txt", header=TRUE)

snaspb.ig<-graph.adjacency(as.matrix(snaspb.mat), mode="directed", diag=FALSE, add.colnames=TRUE)
for (i in 1:ncol(snaspb.atts))
  snaspb.ig<-set.vertex.attribute(snaspb.ig, colnames(snaspb.atts)[i], value=snaspb.atts[,i])

rm(i, snaspb.mat, snaspb.atts, read.sstab)
library(intergraph)
library(network)
snaspb.net<-asNetwork(snaspb.ig)
detach("package:igraph", unload=TRUE)
library(ergm)