##################
### DESETI CAS ###
##################

# 

# 1. 
podaci <- c(23,7,18,13) 
podaci <- matrix(podaci, ncol = 2, byrow = TRUE) # pravimo tabelu 
podaci
chisq.test(podaci) # p-vrednost testa je velika (veca od 0.05), pa zakljucujemo da broj izlecenih pacijenata ne zavisi od vrste tretmana


# 2. 
# za vezbu

# 3. 
# nije obavezno
1-pchisq(1.6243, df = 1)