R script for Line X Tester Analysis

library(agricolae) 

data(LT) 
str(LT) 

output2 <- with(
  LT,
  lineXtester(replication, line, tester, yield)
)