Mensaje de error

  • Deprecated function: The each() function is deprecated. This message will be suppressed on further calls en book_prev() (línea 775 de /home1/montes/public_html/drupal/modules/book/book.module).
  • Deprecated function: implode(): Passing glue string after array is deprecated. Swap the parameters en drupal_get_feeds() (línea 394 de /home1/montes/public_html/drupal/includes/common.inc).

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

Solapas principales

[adsense:336x280:9156825571]

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

 

Español
Pin It