-
Notifications
You must be signed in to change notification settings - Fork 1
/
Correlation_data.R
63 lines (41 loc) · 2.13 KB
/
Correlation_data.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
#correlation between the metrics of the network nodes.
#reading all the metrics
openstack_comments_metrics<-read.csv("F:\\Stat202\\OpenStack_Comments_Metrics.csv")
openstack_changes_metrics<-read.csv("F:\\Stat202\\OpenStack_Changes_Metrics.csv")
eclipse_comments_metrics<-read.csv("F:\\Stat202\\Eclipse_Comments_Metrics.csv")
eclipse_changes_metrics<-read.csv("F:\\Stat202\\Eclipse_Changes_Metrics.csv")
#removing the column of vertices' names
openstack_comments_metrics = subset(openstack_comments_metrics, select = -c(X) )
openstack_comments_metrics = subset(openstack_comments_metrics, select = -c(vert_name_com) )
openstack_changes_metrics = subset(openstack_changes_metrics, select = -c(X) )
openstack_changes_metrics = subset(openstack_changes_metrics, select = -c(vert_name_chn) )
eclipse_comments_metrics = subset(eclipse_comments_metrics, select = -c(X) )
eclipse_comments_metrics = subset(eclipse_comments_metrics, select = -c(vert_name_com) )
eclipse_changes_metrics = subset(eclipse_changes_metrics, select = -c(X) )
eclipse_changes_metrics = subset(eclipse_changes_metrics, select = -c(vert_name_chn) )
install.packages("corrplot")
library(corrplot)
install.packages("Hmisc")
library("Hmisc")
#correlation coefficients
os_comm_cor2 <- rcorr(as.matrix(openstack_comments_metrics))
os_comm_cor2
os_comm_cor2$P
os_ch_cor2 <- rcorr(as.matrix(openstack_changes_metrics))
os_ch_cor2
os_ch_cor2$P
ec_comm_cor2 <- rcorr(as.matrix(eclipse_comments_metrics))
ec_comm_cor2
ec_comm_cor2$P
ec_ch_cor2 <- rcorr(as.matrix(eclipse_changes_metrics))
ec_ch_cor2
ec_ch_cor2$P
#correlation plots
corrplot(os_comm_cor2$r, type = "upper", order = "hclust", tl.col = "black",
p.mat = os_comm_cor2$P, sig.level = 0.05)
corrplot(os_ch_cor2$r, type = "upper", order = "hclust", tl.col = "black",
p.mat = os_ch_cor2$P, sig.level = 0.05)
corrplot(ec_comm_cor2$r, type = "upper", order = "hclust", tl.col = "black",
p.mat = ec_comm_cor2$P, sig.level = 0.05)
corrplot(ec_ch_cor2$r, type = "upper", order = "hclust", tl.col = "black",
p.mat = ec_ch_cor2$P, sig.level = 0.05)