| saproDipGM | R Documentation |
In a field trial with 6 complete blocks, three treatments have been applied: a genetically modified crop variety was cultivated without insecticide treatment (GM), its near-isogenic counterpart (i.e. not genetically modified but otherwise genetically closely related to the GM crop) has been cultivated without insecticide treatment (Iso), and the near-isogenic variety has been cultivated with insecticide treatment (Ins). In each of the 18 plots, two emergence traps have been placed and Diptera with saprophagous larvae were classified to the species level and counted. A total number of 25 different species has been observed and included in the present data set. For each plot, the summed counts of each species over one cultivation period (in 2002) and the two traps is given in the columns Acor, ..., Tnud. Among others, one question in this trial was: Does the genetic modified variety effect biodiversity of the (ecologically important, non-target) species in comparison to the isogenic variety (as a negative control) and in comparison to the insecticide treated plants (as a positive control)?
data(saproDipGM)
A data frame with 18 observations on the following 27 variables.
Blocka numeric vector, values 1,...,6 indicate the blocks of the trial
Varietya factor, distinguishing the 3 treatment levels: GM (genetically modified, no insecticide), Ins (not genetically modified, insecticide treatment) , and Iso (not genetically modified, no insecticide)
Acora numeric vector of counts of the first species
Aruba numeric vector...
Aapha numeric vector
Bbrea numeric vector
Btria numeric vector
Burta numeric vector
Bvaga numeric vector
Billa numeric vector
Ccrua numeric vector
Cmira numeric vector
Cvaga numeric vector
Dnita numeric vector
Danda numeric vector
Lcina numeric vector
Lcasa numeric vector
Malta numeric vector
Molia numeric vector
Mluca numeric vector
Mtoxa numeric vector
Pphaa numeric vector
Satoa numeric vector
Spala numeric vector
Satea numeric vector
Sleua numeric vector
Tnuda numeric vector
Data set provided by Dr. Sabine Prescher,Institute for Biosafety of Genetically Modified Plants, Julius-Kuehn-Institut, Braunschweig, Germany
data(saproDipGM)
str(saproDipGM)
# load("D:/Mueller/Biodiv/data/saproDipGM.rda")
# Display data as a mosaicplot
# Matrix of counts with appropriate names
COUNTS<-as.matrix(saproDipGM[,3:27])
SPECNAM<-names(saproDipGM)[3:27]
colnames(COUNTS)<-SPECNAM
rownames(COUNTS)<-saproDipGM[,"Variety"]
# Assign colors and order by decreasing total abundance
COL<-grey(c(0,2,4,6,8,1,3,5,7)/8)
DMO<-COUNTS[,order(colSums(COUNTS), decreasing=TRUE)]
# Mosaicplot
par(mar=c(4,2,1,1))
mosaicplot(DMO, col=COL, las=2, off=15, main="", cex=1.1)
mtext("A", side=3, line=-1.5, adj=0, cex=2)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.