# Kod. 3.9. Wyznaczanie przedziałów ufności metodą bootstrap z wykorzystaniem biblioteki boot
library(boot)
attach(cars)
ratio <- function(d, w) sum(speed*w) /sum(dist *w)
boot(cars, ratio, R = 999, stype = "w")
b1=boot(cars, ratio, R = 999, stype = "w")
boot.ci(b1, conf = c(0.90, 0.95), type = c("perc", "norm","bca"))