Превращение малой выборки в Генеральную Совокупность заданного объема бутстрепингом

MinInGS = function(data, N, cl){
# превращение малой выборки в ГС с помощью бутстрепа
#install.packages("rcompanion") 
# load library rcompanion 
library(rcompanion) 

На вход функция принимает вектор малой выборки, объем будущей генеральной совокупности и доверительный интервал в долях единицы. Функция вернет искусственно созданную бутстрепом генеральную совокупность заданного объема, описательные статистики исходных данных и созданных ГС и доверительные интервалы. Кроме этого будет построена гистограмма с плотностью вероятности для ГС и средним значением для выборки (вертикальная синяя линия)

=========================================================

setwd('C:/R myFunction') 
source('MinInGS.R')

x = c(4, 5, 6, 3, 4, 5, 2, 4, 5, 4, 3, 4, 5,4, 3, 2, 4)

MinInGS(data = x,N = 5000,cl = 0.95)