Trat=paste("Tr",1:6)
#=============================
# Completely randomized design
#=============================
sketch(Trat,r=3)
sketch(Trat,r=3,pos="column")
sketch(Trat,r=3,color.sep="none")
sketch(Trat,r=3,color.sep="none",ID=TRUE,print.ID=TRUE)
sketch(Trat,r=3,pos="column",add.streets.x=c(1,1,2,2,3,3))
#=============================
# Randomized block design
#=============================
sketch(Trat, r=3, design="DBC")
sketch(Trat, r=3, design="DBC",pos="column")
sketch(Trat, r=3, design="DBC",pos="column",add.streets.x=c(1,1,2))
sketch(Trat, r=3, design="DBC",pos="column",add.streets.x=c(1,2,3), add.streets.y=1:6)
sketch(Trat, r=3, design="DBC",pos="line",add.streets.y=c(1,2,3), add.streets.x=1:6)
#=============================
# Completely randomized experiments in double factorial
#=============================
sketch(trat=c("A","B"),
trat1=c("A","B","C"),
design = "FAT2DIC",
r=3)
sketch(trat=c("A","B"),
trat1=c("A","B","C"),
design = "FAT2DIC",
r=3,
pos="column")
Run the code above in your browser using DataLab