install.packages("boot") #скачивание библиотеки для бутстрэп-анализа
library("boot") #подключение библиотеки
myfn <- function(x) {return(mean(x))} #функция для расчета статистики
result <- boot(data$varname, myfn, R = 999) #бутстрэп-анализ
#где data$ — таблица с исходными данными $ имя исследуемого столбца
#myfn — статистика, которую требуется рассчитать при помощи пользовательской функции
#R — число бутстрэп выборок
result #текстовый вывод результатов
plot(result) #визуализация эмпирического распределения
quantile(result$t, c(0.025, 0.975)) #доверительный интервал для среднеарифметического