8. Simulacion estadistica del Ejercicio 2.15 (Teorema de la probabilidad total y Teorema de Bayes)

Simulacion estadistica con R-Project del Teorema de la probabilidad total y del Teorema de Bayes.

Simulacion:

> poblac <- c("Blancos","Negros","Amarillos");

> raza<- c(0.7,0.25,0.05);

> CatolicoSegunRaza <- c(0.7,0.6,0.1);

> #Teorema de la probabilidad total

> #Probabilidad de ser catolico

> pCatolico <- sum(raza*CatolicoSegunRaza)

> pCatolico
[1] 0.645

> #Teorema de Bayes

> #Probabilidad de la raza siendo catolico

> RazaSiendoCatolico<- (raza*CatolicoSegunRaza)/pCatolico

> A<-rbind(RazaSiendoCatolico)

> colnames(A)<-poblac

> A 
                     Blancos    Negros   Amarillos
RazaSiendoCatolico 0.7596899 0.2325581 0.007751938