-
Notifications
You must be signed in to change notification settings - Fork 8
/
.Rhistory
18 lines (18 loc) · 855 Bytes
/
.Rhistory
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
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))
with(all_data,chisq.test(V1,Modularity.Class))