Displaying 1 result from an estimated 1 matches for "classestest".
Did you mean:
classtest
2011 Feb 23
0
svm(e1071) and scaling of weights
...(trainset,select=-Type)
> classestrain <- subset(trainset,select=Type)
> Wts <- 1.0/table(Glass$Type);
> model <-
svm(datatrain,classestrain,type="C-classification",kernel="radial",cost=100,class.weights=Wts)
> datatest = subset(testset,select=-Type)
> classestest <- subset(testset,select=Type)
> pred.test=predict(model,datatest)
> table.test <- table(pred.test,t(classestest))
> table.test
pred.test 1 2 3 5 6 7
1 11 2 0 0 0 0
2 1 12 0 0 0 0
3 1 3 1 0 0 0
5 0 0 0 1 0 0...