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).

1. Simulacion estadistica del Ejercicio 2.5 (Conjuntos)

Solapas principales

[adsense:336x280:9156825571]
  • Mirar si los conjuntos(sucesos) A,B y C cuales son incompatibles mediante la simulacion estadistica con R-Project.

    Simulacion:

    > E <- c(1,2,3,4,5,6,7,8,9,10);
    
    > A <- c(1,2,3);
    
    
    > B <- c(7,8,9,10);
    
    > C <- c(1,3,5,7,9);
    
    > intersect(A,B)
    
    numeric(0)
    
    > intersect(A,C)
    [1] 1 3
    
    
    > intersect(B,C)
    [1] 7 9
    
  • Simulacion estadistica con R-Project de la diferencia de conjuntos(sucesos): A-C.

    Simulacion:

    > A <- c(1,2,3);
    
    > C <- c(1,3,5,7,9);
    
    > setdiff(A,C)
    [1] 2
    
  • Simulacion estadistica con R-Project de la negacion de una union de conjuntos(sucesos):

    $\overline{A\cup B}$

    Simulacion:

    > E <- c(1,2,3,4,5,6,7,8,9,10);
    
    > A <- c(1,2,3);
    
    > B <- c(7,8,9,10);
    
    > setdiff(E,union(A,B))
    [1] 4 5 6

    [adsense:468x15:3683830247]

  • Simulacion estadistica con R-Project de una operacion de conjuntos(sucesos) con union, interseccion y negacion:

    $A\cup (\overline{B\cap C})$.

    Simulacion:

    > E <- c(1,2,3,4,5,6,7,8,9,10);
    
    > A <- c(1,2,3);
    
    > B <- c(7,8,9,10);
    
    > C <- c(1,3,5,7,9);
    
    > union(A,setdiff(E,intersect(B,C)))
    [1]  1  2  3  4  5  6  8 10
    
Español
Pin It