library(agricolaeplotr)
library(agricolae)
T1<-c('a','b','c','d')
T2<-c('v','w','x','y','z','zz')
outdesign <- design.graeco(trt1=T1, trt2=T2, serie = 2,
seed = 0, kinds = 'Super-Duper',randomization=TRUE)
plot_graeco(outdesign, factor_name = 'T2',reverse_y = TRUE)
plot_graeco(outdesign, factor_name = 'T2',reverse_x = TRUE)
Run the code above in your browser using DataLab