Uniforme

Introduccion de datos
set.seed(2021)
U=round(runif(100,30, 80))
Variables
MU<-mean(U); MU # Media de la Materia organica 
## [1] 57.58
MinU<-min(U);MinU # Minimo
## [1] 31
MaxU<-max(U);MaxU # Maximo
## [1] 80
medU<-median(U);medU # Mediana 
## [1] 58
varU<-var(U);varU # Varianza
## [1] 232.4279
desvU<-sd(U);desvU # Desviacion estandar
## [1] 15.24559
cuartiles<-quantile(U,c(0.25,0.75))
Q1<-cuartiles[1];Q1
##   25% 
## 43.75
Q3<-cuartiles[2];Q3
##   75% 
## 71.25
Boxplot
boxplot(U,horizontal = T)
text(MinU,1.2, "Min")
text(Q1,0.7, "Q1")
text(Q3,0.7, "Q3")
text(medU,1.3, "Median")
text(MaxU,1.2, "Max")
points(MU,1,col="orange",pch=16)
arrows(x0 =MU ,y0 =1 ,x1 =MU ,y1 =0.5,lty=2,col="orange",lwd=1)
text(MU+0.05,0.6, "Mean",col="orange")

Histograma
hist(U)
abline(v=MU,col="darkgreen",lwd=2)
abline(v=medU,col="red",lwd=2)
abline(v=MU+c(desvU,-desvU),col="green",lwd=2)
abline(v=MU+c(2*desvU,-2*desvU),col="blue",lwd=2)

Beta

Introduccion de datos
set.seed(2021)
Bt=rbeta(100,4, 2)
Variables
MBt<-mean(Bt); MBt # Media de la Materia organica 
## [1] 0.7032343
MinBt<-min(Bt);MinBt # Minimo
## [1] 0.24404
MaxBt<-max(Bt);MaxBt # Maximo
## [1] 0.9862767
medBt<-median(Bt);medBt # Mediana 
## [1] 0.7069635
varBt<-var(Bt);varBt # Varianza
## [1] 0.02940106
desvBt<-sd(Bt);desvBt # Desviacion estandar
## [1] 0.1714674
cuartiles<-quantile(Bt,c(0.25,0.75))
Q1<-cuartiles[1];Q1
##       25% 
## 0.6023308
Q3<-cuartiles[2];Q3
##       75% 
## 0.8496167
Boxplot
boxplot(Bt,horizontal = T)
text(MinBt,1.2, "Min")
text(Q1,0.7, "Q1")
text(Q3,0.7, "Q3")
text(medBt,1.3, "Median")
text(MaxBt,1.2, "Max")
points(MBt,1,col="orange",pch=16)
arrows(x0 =MBt ,y0 =1 ,x1 =MBt ,y1 =0.5,lty=2,col="orange",lwd=1)
text(MBt+0.05,0.6, "Mean",col="orange")

Histograma
hist(Bt)
abline(v=MBt,col="darkgreen",lwd=2)
abline(v=medBt,col="red",lwd=2)
abline(v=MBt+c(desvBt,-desvBt),col="green",lwd=2)
abline(v=MBt+c(2*desvBt,-2*desvBt),col="blue",lwd=2)

Lognorm

Introduccion de datos
set.seed(123)
Ln=rlnorm(100,3 ,0.3)
Variables
MLn<-mean(Ln); MLn # Media de la Materia organica 
## [1] 21.42161
MinLn<-min(Ln);MinLn # Minimo
## [1] 10.04675
MaxLn<-max(Ln);MaxLn # Maximo
## [1] 38.71395
medLn<-median(Ln);medLn # Mediana 
## [1] 20.4612
varLn<-var(Ln);varLn # Varianza
## [1] 35.9404
desvLn<-sd(Ln);desvLn # Desviacion estandar
## [1] 5.995032
cuartiles<-quantile(Ln,c(0.25,0.75))
Q1<-cuartiles[1];Q1
##     25% 
## 17.3197
Q3<-cuartiles[2];Q3
##      75% 
## 24.71838
Boxplot
boxplot(Ln,horizontal = T)
text(MinLn,1.2, "Min")
text(Q1,0.7, "Q1")
text(Q3,0.7, "Q3")
text(medLn,1.3, "Median")
text(MaxLn,1.2, "Max")
points(MLn,1,col="orange",pch=16)
arrows(x0 =MLn ,y0 =1 ,x1 =MLn ,y1 =0.5,lty=2,col="orange",lwd=1)
text(MLn+0.05,0.6, "Mean",col="orange")

Histograma
hist(Ln)
abline(v=MLn,col="darkgreen",lwd=2)
abline(v=medLn,col="red",lwd=2)
abline(v=MLn+c(desvLn,-desvLn),col="green",lwd=2)
abline(v=MLn+c(2*desvLn,-2*desvLn),col="blue",lwd=2)

T-Student

