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)
Hallo @Michaelkyrg, welkom in deze groep .
Regarding your code take note of the following:
for (i in 100000)
This topic was automatically closed 21 days after the last reply. New replies are no longer allowed. If you have a query related to it or one of the replies, start a new topic and refer back with a link.