# NOT RUN {
bf <- Butterfly(10000)
bf_select <- MBRM(bf[,-9], 5:25)
var_order <- bf_select[[2]]
var_perf <- bf_select[[3]]
dev.new(width=5, height=4)
plot(var_perf,type="b",pch=16,lwd=2,xaxt="n",xlab="", ylab="",
col="red",ylim=c(0,max(var_perf)),panel.first={grid(lwd=1.5)})
axis(1,1:length(var_order),labels=var_order)
mtext(1,text="Added Features (from left to right)",line=2.5,cex=1)
mtext(2,text="Estimated ID",line=2.5,cex=1)
# }
Run the code above in your browser using DataLab