22.05.2019

# 1 zad.
prop.test(c(71,195),c(351,605))

# 2 zad.
v1 = c(15, 10, 13, 7, 9, 8, 21, 9, 14, 8)
sd(v1)

v2 = c(15, 14, 12, 8, 14, 10, 7, 16, 10, 15, 12)
sd(v2)

# ne sa ravni
# normalno li sa razpredeleni?
shapiro.test(c(15, 14, 12, 8, 14, 10, 7, 16, 10, 15, 12)) # > 0.05
shapiro.test(c(15, 10, 13, 7, 9, 8, 21, 9, 14, 8)) # 0.05

# => normalno sa razpredeleni

t.test(v1, v2, var.equal = FALSE) # > 0.05
# => priemame

# H0 - podobriava
# H1 - ne podobriava
mean(v1)
mean(v2)

# 3 zad.
v1 = c(70, 85, 63, 54, 65, 80, 75, 95, 52, 55)
v2 = c(72, 86, 62, 55, 63, 80, 78, 90, 53, 57)

shapiro.test(v1) # > 0.05 => sa normalni
shapiro.test(v2) # > 0.05 => sa normalni

# zavisimi sa
t.test(v1, v2, paired = TRUE) # > 0.05 => nqmame osn. da oth. hip., che dvata radara sa/ne sa (ne znam) ednakvi