Introduccion de datos
set.seed(2021)
Tst=rt(100,67,5)
Variables
MTst<-mean(Tst); MTst # Media de la Materia organica 
## [1] 4.871382
MinTst<-min(Tst);MinTst # Minimo
## [1] 2.343892
MaxTst<-max(Tst);MaxTst # Maximo
## [1] 7.581688
medTst<-median(Tst);medTst # Mediana 
## [1] 4.748323
varTst<-var(Tst);varTst # Varianza
## [1] 1.321159
desvTst<-sd(Tst);desvTst # Desviacion estandar
## [1] 1.149417
cuartiles<-quantile(Tst,c(0.25,0.75))
Q1<-cuartiles[1];Q1
##      25% 
## 4.055181
Q3<-cuartiles[2];Q3
##      75% 
## 5.723218
Boxplot
boxplot(Tst,horizontal = T)
text(MinTst,1.2, "Min")
text(Q1,0.7, "Q1")
text(Q3,0.7, "Q3")
text(medTst,1.3, "Median")
text(MaxTst,1.2, "Max")
points(MTst,1,col="orange",pch=16)
arrows(x0 =MTst ,y0 =1 ,x1 =MTst ,y1 =0.5,lty=2,col="orange",lwd=1)
text(MTst+0.05,0.6, "Mean",col="orange")

Histograma
hist(Tst)
abline(v=MTst,col="darkgreen",lwd=2)
abline(v=medTst,col="red",lwd=2)
abline(v=MTst+c(desvTst,-desvTst),col="green",lwd=2)
abline(v=MTst+c(2*desvTst,-2*desvTst),col="blue",lwd=2)

Binomial

Introduccion de datos
set.seed(2021)
B=rbinom(100, 20, 0.7)
Variables
MB<-mean(B); MB # Media de la Materia organica 
## [1] 13.64
MinB<-min(B);MinB # Minimo
## [1] 8
MaxB<-max(B);MaxB # Maximo
## [1] 18
medB<-median(B);medB # Mediana 
## [1] 14
varB<-var(B);varB # Varianza
## [1] 4.980202
desvB<-sd(B);desvB # Desviacion estandar
## [1] 2.231637
cuartiles<-quantile(B,c(0.25,0.75))
Q1<-cuartiles[1];Q1
## 25% 
##  12
Q3<-cuartiles[2];Q3
## 75% 
##  15
Boxplot
boxplot(B,horizontal = T)
text(MinB,1.2, "Min")
text(Q1,0.7, "Q1")
text(Q3,0.7, "Q3")
text(medB,1.3, "Median")
text(MaxB,1.2, "Max")
points(MB,1,col="orange",pch=16)
arrows(x0 =MB ,y0 =1 ,x1 =MB ,y1 =0.5,lty=2,col="orange",lwd=1)
text(MB+0.05,0.6, "Mean",col="orange")

Histograma
hist(B)
abline(v=MB,col="darkgreen",lwd=2)
abline(v=medB,col="red",lwd=2)
abline(v=MB+c(desvB,-desvB),col="green",lwd=2)
abline(v=MB+c(2*desvB,-2*desvB),col="blue",lwd=2)

Poisson

Introduccion de datos
set.seed(2021)
P=rpois(100, 43)
Variables
MP<-mean(P); MP # Media de la Materia organica 
## [1] 42.91
MinP<-min(P);MinP # Minimo
## [1] 28
MaxP<-max(P);MaxP # Maximo
## [1] 76
medP<-median(P);medP # Mediana 
## [1] 42
varP<-var(P);varP # Varianza
## [1] 63.13323
desvP<-sd(P);desvP # Desviacion estandar
## [1] 7.945642
cuartiles<-quantile(P,c(0.25,0.75))
Q1<-cuartiles[1];Q1
## 25% 
##  38
Q3<-cuartiles[2];Q3
## 75% 
##  48
Boxplot
boxplot(P,horizontal = T)
text(MinP,1.2, "Min")
text(Q1,0.7, "Q1")
text(Q3,0.7, "Q3")
text(medP,1.3, "Median")
text(MaxP,1.2, "Max")
points(MP,1,col="orange",pch=16)
arrows(x0 =MP ,y0 =1 ,x1 =MP ,y1 =0.5,lty=2,col="orange",lwd=1)
text(MP+0.05,0.6, "Mean",col="orange")

Histograma
hist(P)
abline(v=MP,col="darkgreen",lwd=2)
abline(v=medP,col="red",lwd=2)
abline(v=MP+c(desvP,-desvP),col="green",lwd=2)
abline(v=MP+c(2*desvP,-2*desvP),col="blue",lwd=2)

### Hipergeométrica

Introduccion de datos
set.seed(2021)
H= rhyper(100, 29, 71, 18)
Variables
MH<-mean(H); MH # Media de la Materia organica 
## [1] 5.52
MinH<-min(H);MinH # Minimo
## [1] 2
MaxH<-max(H);MaxH # Maximo
## [1] 10
medH<-median(H);medH # Mediana 
## [1] 5
varH<-var(H);varH # Varianza
## [1] 3.322828
desvH<-sd(H);desvH # Desviacion estandar
## [1] 1.822863
cuartiles<-quantile(H,c(0.25,0.75))
Q1<-cuartiles[1];Q1
## 25% 
##   4
Q3<-cuartiles[2];Q3
## 75% 
##   7
Boxplot
boxplot(H,horizontal = T)
text(MinH,1.2, "Min")
text(Q1,0.7, "Q1")
text(Q3,0.7, "Q3")
text(medH,1.3, "Median")
text(MaxH,1.2, "Max")
points(MH,1,col="orange",pch=16)
arrows(x0 =MH ,y0 =1 ,x1 =MH ,y1 =0.5,lty=2,col="orange",lwd=1)
text(MH+0.05,0.6, "Mean",col="orange")

Histograma
hist(H)
abline(v=MH,col="darkgreen",lwd=2)
abline(v=medH,col="red",lwd=2)
abline(v=MH+c(desvH,-desvH),col="green",lwd=2)
abline(v=MH+c(2*desvH,-2*desvH),col="blue",lwd=2)