Load in the data

``` {r}
data = read.csv("data/PaulRevereAppD.csv")
head(data)
matrix = as.matrix(data[,-1]) %*% t(as.matrix(data[,-1]))
colnames(matrix) = rownames(matrix)  = data$X
melted = melt(matrix)
write.table(file="revereGephi.csv",melted[melted$value>0,c(1,2)],sep=",",row.names=F,quote=F,col.names=F)
```