Как мне изменить уровень доверия до 80% в R

Question

Я написал функцию в R, чтобы создать bootstrap среднего значения bmi и вывести 95% доверительный интервал. Как бы я изменил код, чтобы получить 80% доверительный интервал?

bs<-function(x,n){
  m_vec<-rep(NaN, n)

  for (i in 1:n){
    dist<-sample(x, replace = TRUE)
    m_vec[i]<-mean(dist, na.rm = TRUE)
  }

  ll<-round(quantile(m_vec, 0.025),2)
  ul<-round(quantile(m_vec, 0.975),2)
  paste("95% bootstrap inverval for the mean bmi for someone with cardivascular disease:", ll, "to", ul)
}