R_L5

/*
Задание 5

Постройте случайную нормально распределенную выборку х1 с параметрами: n = 100, mean=3, sd=2.

 Найдите её выборочные среднее (mean()), стандартное отклонение(sd()) и дисперсию(var()).

Постройте вектор случайных значений х2, подчиняющихся биноминальному закону распределения, с параметрами 500, 10, 0.5.

Найдите характеристики вектора x2 при помощи функции summary().

По выборке x2 постройте эмпирическую функцию распределения (ecdf()).

Постройте график эмпирической функции распределения и гистограмму.

Вычислите коэффициенты корреляции (cor()) (для x=x2, y=x2) и ковариации (cov()) для выборки x2.

Теперь разбейте выборку x2 на пять частей (как будто у нас 5 столбцов) и представьте результат в виде матрицы x3.

Постройте матрицу ковариаций для x3.

Преобразуйте ковариационную матрицу в матрицу корреляций (cov2cor()).

link https://yadi.sk/d/D8SBjMDL91jnQA
*/

n=100
mean=3
sd=2

plot(rnorm(n,mean,sd))

mean(rnorm(n,mean,sd))
sd(rnorm(n,mean,sd))
var(rnorm(n,mean,sd))

x2=c((rbinom(500,10,0.5)))
x2

summary(x2)

ecdf(x2)
par(mfrow=c(1,2))
plot(ecdf(x2),main="График",col="purple")
#barplot(height=x2,col="blue",main="Гистограмма эмпирической функции")
hist(x2,main="Гистограмма",col="purple")

corX=cor(x=x2,y=x2)
corX

covX=cov(x=x2,y=x2)
covX

x3=matrix(x2,100,5)
x3
covx3=cov(x3)
covx3
cov2cor(covx3)