setwd('C:/Users/matthias/Lehre/RaeumlicheStatistik/Blatt3')
data <- read.table('Blatt3dat.txt')
X <- data$X
Y <- data$Y

lambda0 = 0.2
W <- 1000000
est <- length(X) / W
print(est)

T <- sqrt(W / est)*(est - lambda0)  
z <- qnorm(0.975)

print(T)

if(abs(T) > z){
  print('Die Hypothese lambda=lambda0 wird verworfen')
}else{
  print('Die Hypothese lambda=lambda0 wird nicht verworfen')
}