setwd("~/CStat_wis1WC4a")

set.seed(1234)

Teststat.H0<-vector()

for (i in 100000) {

H0.sample<-sample(x = c(0 ,1),

size = 41,

replace = TRUE,

prob = c(0.19, 0.81))

Teststat.H0[i]=mean(h0.sample)

}

hist(Teststat.H0)

P<-mean(Teststat.h0<=070)