sort.design(design)
rate <- c(1.29, 7.04, 1.22, 1.68, 8.78, 7.21, 1.55, 2.34, 9.81, 9.96, 1.36, 6.90, 1.81, 1.73, 8.42, 7.92) buffer.rdf <- cbind(buffer.rdes, rate) #buffer.rdes created by #randomize.design, see its help file buffer.sdf <- sort.design(buffer.rdf)