PC1-Software-Defect-Classification/Rcommands.R at master · kevinrodrigues13/PC1-Software-Defect-Classification · GitHub

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
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
> data<-read.csv(file.choose())
> View(data)
> data$loc<-bin(data$loc, nbins = 10, labels = c("1","2","3","4","5","6","7","8","9","10"), method = "length", na.omit = TRUE)
> View(data)
> data$v.g.<-bin(data$v.g., nbins = 10, labels = c("1","2","3","4","5","6","7","8","9","10"), method = "length", na.omit = TRUE)
> min(data$ev.g.)
> max(data$ev.g.)
> View(data)
> data$ev.g.<-bin(data$ev.g., nbins = 10, labels = c("1","2","3","4","5","6","7","8","9","10"), method = "length", na.omit = TRUE)
> View(data)
> max(data$iv.G.)

> min(data$iv.G.)

> data$iv.G.<-bin(data$iv.G., nbins = 10, labels = c("1","2","3","4","5","6","7","8","9","10"), method = "length", na.omit = TRUE)
> View(data)
> data$N<-bin(data$N, nbins = 10, labels = c("1","2","3","4","5","6","7","8","9","10"), method = "length", na.omit = TRUE)
> max(data$V)

> min(data$V)

> data$V<-bin(data$V, nbins = 10, labels = c("1","2","3","4","5","6","7","8","9","10"), method = "length", na.omit = TRUE)
> View(data)
max(data$L)

min(data$L)

data$L<-bin(data$L, nbins = 3, labels = c("0","1","2"), method = "length", na.omit = TRUE)

max(data$D)

min(data$D)
data$D<-bin(data$D, nbins = 10, labels = c("1","2","3","4","5","6","7","8","9","10"), method = "length", na.omit = TRUE)
max(data$I)

min(data$I)
data$I<-bin(data$I, nbins = 10, labels = c("1","2","3","4","5","6","7","8","9","10"), method = "length", na.omit = TRUE)


max(data$E)

min(data$E)

data$E<-bin(data$E, nbins = 10, labels = c("1","2","3","4","5","6","7","8","9","10"), method = "length", na.omit = TRUE)

max(data$B)

min(data$B)

data$B<-bin(data$B, nbins = 10, labels = c("1","2","3","4","5","6","7","8","9","10"), method = "length", na.omit = TRUE)

max(data$T)

min(data$T)

data$T<-bin(data$T, nbins = 10, labels = c("1","2","3","4","5","6","7","8","9","10"), method = "length", na.omit = TRUE)

max(data$lOCode)

min(data$lOCode)

data$lOCode<-bin(data$lOCode, nbins = 6, labels = c("1","2","3","4","5","6"), method = "length", na.omit = TRUE)
max(data$lOComment)

min(data$lOComment)
data$lOComment<-bin(data$lOComment, nbins = 10, labels = c("1","2","3","4","5","6","7","8","9","10"), method = "length", na.omit = TRUE)

max(data$locCodeAndComment)

data$locCodeAndComment<-bin(data$locCodeAndComment, nbins = 5, labels = c("1","2","3","4","5"), method = "length", na.omit = TRUE)


max(data$lOBlank)


data$lOBlank<-bin(data$lOBlank, nbins = 9, labels = c("1","2","3","4","5","6","7","8","9"), method = "length", na.omit = TRUE)

max(data$uniq_Op)

min(data$uniq_Op)

data$uniq_Op<-bin(data$uniq_Op, nbins = 10, labels = c("1","2","3","4","5","6","7","8","9","10"), method = "length", na.omit = TRUE)

max(data$uniq_Opnd)

min(data$uniq_Opnd)


data$uniq_Opnd<-bin(data$uniq_Opnd, nbins = 9, labels = c("1","2","3","4","5","6","7","8","9"), method = "length", na.omit = TRUE)


max(data$total_Op)

min(data$total_Op)

data$total_Op<-bin(data$total_Op, nbins = 10, labels = c("1","2","3","4","5","6","7","8","9","10"), method = "length", na.omit = TRUE)


max(data$total_Opnd)

min(data$total_Opnd)

data$total_Opnd<-bin(data$total_Opnd, nbins = 10, labels = c("1","2","3","4","5","6","7","8","9","10"), method = "length", na.omit = TRUE)


max(data$branchCount)

min(data$branchCount)


data$branchCount<-bin(data$branchCount, nbins = 10, labels = c("1","2","3","4","5","6","7","8","9","10"), method = "length", na.omit = TRUE)