I have a data frame like the following:
x<- runif(9, 0,10) y<- runif(9,1,5) z<- rep(c(\'a\',\'b\',\'c\'), each=3) df<- as.data.frame(cbind(x,y)) d