2023-10-18 20:32:31 +02:00
|
|
|
alpha=0.0003
|
|
|
|
|
lower=qnorm(alpha,mean=0,sd=1)
|
|
|
|
|
upper=qnorm(1-alpha,mean=0,sd=1)
|
|
|
|
|
|
2023-10-18 20:55:32 +02:00
|
|
|
message(paste0("Rejection region for left tail: Z in ]-inf,",lower,"]"))
|
|
|
|
|
message(paste0("Rejection region for right tail: Z in [",upper,",+inf["))
|
2023-10-18 20:32:31 +02:00
|
|
|
|
