U nekoj anketi od 500 studenata 100 se izjasnilo protiv povecanja broja rokova . Sa pragom značajnosti 0.05 testirati hipotezu da je vise odd 80% studenata za povecanje broja rokova.

x_n <- (500-100)/500
n <- 500
p0 <- 0.8
alpha <- 0.05

test1 <- (x_n-p0)/sqrt(x_n*(1-x_n))*sqrt(n)
c1 <- qnorm(1-alpha)

test1>c1 # Prihvatamo H0.

## [1] FALSE

# bez aproksimacije

test2 <- (x_n-p0)/sqrt(p0*(1-p0))*sqrt(n)

test2>c1 # isti zakljucak

## [1] FALSE

# Ostale primjere iz testiranja hipoteza pogledati u materijalima sa predavanja !