# NOT RUN {
x <- d.pizza$price[1:20]
MeanCI(x, na.rm=TRUE)
MeanCI(x, conf.level=0.99, na.rm=TRUE)
MeanCI(x, sides="left")
# same as:
t.test(x, alternative="greater")
MeanCI(x, sd=25, na.rm=TRUE)
# the different types of bootstrap confints
MeanCI(x, method="boot", type="norm", na.rm=TRUE)
MeanCI(x, trim=0.1, method="boot", type="norm", na.rm=TRUE)
MeanCI(x, trim=0.1, method="boot", type="basic", na.rm=TRUE)
MeanCI(x, trim=0.1, method="boot", type="stud", na.rm=TRUE)
MeanCI(x, trim=0.1, method="boot", type="perc", na.rm=TRUE)
MeanCI(x, trim=0.1, method="boot", type="bca", na.rm=TRUE)
MeanCI(x, trim=0.1, method="boot", type="bca", R=1999, na.rm=TRUE)
# Getting the MeanCI for more than 1 column
round(t(sapply(d.pizza[, 1:4], MeanCI, na.rm=TRUE)), 3)
# }
Run the code above in your browser using DataLab