data(sim_class2)
dim(sim_class2)
train_set <- sim_class2[sim_class2$train==1,]
dim(train_set)
with(train_set,plot(x1,x2,main='Training Set',cex=0.625))
with(train_set,points(x1,x2,main='Training Set',pch=20,col=y,cex=0.625))
Run the code above in your browser using DataLab