#eine mathematische Sprache
#Operatoren
2+3
log(3.4**5+7-exp(2))

#Generierung von Werten
x<-seq(1,100,1)
x

#Funktionen von Variablen
y<-log(x)

#Defaults fŸr Graphiken und Zusammenfassungen
plot(x,y)
summary(y)

#Daten einlesen
Ng <- read.table("/Users/antonyunwin/Desktop/sssr-f/Data2006-f/Nightingale-f/NightingaleGuess.txt",header=T,sep="\t", quote="")
names(Ng)
plot(Ng$Group)
summary(Ng$Group)
attach(Ng)
table(Group)
avst<-AverageStrength
table(avst)
summary(avst)
sd(avst)
plot(avst)

#Neues Fenster
JavaGD()
hist(avst)
JavaGD()
boxplot(avst)

#Welche Objekte haben wir jetzt?
object.browser()

#Statistiken und Graphiken nach Gruppe
by(avst,list(Group),mean)
by(avst,list(Group),summary)
JavaGD()
boxplot(avst~Group)
boxplot(avst~Group,ylim=c(0,1100))