####PROBABILIDAD DE EVENTOS INDEPENDIENTES #### Descripción: Se realizara tres ejercicios para poder realizar y resolver en el ambiente de ryr stduio con el fin de ayudarnos a enteder mas la probabilidad y estadistica en el entorno. #### 1. Identificar tres ejercicios de la literatura WEB o libros que se relacionen con probabilidad condicional

##EJERCICIO 1 Se lanza un dado, y no sale 6, lanzas de nuevo. ¿Cuál es la probabilidad de sacar un 6 en el segundo lanzamiento?

DADO <- c("1","2","3","4","5","6")
n <- length(DADO)
C6 <- c("6")
NC <- length(C6)
P6 <- NC/n

paste("la probabilidad de sacar un 6 en el segundo lanzamiento es de :",(P6 * 100), "%")
## [1] "la probabilidad de sacar un 6 en el segundo lanzamiento es de : 16.6666666666667 %"
## [1] "la probabilidad de sacar un 6 en el segundo lanzamiento es de : 16.6666666666667 %"
OTC <- c("1","2","3","4","5")
N.OTC <- length(OTC)
POTC <- N.OTC / n
paste("La probabilidad de sacar otro numero, que no sea 6 es de :",POTC, "%")
## [1] "La probabilidad de sacar otro numero, que no sea 6 es de : 0.833333333333333 %"
## [1] "La probabilidad de sacar otro numero, que no sea 6 es de : 0.833333333333333 %"

##EJERCICIO 2 Un alumno contesta las 70 preguntas de la P.S.U. de matemáticas al azar. Si cada pregunta tiene 5 alternativas y sólo una de éstas es corre cta, entonces ¿Cuál es la probabilidad de que tenga el puntaje máximo?

Hay una alternativa correcta de un total de cinco en cada pregunta. Por lo tanto, la probabilidad de acertar una esuna de cuatro, es decir, P(x = 1) = 1/5

## p(x=70)=  (1/5) (1/5) (1/5) (1/5) (1/5) (1/5) (1/5) (1/5) (1/5) (1/5)
##                    (1/5) (1/5) (1/5) (1/5) (1/5) (1/5) (1/5) (1/5) (1/5) (1/5)
##                    (1/5) (1/5) (1/5) (1/5) (1/5) (1/5) (1/5) (1/5) (1/5) (1/5)
##                  (1/5) (1/5) (1/5) (1/5) (1/5) (1/5) (1/5) (1/5) (1/5) (1/5)
##                    (1/5) (1/5) (1/5) (1/5) (1/5) (1/5) (1/5) (1/5) (1/5) (1/5)
##                    (1/5) (1/5) (1/5) (1/5) (1/5) (1/5) (1/5) (1/5) (1/5) (1/5)
##                  (1/5) (1/5) (1/5) (1/5) (1/5) (1/5) (1/5) (1/5) (1/5) (1/5)
##                  (1/5) (1/5) (1/5) (1/5) (1/5) (1/5) (1/5) (1/5) (1/5) (1/5)
## P(x = 70) =   (1/5) ^70
##[1] "La respuesta es P(x = 70) =   (1/5) ^70"

http://probabilidadmitad1.blogspot.com/p/eventos-dependientes-e-independientes.html

##EJERCICIO 3 Se lanza una moneda al aire 3 veces ¿Cual es la probabilidad de que salga 3 veces seguidas cara?

cara<-1/2
p.en.tres<-cara*cara*cara
paste("La probabilidad que salga cara en un tiro es: ", round(cara*100,2),"%")
## [1] "La probabilidad que salga cara en un tiro es:  50 %"
## [1] "La probabilidad de que salga "cara" en un tiro es de:  50 %"
paste("la probabilidad que salga Cara en tres tiros seguidos es: ", round(p.en.tres*100,2),"%")
## [1] "la probabilidad que salga Cara en tres tiros seguidos es:  12.5 %"
## [1] "la probabilidad que salga "cara" en tres tiros seguidos es de:  12.5 %"

(Le pregunte a unos de mis amigos y me fije que no tengo las decripciones de 80 a 100 palabras que solicito, una disculpa no me acordaba de eso)

Descripcion En estos tres ejercicios apreciamos el tema de probabilidad de eventos independientes, los problemas son sensillos para tener una mejor idea de lo que se trata. El primero y tercer problema son problemas aplicados a la vida cotidiana que son demasiados comprensibles, mientras tanto el segundo problema es complicado ya que nos obliga a pensar y sacar una solucion en probabilidad de este examen. Nota: este problema se puede resolver de otra manera y mas eficaz.

AYUDA: Aplicacion de una formula.