Cuaderno de Probabilidad
Jose Mauricio Alvarenga Rodriguez.
2025-12-01
n<-1000
U<-runif(n,min=0,max=1)
X<- -log(1-U)
Y<-exp(-X)
hist(Y, breaks = 50, col = "skyblue", freq = FALSE,
main = "Distribución de Y = exp(-x), X~Exp(1)",
xlab = "Y")
n<-1000
U<-runif(n,min=0,max=1)
X<- -log(1-U)
Y<-exp(-X)
hist(Y, breaks = 50, col = "skyblue", freq = FALSE,
main = "Distribución de Y = exp(-x), X~Exp(1)",
xlab = "Y")