# Analisys the Mother/Baby Trial Design
library(agricolae)
data(RioChillon)
# First analysis the Mother Trial Design.
model<-aov(yield ~ block + clon, RioChillon$mother)
anova(model)
cv.model(model)
attach(RioChillon$mother)
comparison<-LSD.test(yield,clon, 18, 4.922, group=TRUE)
detach(RioChillon$mother)
# Second analysis the babies Trial.
attach(RioChillon$babies)
comparison<-friedman(farmer,clon, yield, group=TRUE)
detach(RioChillon$babies)
# Third
# The researcher makes use of data from both mother and baby trials and thereby obtains
# information on suitability of new technologies or cultivars
# for different agro-ecologies and acceptability to farmers.
Run the code above in your browser using DataLab