Permalink
Browse files

final version

added analyses, output based on modularity and community, combined with
clustering
  • Loading branch information...
1 parent 7665df1 commit f5f51fea4d0a861a41b716028c827b4d42669814 @randomjohn committed Nov 10, 2012
View
Binary file not shown.
View
@@ -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))
Oops, something went wrong.

0 comments on commit f5f51fe

Please sign in to comment.