SamplingLesson20140128

library(RCurl)
library(igraph)

studentdat <- getURL("https://docs.google.com/spreadsheet/pub?key=0Ai--oOZQWBHSdE5XeHR6c0dxX212X0g3WlRuWlZKUVE&single=true&gid=0&output=txt", ssl.verifypeer = FALSE)
studentdat <- read.table(textConnection(studentdat), sep = "\t", header = TRUE, row.names = 1)

studentel <- getURL("https://docs.google.com/spreadsheet/pub?key=0Ai--oOZQWBHSdE5XeHR6c0dxX212X0g3WlRuWlZKUVE&single=true&gid=1&output=txt", ssl.verifypeer = FALSE)
studentel <- read.table(textConnection(studentel), sep = "\t", header = TRUE)
studentel <- as.matrix(studentel)
studentel <- graph.edgelist(studentel, directed = FALSE)

studentel.match <- match(V(studentel)$name, rownames(studentdat))
for (i in 1:ncol(studentdat))
  studentel <- set.vertex.attribute(graph = studentel, name = colnames(studentdat)[i], value = studentdat[studentel.match, i])

rm(i, studentel.match)