https://editor.codecogs.com

Variable aleatoria discreta Los parámetros:

Media:

\(E(x)= \sum (x*p)\)

Varianza:

\(Var(x)= \sum (x^{2}*p)- Ex^{2}\)

# Caso1:

# Se tiene los resultados de la variable x

x<- c(1,2,3,4,5,6)

# y las robabilidad de ocurrencia de cada resultado:

p<- c( 0.10, 0.05, 0.15, 0.20, 0.10, 0.40)
# calculando la media:E(x) ---> u

u<- sum(x*p);u
## [1] 4.35
# calculando la varianza: Var(x) --- > Var

Var<- sum(x^2*p)- sum(x*p)^2
Var
## [1] 2.8275
# el gráfico de bastones
plot(x,p,
     xlab=" X"   ,
     ylab=" probabilidad",
     main=" Distribución  de una v.a (x)",
     ylim= c(0, 0.45) ,
     type = "h",       # tipo bastón
     col="blue2")

 points(x,p,pch=16,col="red2")
abline(h=0,col =" gray")