Soil eklektor data for some families of Diptera

Description

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.

Usage

data(Diptera)

Format

A data frame with 32 observations on the following 7 variables.

Callip

a numeric vector

Chloro

a numeric vector

Ephyd

a numeric vector

Droso

a numeric vector

Ges

a numeric vector, total number of species

Chiro

a numeric vector

Treatment

a factor, specifying the four different treatments, with levels S1 S2 for two standard treatments, SNovum for the standard treatment most similar to the novel treatment, and Novum, for the novel treatment

Source

personal communications S. Prescher, JKI Braunschweig, Germany

Examples

data(Diptera)


layout(matrix(1:6, nrow=3))

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"))

Results

R version 3.3.1 (2016-06-21) -- "Bug in Your Hair"
Copyright (C) 2016 The R Foundation for Statistical Computing
Platform: x86_64-pc-linux-gnu (64-bit)

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> library(BSagri)
Loading required package: gamlss
Loading required package: splines
Loading required package: gamlss.data
Loading required package: gamlss.dist
Loading required package: MASS
Loading required package: nlme
Loading required package: parallel
 **********   GAMLSS Version 4.4-0  ********** 
For more on GAMLSS look at http://www.gamlss.org/
Type gamlssNews() to see new features/changes/bug fixes.

Loading required package: multcomp
Loading required package: mvtnorm
Loading required package: survival

Attaching package: 'survival'

The following object is masked from 'package:gamlss.data':

    leukemia

Loading required package: TH.data

Attaching package: 'TH.data'

The following object is masked from 'package:MASS':

    geyser

Loading required package: MCPAN
> png(filename="/home/ddbj/snapshot/RGM3/R_CC/result/BSagri/Diptera.Rd_%03d_medium.png", width=480, height=480)
> ### Name: Diptera
> ### Title: Soil eklektor data for some families of Diptera
> ### Aliases: Diptera
> ### Keywords: datasets
> 
> ### ** Examples
> 
> data(Diptera)
> 
> 
> layout(matrix(1:6, nrow=3))
> 
> 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"))
> 
> 
> 
> 
> 
> 
> 
> dev.off()
null device 
          1 
>