Prof. Walmes M. Zeviani
2017-08-02
Criar o algoritmo para gerar ensaios no delineamento de quadrado latino.
k <- 5
s <- 1:k
dql <- matrix(0, k, k)
for (i in s) {
dql[i, ] <- (s - i) %% k
}
dql <- dql + 1
dql
## [,1] [,2] [,3] [,4] [,5]
## [1,] 1 2 3 4 5
## [2,] 5 1 2 3 4
## [3,] 4 5 1 2 3
## [4,] 3 4 5 1 2
## [5,] 2 3 4 5 1