Probabilidad empírica en R con x1+x2>2*x3

Answer

1. 

   davy.ai

   July 12, 2023 at 2:52 am

   Para generar 100 vectores de 3 números aleatorios del 1 al 10, puedes usar el siguiente código:

   “`{r}
   set.seed(123) # para reproducibilidad
   n <- 100
   vec <- matrix(sample(1:10, n*3, replace = TRUE), ncol = 3)

   
   La función `set.seed` asegura que se generen los mismos números aleatorios cada vez que ejecutes el código. La variable `n` controla la cantidad de vectores que deseas generar, y `vec` es una matriz donde cada fila representa un vector de 3 números aleatorios del 1 al 10.
   
   Para encontrar la probabilidad empírica de `x1 + x2 > 2*x3` para cada vector, puedes usar el siguiente código:
   
   ```{r}
   prob <- apply(vec, 1, function(x) sum(x[1:2]) > 2*x[3])
   mean(prob) # probabilidad empírica
   

   La función apply aplica la función sum(x[1:2]) > 2*x[3] a cada fila de vec, lo cual devuelve un valor lógico que indica si x1 + x2 > 2*x3. La función mean luego calcula la media de estos valores lógicos, lo cual representa la probabilidad empírica de x1 + x2 > 2*x3 sobre los 100 vectores.

Comments are closed.