data_example = sample_generator(5000,ratio = 0.80)
plot(data_example[data_example[,3]=="n",1],
data_example[data_example[,3]=="n",2],col="yellow")
points(data_example[data_example[,3]=="p",1],
data_example[data_example[,3]=="p",2],col="red",pch=14)
Run the code above in your browser using DataCamp Workspace