randomforest 질문
148
작성한 질문수 1
randomforest 강의 2분 40초 쯤에서
for(k in 1:10){
코딩생략
acc2[k]<-acc[length(acc)]
인데
왜 acc의 마지막 부분을 acc2로 선택하나요?ㅜㅜ
저것마저 평균을 내야 하는거 아닌가요?
답변 1
0
안녕하세요. 님
해당 코드를 보시면
예측한 값들을 누적해서 pred_list에서 넣었고
pred1값은 지금까지 누적한 예측값을 통해 최종적으로 예측한 값입니다.
pred1값을 acc[i]에 넣었기 때문에 i를 100번 돌리게 되면, 100번째 있는 값이
최종적으로 모든 예측값을 ensemble한 값이 됩니다.
pred_list<-rbind(pred_list,pr[,2])
pred1<-apply(pred_list,2,mean)
acc<-c()
for(i in 1:100){
......
pred_list<-rbind(pred_list,pr[,2])
pred1<-apply(pred_list,2,mean)
## accuracy
pred<-ifelse(pred1 > 0.5,"present","absent")
acc[i]<-sum(kyphosis$Kyphosis[-sam] ==pred)/length(pred)
ts.plot(acc)
}
ADP 자격증 대비 강의 개설 문의
0
809
2
최신 기출문제 문의
0
767
1
분포의 치우침
1
797
1
강의 자료를 받을 수 있는 방법이 있을가요?
0
708
1
R 오류
0
374
0
교재 및 수료조건
0
555
2
mac KoNLP 설치 오류
0
2006
1
교재 구입 프로세스 알려주시기를 요청드려요.
0
278
0
교재 구입 관련 메일을 송부하였습니다
0
267
1
fread() 함수
1
354
1
교재 구매
0
234
0
강의 시 문제 풀이가 수업자료에는 없어요
0
271
0
클리앙 강의 시 문의 드립니다.
0
259
0
2과목 빅데이터 분석방법론 1 왜 안보이나요?
0
298
1
R studio 오류
0
566
0
한글깨짐 오류로 수업이 어려워요
0
423
1
3강 R파트 관련 질문입니다
0
235
1
11강에서 gsub 부분 코딩 공유 부탁 드립니다.
0
206
0
작은 오류
0
314
0
pred<ifelse(predi >0.5 "present", "absent") 여기서 기준이 왜 0.5인지 모르겠어요
1
231
1
질문드립니다.
0
290
2
문의드립니다.
0
206
1
r studio 한글관련 셋업
0
246
1
안녕하세요 코코님! xgboost에 관련하여 질문드립니다!
0
356
2