# single estimate
confint2.default(obj = 10, se = 3)
# multiple estimates
est <- colMeans(attitude)
se <- apply(X = str2str::d2m(attitude), MARGIN = 2, FUN = function(vec)
sqrt(var(vec) / length(vec)))
df <- nrow(attitude) - 1
confint2.default(obj = est, se = se, df = df)
confint2.default(obj = est, se = se) # default is df = Inf and use of ctitical z-values
confint2.default(obj = est, se = se, df = df, level = 0.99)
# error
if (FALSE) {
confint2.default(obj = c(10, 12), se = c(3, 4, 5))
}
Run the code above in your browser using DataLab