Resolver el problema de probabilidad de tirar dados, lenguaje R

El primero se llama dados

dados<-function(N){ #Crea una ecuación llamada dados

count<-0 #Contador: Inicializado a 0

for(n en 1:N){ #Ejecutar N veces

resultado<-1 #Este es el producto del número de puntos del dado, inicializado en 1

for(i en 1:3){ #votar tres veces

resultado<-result*sample(1:6,1) #sample(1:6,1) significa de 1 Aleatoriamente seleccione uno de los 6

}

if(resultado<90) #Si el producto es menor a 90

cuenta<-count+1 #incrementar en 1

}

prob<-round(count/N,6) #La probabilidad se mantiene en 6 decimales

return(prob) #La función devuelve esta probabilidad

}

Después de editar, obtenga su archivo R en la consola y luego ingrese dice(100000)

> dice(100000)

[1] 0.84911

> dice(100000)

[1] 0.85275

Lo ejecuté 2 veces

La segunda pregunta No es necesario escribir funciones, solo hacer los cálculos. La vida útil promedio es de 3000 horas, entonces el parámetro lambda de la distribución exponencial es 1/3000 Si pexp(q,rate=r) es la función de distribución P(X

Entonces P(2000

>pexp(3000,rate=1/3000)- pexp(2000,rate=1 /3000)

[1] 0,1455377