To get the data please hit the following link.
([ Ссылка ])
# codes
# CRD
library(AgroR)
aku=with(DD,FAT2DIC(V,PG,GY))
plot_interaction(aku)
# modification
plot_interaction(aku,
box_label = FALSE,
repel = TRUE,
pointsize = 4,
linesize = 0.2,
width.bar = 0.05,
add.errorbar = FALSE)
#############
# RCBD
aku2=with(DD,FAT2DBC(V,PG,Rep,GY))
d=plot_interaction(aku2,
box_label = FALSE,
repel = TRUE,
pointsize = 2,
linesize = 0.8,
width.bar = 0.05,
add.errorbar = FALSE)

свернуть