randomforest 질문

안녕하세요. shinym67 님

해당 코드를 보시면

예측한 값들을 누적해서 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)

  }