#Daten einlesen
IrishExams <- read.table("..../IrishExams.txt",header=T,sep="\t",quote="")

#Statistiken
summary(IrishExams$MATHS,na.rm=TRUE)
summary(IrishExams[,6:14],na.rm=TRUE)
mean(IrishExams[,6:14],na.rm=TRUE)

#Histogramme
dev.new(height=750)
par(mfrow=c(4,1))
hist(IrishExams$MATHS)
hist(IrishExams$MATHS,xlim=c(0,100),breaks=seq(0,100,5),col="blue")
hist(IrishExams$MATHS,xlim=c(0,100),breaks=seq(0,100,2),col="red")
hist(IrishExams$MATHS,xlim=c(0,100),breaks=seq(0,100,2),col="red",right=FALSE)

#Andere FŠcher
dev.new(height=750)
par(mfrow=c(4,1))
hist(IrishExams$MATHS,xlim=c(0,100),breaks=seq(0,100,2),col="red",right=FALSE)
hist(IrishExams$ENGLISH,xlim=c(0,100),breaks=seq(0,100,2),col="green",right=FALSE)
hist(IrishExams$SCIENCE,xlim=c(0,100),breaks=seq(0,100,2),col="orange",right=FALSE)
hist(IrishExams$GERMAN,xlim=c(0,100),breaks=seq(0,100,2),col="black",right=FALSE)

#Geschlechtsvergleich
MIE<-subset(IrishExams,Sex=="M")
FIE<-subset(IrishExams,Sex=="F")
dev.new(height=750)
par(mfrow=c(3,1))
hist(MIE$MATHS,xlim=c(0,100),ylim=c(0,10),breaks=seq(0,100,2),col="red",right=FALSE)
hist(FIE$MATHS,xlim=c(0,100),ylim=c(0,10),breaks=seq(0,100,2),col="blue",right=FALSE)
hist(IrishExams$MATHS,xlim=c(0,100),ylim=c(0,10),breaks=seq(0,100,2),col="green",right=FALSE)

#Streudiagramme
plot(IrishExams$MATHS,IrishExams$SCIENCE,pch=19)
plot(IrishExams$MATHS,IrishExams$ENGLISH,pch=19)
plot(IrishExams$MATHS,IrishExams$ENGLISH,pch=19,xlim=c(0,100),ylim=c(0,100))
plot(IrishExams$HISTORY,IrishExams$FRENCH,pch=19,xlim=c(0,100),ylim=c(0,100))

#Streudiagrammmatrix
pairs(IrishExams[,6:14],pch=19,xlim=c(0,100),ylim=c(0,100))

#SŠulendiagramme
barplot(table(IrishExams$Sex))
barplot(table(IrishExams$Nationality))

barplot(mean(IrishExams[,6:14],na.rm=TRUE))
barplot(mean(IrishExams[,6:14]-55,na.rm=TRUE))