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

#Zwei Streudiagramme nebeneinander
JavaGD()
par(mfrow=c(1,2))
plot(diamonds$carat[1:40],diamonds$price[1:40])
plot(diamonds$carat,diamonds$price)

#Streudiagrammmatrix
JavaGD()
pairs(~MATHS+FRENCH+HISTORY+GEOG+SCIENCE,
data=IrishExams2,pch=19)

#SŠulendiagramme
JavaGD()
par(mfrow=c(1,2))
barplot(table(diamonds$color))
barplot(table(diamonds$color),horiz=TRUE)

#Tortendiagramme
JavaGD()
par(mfrow=c(1,2))
pie(table(diamonds$cut))
pie(table(diamonds$color))

#Kontingenztafel
(t2<-table(IrishExams2$nonUS,IrishExams2$Sex))

#SŠulendiagramm nach Gruppen
JavaGD()
barplot(t2,beside=TRUE)

#Gestapeltes SŠulendiagramm nach absoluten Groessen)
JavaGD()
barplot(t2)

#Gestapltes SŠulendiagramm nach Prozente
JavaGD()
library(catspec)
t2y<-ctab(IrishExams2$nonUS,IrishExams2$Sex,type="c")
barplot(t2y$ctab)

#Spineplot
JavaGD()
spineplot(t(t2))