# Stochastik IV, Übungsblatt 2

# Aufgabe 3

library(lattice)

# Einlesen der Daten und Einbinden in Suchpfad

data.barley <- 
read.table("D:/Univ Augsburg/Lehre/SS07/VO_MultiVar/Datensaetze/Barley.txt", 
header = TRUE, sep = "\t", quote = "")

attach(data.barley)

# Trellis Plot: Spalten Jahre (weil 'year' numerisch, benutze as.factor()) 
# und Zeilen Sorte

bwplot(species ~ yield | as.factor(year), data = data.barley, 
xlab = "Barley Yield (bushels/acre)", ylab = "Species", 
main = "Trellis Box-Plot \"Yield vs. Species, given Years\"")

# Trellis Plot: Spalten Jahre und Zeilen Site

windows()

bwplot(site ~ yield | as.factor(year), data = data.barley, 
xlab = "Barley Yield (bushels/acre)", ylab = "Sites", 
main = "Trellis Box-Plot \"Yield vs. Sites, given Years\"")