rm(list=ls())
# Aufgabe2c: Wähle n=20, alpha=0.05, mu0=2
n <- 20
alpha <- 0.05
mu0 <- 2
mu <- seq(from=1.5,to=3.5,by=0.01)
arg <-1-pnorm(qnorm(1-alpha)+sqrt(n)*(mu0-mu))
pdf("C:/Users/Chris/Documents/Stochastik III/R/StochiiiBlatt2.pdf")
plot(mu,arg,type="l")
dev.off()
# Aufgabe2d: 
dat <- read.table("C:/Users/Chris/Documents/Stochastik III/R/geysir.dat",header=T)
t.test(dat$Eruptionsdauer,mu=3.5,alternative="greater")