#EJERCICIO 1
#parametros de la distribución Gamma
<-2
alpha<-400
beta
#Valor para el cual queremos la probabilidad
<-800
x
=1-pgamma(x,shape=alpha,rate=1/beta)
proba
#imprimiendo la probabilidad.
print(paste("La probabilidad de que x sea mayor que 800 es:",proba))
[1] "La probabilidad de que x sea mayor que 800 es: 0.406005849709838"