質問編集履歴

2

誤字

2016/11/16 15:47

投稿

cde
cde

スコア12

test CHANGED
File without changes
test CHANGED
@@ -64,7 +64,7 @@
64
64
 
65
65
  #読み込み,書き出しフォルダの定義
66
66
 
67
- dname<-"C:/Users/goto/Dropbox/研究室用/実験用記述/"
67
+ dname<-"C:/Users/実験用/"
68
68
 
69
69
  #読み込みファイル名 .csvを含めない
70
70
 

1

プログラムの追加

2016/11/16 15:47

投稿

cde
cde

スコア12

test CHANGED
File without changes
test CHANGED
@@ -47,3 +47,103 @@
47
47
  }
48
48
 
49
49
  ```
50
+
51
+ 以下のプログラム実行するとError in cbind(test.df, fit.lm.pred) : object 'fit.lm.pred' not foundというエラーが出ます。
52
+
53
+
54
+
55
+ ```ここに言語を入力
56
+
57
+ #繰り返し回数
58
+
59
+ m_max<-1
60
+
61
+ #k-foldのk
62
+
63
+ k_max<-10
64
+
65
+ #読み込み,書き出しフォルダの定義
66
+
67
+ dname<-"C:/Users/goto/Dropbox/研究室用/実験用記述/"
68
+
69
+ #読み込みファイル名 .csvを含めない
70
+
71
+ fname<-"Tomcat"
72
+
73
+
74
+
75
+ df <- read.csv(paste(dname,fname,".csv", sep = ""), header=T, row.names=NULL)
76
+
77
+ for(m in 1:m_max){
78
+
79
+ set.seed(m)
80
+
81
+ ds <- df[order(runif(nrow(df))),]
82
+
83
+ for(k in 1:k_max){
84
+
85
+ d <- ds[-round(1+(nrow(df)/k_max)*(k-1)):-round(nrow(df)/k_max*k),]
86
+
87
+ write.csv(d, file=paste(dname,fname,"_cv_Fit_",k-1,"_",m-1,".csv", sep = ""),row.names = FALSE)
88
+
89
+ d <- ds[round(1+(nrow(df)/k_max)*(k-1)):round(nrow(df)/k_max*k),]
90
+
91
+ write.csv(d, file=paste(dname,fname,"_cv_Tst_",k-1,"_",m-1,".csv", sep = ""),row.names = FALSE)
92
+
93
+
94
+
95
+ #ロジスティック回帰
96
+
97
+ #result1=lm(bug~wmc+dit+noc+cbo+rfc+lcom+npm+lcom3+loc+dam+moa+ic+cbm,data=fit.df)
98
+
99
+ result1=glm(bug~.,data=fit.df)
100
+
101
+ #↓結果についてステップ関数
102
+
103
+ step.glm<-step(result1)
104
+
105
+ #結果
106
+
107
+ summary(result1)
108
+
109
+
110
+
111
+ # 線形判別
112
+
113
+ library(MASS)
114
+
115
+ result2 <- lda(bug ~., data = fit.df, na.action = "na.omit", CV = TRUE)
116
+
117
+ #
118
+
119
+ result2
120
+
121
+ #
122
+
123
+ ct <- table(fit.df$bug, result2$class)
124
+
125
+ diag(prop.table(ct,1))
126
+
127
+ sum(diag(prop.table(ct)))
128
+
129
+
130
+
131
+ if(m==0||k==0){
132
+
133
+ result_summary.df<-cbind(cbind(test.df,fit.lm.pred),fit.rf.pred)
134
+
135
+ }else{
136
+
137
+ result_summary.df<-rbind(result_summary.df,cbind(cbind(test.df,fit.lm.pred),fit.rf.pred))
138
+
139
+ }
140
+
141
+ }
142
+
143
+ }
144
+
145
+ write.csv(result_summary.df,paste(dname,"result_summary.csv",sep=""))
146
+
147
+ コード
148
+
149
+ ```