x<-sample(c(rep(0, 1000), rep(1, 90), rep(2, 60), rep(3, 60), rep(4:7, 10)), 1000,
       replace=T)
x<-matrix(x, 200,5)
x<-x[!duplicated(x),]