Nematocera {BSagri}

Trap counts of Nematocera

Description

In a field trial, 4 treatments (A,B, Standard, Novum) were arranged in a randomized complete block design with 8 blocks and 32 plots. In summer 2005 soil eklektor traps were placed in each plot, on six dates from 2005-07-12 to 2005-09-25, the number of individuals of Nematocera (gnats, midges and others) hatching from soil were counted. The individuals were classified to the family level. Interest was in assessing potential effects of a novel agricultural practice (Novum) on the abundance of Nematocera.

Usage

data(Nematocera)

Format

A data frame with 192 observations on the following 14 variables.

Date

a POSIXt, the time of counting the individuals in the eklektor trap

Treatment

a factor with 4 levels, A, B, Standard and Novum, where Novum is the novel treatment, Standard is the standard treatment most similar to Novum, and A and B are additional standard treatments.

Block

a numeric vector, specifying the blocks 1-8

Plot

a factor with 32 levels A1 to Standard8, indicator variables for the individual eklektors

Bibio

a numeric vector, counts of individuals, belonging to the family

Cecido

a numeric vector, counts of individuals, belonging to the family

Cerato

a numeric vector, counts of individuals, belonging to the family

Chiro

a numeric vector, counts of individuals, belonging to the family

Myceto

a numeric vector, counts of individuals, belonging to the family

Psycho

a numeric vector, counts of individuals, belonging to the family

Scato

a numeric vector, counts of individuals, belonging to the family

Sciari

a numeric vector, counts of individuals, belonging to the family

Tipuli

a numeric vector, counts of individuals, belonging to the family

Total

a numeric vector, total count of individuals belonging to the suborder Nematocera

Source

personal communications, S.Prescher, JKI Braunschweig, Germany

Examples

data(Nematocera)

par(mar=c(11,5,3,1))

boxplot(Total ~ Treatment*Date, data=Nematocera, las=2, col=c("white","white","blue","green"))
legend(x=15, y=100, legend=levels(Nematocera$Treatment), fill=c("white","white","blue","green"))

pairs(Nematocera[,c("Cecido","Cerato","Chiro","Myceto","Psycho","Sciari")])