# NOT RUN {
set.seed(1984)
BootCI(d.pizza$temperature, FUN=mean, na.rm=TRUE, bci.method="basic")
BootCI(d.pizza$temperature, FUN=mean, trim=0.1, na.rm=TRUE, bci.method="basic")
BootCI(d.pizza$temperature, FUN=Skew, na.rm=TRUE, bci.method="basic")
BootCI(d.pizza$operator, d.pizza$area, FUN=CramerV)
spearman <- function(x,y) cor(x, y, method="spearman", use="p")
BootCI(d.pizza$temperature, d.pizza$delivery_min, FUN=spearman)
# }
Run the code above in your browser using DataLab