# Intervali poverenja

# (1)
# Naci 95%-tni interval povjerenja za parametar "m", ako je 
# nasa slucajna velicina X~N(m, 100). Obim uzorka je 64, a dobijena uzoracka sredina # 118.
 
n <- 64
x_sr <- 118
beta <- 0.95
sigma_kv <- 100 #- poznata vrednost


# Resenje:
c <- qnorm((1+beta)/2, 0, 1) # isto sto i qnorm((1+beta)/2) isto sto i qnorm(0.975)
c
l <- x_sr-c*sqrt(sigma_kv/n)
d <- x_sr+c*sqrt(sigma_kv/n)
l
d
(interval_poverenja <- c(l, d))