final version

added analyses, output based on modularity and community, combined with clustering
randomjohn · Nov 10, 2012 · f5f51fe · f5f51fe
1 parent 7665df1
commit f5f51fe
Show file tree

Hide file tree

Showing 17 changed files with 15,046 additions and 347 deletions.
diff --git a/.RData b/.RData
diff --git a/.Rhistory b/.Rhistory
@@ -0,0 +1,17 @@
+statistics_blogs <- read.csv("~/Dropbox/classes/sna/project/out/statistics_blogs.csv")
+viewData(statistics_blogs)
+blog_clus <- read.delim("~/Dropbox/classes/sna/project/out/blog_clus.txt", header=F)
+viewData(blog_clus)
+all_data <- merge(statistics_blogs,blog_clus,by.x="Id",by.y="V2")
+viewData(all_data)
+with(all_data,chisq.test(V1,Modularity.Class))
+len(unique(all$data$V11))
+length(unique(all$data$V1))
+length(unique(all_data$V1))
+length(unique(all_data$Modularity.Class))
+25*14
+statistics_blogs <- read.csv("~/Dropbox/classes/sna/project/out/statistics_blogs.csv")
+blog_clus <- read.delim("~/Dropbox/classes/sna/project/out/blog_clus.txt", header=F)
+all_data <- merge(statistics_blogs,blog_clus,by.x="Id",by.y="V2")
+with(all_data,chisq.test(V1,Modularity.Class))
+with(all_data,table(V1,Modularity.Class))