VarCI(d.pizza$price, na.rm=TRUE)
VarCI(d.pizza$price, conf.level=0.99, na.rm=TRUE)
round(VarCI(d.pizza[,1:4], na.rm=TRUE), 3)
x <- c(14.816,14.863,14.814,14.998,14.965,14.824,14.884,14.838,14.916,
15.021,14.874,14.856,14.860,14.772,14.980,14.919)
VarCI(x, conf.level=0.9)
# and for the standard deviation
sqrt(VarCI(x, conf.level=0.9))
# some bootstrap intervals
VarCI(x, type="norm")
VarCI(x, type="perc")
VarCI(x, type="bca")
Run the code above in your browser using DataLab