R Script for Augmented RCBD

install.packages("augmentedRCBD") 
library(augmentedRCBD) 

options(max.print = 100000) 

str(traits) 

traits$Block <- as.factor(traits$Block) 
traits$Treatment <- as.factor(traits$Treatment) 

str(traits) 

bout <- augmentedRCBD.bulk(
  data = traits,
  block = "Block",
  treatment = "Treatment",
  traits = c("A1", "A2", "A3", "A4", "A5", "A6", "A7", "A8", "A9"),
  checks = NULL,
  alpha = 0.05,
  describe = TRUE,
  console = TRUE
) 

report.augmentedRCBD.bulk(
  aug.bulk = bout,
  target = file.path(tempdir(), "traits.docx")
)