Menu główne
##########################################################################################
### Konstrukcja przedziału ufności metodą bootstrap z wykorzystaniem pakietu boot ###
##########################################################################################
library(boot)
ratio <-
boot_city=boot(city, ratio, R=1000, stype="w")
boot.ci(boot_city,type=c("norm","perc"))