if (FALSE) #Diallel Method 2 analysis containing only crosses in RCBD.
library(gpbStat)
data(dm2rcbd)
result1 = dm2(dm2rcbd, rep, parent1, parent2, DTP)
result1
#Diallel Method 2 analysis containing only crosses in Alpha Lattice
library(gpbStat)
data(dm2alpha)
result2 = dm2(dm2alpha, replication, parent1, parent2, TW, block)
result2
# Save results to csv file
lapply(result2, function(x) write.table(data.frame(x), 'result2.csv' , append= T, sep=','))
Run the code above in your browser using DataLab