### 1.Example.cvtype.R
set.seed(1)
cvtype(n=20, cv.bsize=2, cv.kfold=4, cv.random=T)$cv.index

### 1.Example.cvtype.R - Continued.
cvtype(n=20, cv.bsize=1, cv.kfold=4, cv.random=F)$cv.index

### 1.Example.cvtype.R - Continued.
set.seed(1)
nblock <- 2; cv.bsize <- 2; cv.kfold <- trunc(20/(cv.bsize*nblock))
cvtype(n=20, cv.bsize=cv.bsize, cv.kfold=cv.kfold, cv.random=T)$cv.index
 
### 1.Example.cvtype.R - Continued.
perc <- c(0.33); cv.bsize <- 3; cv.kfold <- trunc(1/perc)
cvtype(n=20, cv.bsize=cv.bsize, cv.kfold=cv.kfold, cv.random=T)$cv.index