0430

dat <- c(1:49)
dat.boot <- array(0,dim=c(6,5))
for ( i in 1:5 ){
dat.boot[,i] <- sample(dat,6,replace=TRUE )
}
sort(dat.boot)

##  [1]  5  9 11 11 14 14 15 19 21 21 22 23 24 25 25 26 28 28 31 32 34 35 38 38 43
## [26] 44 45 46 47 48