### geysir.S ### Read in the  geysir data -- and write it to
 ### the   datasets.Data  collection
### ~~~~~~ ### 
attach("/u/sfs/S/datasets.Data", pos = 1)
old.faithful<-read.table("/u/sfs/ueb/datasets/geysir.dat",header =T)
attach(old.faithful)
motif()
par(mfrow=c(2,2))
hist(Zeitspanne)
hist(Eruptionsdauer)
hist(Zeitspanne,nclass=3)
hist(Eruptionsdauer,nclass=3)