Diptera {BSagri} | R Documentation |
Hatching of some families of Diptera was recorded in summer 2005 using eklektors covering 2 square meters of soil surface each. A total of 32 eklektors were arranged in a randomized field trial. Total counts of individuals over the whole season are reported. Aim was to assess the impact of a novel treatment on the abundance of Diptera with larval development in the soil, compared to three standard treatments.
data(Diptera)
A data frame with 32 observations on the following 7 variables.
Callip
Chloro
Ephyd
Droso
Ges
Chiro
Treatment
S1
S2
for two standard treatments, SNovum
for the standard treatment most similar to the novel treatment, and Novum
, for the novel treatment...
data(Diptera) dev.new(width=5, height=12) layout(matrix(1:6, nrow=6)) par(mar=c(2,5,3,1)) boxplot(Callip~Treatment, data=Diptera, horizontal=TRUE, las=1, main="Abundanz Callip", col=c("white","white","blue","red")) boxplot(Chloro~Treatment, data=Diptera, horizontal=TRUE, las=1, main="Abundanz Chloro", col=c("white","white","blue","red")) boxplot(Ephyd~Treatment, data=Diptera, horizontal=TRUE, las=1, main="Abundanz Ephyd", col=c("white","white","blue","red")) boxplot(Droso~Treatment, data=Diptera, horizontal=TRUE, las=1, main="Abundanz Droso", col=c("white","white","blue","red")) boxplot(Chiro~Treatment, data=Diptera, horizontal=TRUE, las=1, main="Abundanz Chiro", col=c("white","white","blue","red")) boxplot(Ges~Treatment, data=Diptera, horizontal=TRUE, las=1, main="Abundanz all Diptera", col=c("white","white","blue","red"))