Este estudio de caso constituye el 60% de la calificación.
El exámen es individual y desde ese punto de vista dos exámenes no tienen porque estar iguales ni parecidos.
El reporte final se debe enviar a más tardar el domingo 21 de octubre de 2022 a más tardar a las 11:59 al correo mario.saavedra@yexternado.edu.co
Reportar las cifras utilizando la cantidad adecuada de decimales.
El archivo del reporte final debe ser generado por Markdown en formato pdf.
La presentación, la organización, la redacción y la ortografía serán parte integral de la calificación.
Cualquier evidencia de plagio o copia se castigará severamentetal y como el reglamento de la Universidad lo estipula.
Elabore, mediante RStudio, cada uno de los puntos tomando como punto de partida los conceptos vistos en clase, los códigos usados y las notas del curso.
Considere el experimento aleatorio de lanzar un par de dados al aire.
Considere el experimento aleatorio de lanzar un par de dados al aire.
Defina cada una de los siguientes elementos
Defina para éste caso en partícular:
Espacio muestral
Probabilidades asociadas con cada punto muestral (resultados de la suma de las caras de los dados que quedan mirando hacia arriba)
Gráfique las probabilidades mediante una gráfico de barras
Use el código visto en clase para replicar el juego de Monty Hall; un concurso de televisión estadounidense Let’s Make a Deal; en dicho concurso el participante escoge una puerta de entre tres y su premio consiste en lo que encuentre detrás; una de las puertas oculta un automóvil, mientras que detràs de las otras dos hay cabras. Antes de abrir la puerta seleccionada, el presentador, que sabe donde esta el automóvil abre una de las otras dos puertas y muestra que detrás de ella hay una cabra. Ahora el concursante tiene una última oportunidad de cambiar la puerta elgida.
juego <- function(){
premio <- sample(1:3, 1)
elegida <- sample(1:3, 1)
otras <- c(1:3)[-c(premio, elegida)]
if(elegida == premio){
cerrada <- sample(otras, 1)
}
else{
cerrada <- premio
}
cerrada == premio
}
library(plyr)
sum(rdply(2000, juego)[, 2]) / 2000## [1] 0.6615Explique el porque se cambian las probabilidades y el trasfondo del problema a la luz de los conceptos vistos en clase.