4 Função para croqui experimental

Trat=paste("Treatments",1:6)

4.1 Delineamento inteiramente casualizado

sketch(Trat,r=3)

4.2 Delineamento em blocos casualizados

sketch(Trat, r=3, design="dbc")

4.3 Delineamento inteiramente casualizado em esquema fatorial duplo

sketch(trat=c(1,2),
       trat1=c(1,2,3),
       design = "fat2dic",
       r=3)