>glass.rf<-randomForest(Type~.,data=newglass,importance=TRUE)
> table(predict(glass.rf),newglass$Type)
                              1 2 3 5 6 7
  1.02596685082873 1 0 0 0 0 0
  1.02659574468085 1 0 0 0 0 0
  1.03786324786324 1 0 0 0 0 0
  1.0547619047619  1 0 0 0 0 0
  1.08228571428571 1 0 0 0 0 0
  1.09137931034482 1 0 0 0 0 0
  1.10670391061452 1 0 0 0 0 0
  1.10859649122807 0 0 1 0 0 0
  1.1240932642487  1 0 0 0 0 0
  1.1288596491228  1 0 0 0 0 0
  1.13156862745098 1 0 0 0 0 0
  1.1317679558011  1 0 0 0 0 0
  1.14776422764227 1 0 0 0 0 0
  1.155                    1 0 0 0 0 0
  1.15593495934959 1 0 0 0 0 0
  1.15893186003683 1 0 0 0 0 0
  1.17651072124756 1 0 0 0 0 0