#Lección 2. Variables aleatorias
a=100
N=100000
X=a*rexp(N)


#Función de distribución teórica
pexp(100,60)

pX90=1-exp(-100/100)
pX90

Y=NULL
for(i in 1:N)
if(X[i]<=100) Y=c(Y,1) else Y=c(Y,0)
mean(Y)
sum(Y)

mean(X)