Taller de Variables

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

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

Para 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