Taller Variable Aleatoria

Tarea: el siguiente ejercicio se hará con el lanzamiento de dos monedas

Omega <- c(
            "(Cara,Sello)","(Cara,Cara)",
            "(Sello,Cara)","(Sello,Sello)"
            
          )
Omega

## [1] "(Cara,Sello)"  "(Cara,Cara)"   "(Sello,Cara)"  "(Sello,Sello)"

VARIABLE ALEATORIA

library(prob)

## Loading required package: combinat

## 
## Attaching package: 'combinat'

## The following object is masked from 'package:utils':
## 
##     combn

## Loading required package: fAsianOptions

## Loading required package: timeDate

## Loading required package: timeSeries

## Loading required package: fBasics

## Loading required package: fOptions

## 
## Attaching package: 'prob'

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, union

tosscoin(2, makespace = T)

##   toss1 toss2 probs
## 1     H     H  0.25
## 2     T     H  0.25
## 3     H     T  0.25
## 4     T     T  0.25

f <- function(x) (Cara -abs(Sello-x))/4

p <- 1/length(Omega)
cat("La probabilidad para cada punto muestral es: ", p)

## La probabilidad para cada punto muestral es:  0.25

conclusión: en este caso podemos ver que al lanzar dos moneras las opciones de que me salgan cada una de las variables son 4, en este caso correspondían a “Cara,Sello”, “Cara,Cara”, “Sello,Cara”, “Sello,Sello”. En ese sentido, el siguien ejercicio nos arroja las diferentes probabilidades que en este caso serñian 1/4 o como nos arrojó directamente 0,25.