Доверительные интервалы Bootstrap в R?

Как я могу вычислить 95% доверительные интервалы бутстрапа для T.hat с помощью базового доверительного интервала бутстрапа и студенческого интервала бутстрапа?

failtimes<-c(3, 5, 7, 18, 43, 85, 91, 98, 100, 130, 230, 487)
T.hat=length(failtimes)/sum(failtimes)

#Bootstrap estimate of bias
B <- 999   
n <- length(failtimes)
T.b <- numeric(B)

for (b in 1:B) {
    y <- sample(failtimes, size = n, replace = TRUE)
    T.b[b] <- mean(y)
}

Спасибо!