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")