rf.r

> tuning.rf(trn,mtry,20,0.7)
[1] "=== cross validation error estimation ==="
[1] "mtry= 2  : error= 9.89178214242082 +- 4.06175518360904"
[1] "mtry= 4  : error= 7.7269900435814 +- 2.53016370451501"
[1] "mtry= 6  : error= 7.48214012711454 +- 1.98854233231896"
[1] "mtry= 8  : error= 7.53741415199526 +- 1.78742904316897"
[1] "mtry= 10  : error= 7.92473002002763 +- 1.88953063618415"
[1] "mtry= 12  : error= 8.37506100241071 +- 1.9922333938174"
[1] "mtry= 14  : error= 8.61657448209067 +- 2.04644195003867"
[1] "mtry= 16  : error= 8.59454798339517 +- 2.05803385159497"
[1] "mtry= 18  : error= 8.61899651896161 +- 2.1064976963059"
[1] "mtry= 20  : error= 8.57905798710291 +- 2.08969847600883"
[1] 6