There's a number of ways to do this, a reproducible example with your data would have been desirable:
set.seed(12345)
test <- data.frame(pred=c(runif(50,0,75),runif(50,25,100)), group=c(rep("A",50), rep("B",50)) )
table(test$pred<50,test$group)
gives
A B
FALSE 18 34
TRUE 32 16
So this says 32 A's were under 50 and 34 B's were over 50, while 18 A's were over 50 (wrongly classified) and 16 B's were under 50 (wrongly classified)
set.seed(12345)
test <- data.frame(pred=c(runif(50,0,60),runif(50,40,100)), group=c(rep("A",50), rep("B",50)) )
table(test$pred<50,test$group)
gives
A B
FALSE 8 40
TRUE 42 10
In this example, cause of the chosen sampling, your classification is much better.
The '50' in this can then be changed to anything you want, 20, 30, etc.
table(test$pred<50,test$group)
与恶龙缠斗过久,自身亦成为恶龙;凝视深渊过久,深渊将回以凝视…