# NOT RUN {
data(ep.iris)
unconstrained.indices <- boot.samples(ep.iris$data)
#ep.iris$data[unconstrained.indices,]
constrained.indices <- boot.samples(ep.iris$data,DESIGN=ep.iris$design,constrained=TRUE)
#ep.iris$data[constrained.indices,]
# }
Run the code above in your browser using DataLab