added train.rf.freq.R