rm(list=ls())
# Aufgabe 4: 
dat <- read.table("C:/Users/Chris/Documents/Stochastik III/R/geysir.dat",header=T)
t.test(dat$Eruptionsdauer,mu=3.5,alternative="two.sided")
t.test(dat$Zeitspanne,mu=75,alternative="two.sided")