| Cica2 {BSagri} | R Documentation |
Data of a field trial concerning the impact of a genetically modified variety on the abundance of Planthoppers and Leafhoppers. The trial was designed as a randomized complete block design with 8 blocks (Row). In each block, three treatments were randomized: a conventional variety treated with insecticides (Insecticide), a genetically modified variety (GM), and the near-isogenic line (Iso) the to genetically modified line. These data originate from the second year of the trial in Cica1.
data(Cica2)
A data frame with 24 observations on the following 8 variables.
Field1 2, separating the two major sites of the trial. On field 1, the blocks 1-5 were situated, on field 2, blocks 6-8 were situated.RowR1 R2 R3 R4 R5 R6 R7 R8YearTreatmentGM,
the conventional variety treated with insecticides Insecticide,
and the variety that was near-isogenic to the GM variety IsoAu_BoniturZs_sweep_nettingZs_yellow_trapsZs_stick_traps...
See Cica1 for data of the same trial a year earlier
data(Cica2)
# A comparison of the treatments:
dev.new(width=12,height=4)
layout(matrix(1:4,ncol=4))
ylim<-range(Cica2[,c("Au_Bonitur","Zs_sweep_netting", "Zs_yellow_traps", "Zs_stick_traps")])
boxplot(Au_Bonitur ~ Treatment, data=Cica2,
main= "Aucherrhyncha, visual assessment", ylim=ylim, horizontal=TRUE, las=1)
boxplot(Zs_sweep_netting ~ Treatment, data=Cica2,
main="Z.scutellaris, sweep netting", ylim=ylim, horizontal=TRUE, las=1)
boxplot(Zs_yellow_traps ~ Treatment, data=Cica2,
main="Z.scutellaris, yellow traps", ylim=ylim, horizontal=TRUE, las=1)
boxplot(Zs_stick_traps ~ Treatment, data=Cica2,
main="Z.scutellaris, sticky traps", ylim=ylim, horizontal=TRUE, las=1)
# A comparison of sampling methods:
dev.new(width=10,height=10)
pairs(Cica2[,c("Au_Bonitur","Zs_sweep_netting", "Zs_yellow_traps", "Zs_stick_traps")])