#diamonds <- read.table("...diamonds.txt",header=T,sep="\t",quote="")
#IrishExams <- read.table("...IrishExams2.txt",header=T,sep="\t",quote="")


stripchart(diamonds$price)
JavaGD()
par(mfrow=c(1,2))
stripchart(diamonds$price[1:40],pch=20,vertical=TRUE)
stripchart(diamonds$price[1:40],pch=20,vertical=TRUE,method="jitter")
JavaGD()
par(mfrow=c(2,1))
stripchart(diamonds$price[1:40],pch=19)
stripchart(diamonds$price[1:40],pch=19,method="jitter")
hist(diamonds$price)
JavaGD()
hist(diamonds$price[1:40])
boxplot(diamonds$price[1:40])
boxplot(diamonds$price)


JavaGD()
par(mfrow=c(2,2))
qqnorm(IrishExams$GEOG,pch=19,main="Geography (Erdkunde)")
qqline(IrishExams$GEOG)
qqnorm(IrishExams$HISTORY,pch=19,main="History (Geschichte)")
qqline(IrishExams$HISTORY)
qqnorm(IrishExams$MATHS,pch=19,main="Mathematik")
qqline(IrishExams$MATHS)
qqnorm(IrishExams$SCIENCE,pch=19,main="Science (Naturwissenschaften)")
qqline(IrishExams$SCIENCE)