Caso 7

CASO7 Cargar datos

library(gtools)
library(knitr)

Paso2. Contruir los datos

S.personas <- c("Juan", "Paty", "Laura", "Oscar", "Aracely")

personas.agregadas <- c("Asuna", "Kasuto", "Ezio", "Gideon", "Klein")

S.personas <- c(S.personas,personas.agregadas)
S.personas

##  [1] "Juan"    "Paty"    "Laura"   "Oscar"   "Aracely" "Asuna"   "Kasuto" 
##  [8] "Ezio"    "Gideon"  "Klein"

n <- length(S.personas)

Paso3. Realizar Permutaciones con grupos de 3, 5 y 7

Permutaciones de 3

grupos <- 3
head(permutations(n = n,r = grupos, S.personas),10)

##       [,1]      [,2]    [,3]    
##  [1,] "Aracely" "Asuna" "Ezio"  
##  [2,] "Aracely" "Asuna" "Gideon"
##  [3,] "Aracely" "Asuna" "Juan"  
##  [4,] "Aracely" "Asuna" "Kasuto"
##  [5,] "Aracely" "Asuna" "Klein" 
##  [6,] "Aracely" "Asuna" "Laura" 
##  [7,] "Aracely" "Asuna" "Oscar" 
##  [8,] "Aracely" "Asuna" "Paty"  
##  [9,] "Aracely" "Ezio"  "Asuna" 
## [10,] "Aracely" "Ezio"  "Gideon"

tail(permutations(n = n,r = grupos, S.personas),10)

##        [,1]   [,2]    [,3]     
## [711,] "Paty" "Laura" "Klein"  
## [712,] "Paty" "Laura" "Oscar"  
## [713,] "Paty" "Oscar" "Aracely"
## [714,] "Paty" "Oscar" "Asuna"  
## [715,] "Paty" "Oscar" "Ezio"   
## [716,] "Paty" "Oscar" "Gideon" 
## [717,] "Paty" "Oscar" "Juan"   
## [718,] "Paty" "Oscar" "Kasuto" 
## [719,] "Paty" "Oscar" "Klein"  
## [720,] "Paty" "Oscar" "Laura"

Permutacion de 5

grupos <- 5
head(permutations(n = n,r = grupos, S.personas),10)

##       [,1]      [,2]    [,3]   [,4]     [,5]    
##  [1,] "Aracely" "Asuna" "Ezio" "Gideon" "Juan"  
##  [2,] "Aracely" "Asuna" "Ezio" "Gideon" "Kasuto"
##  [3,] "Aracely" "Asuna" "Ezio" "Gideon" "Klein" 
##  [4,] "Aracely" "Asuna" "Ezio" "Gideon" "Laura" 
##  [5,] "Aracely" "Asuna" "Ezio" "Gideon" "Oscar" 
##  [6,] "Aracely" "Asuna" "Ezio" "Gideon" "Paty"  
##  [7,] "Aracely" "Asuna" "Ezio" "Juan"   "Gideon"
##  [8,] "Aracely" "Asuna" "Ezio" "Juan"   "Kasuto"
##  [9,] "Aracely" "Asuna" "Ezio" "Juan"   "Klein" 
## [10,] "Aracely" "Asuna" "Ezio" "Juan"   "Laura"

grupos <- 5
tail(permutations(n = n,r = grupos, S.personas),10)

##          [,1]   [,2]    [,3]    [,4]     [,5]     
## [30231,] "Paty" "Oscar" "Laura" "Kasuto" "Ezio"   
## [30232,] "Paty" "Oscar" "Laura" "Kasuto" "Gideon" 
## [30233,] "Paty" "Oscar" "Laura" "Kasuto" "Juan"   
## [30234,] "Paty" "Oscar" "Laura" "Kasuto" "Klein"  
## [30235,] "Paty" "Oscar" "Laura" "Klein"  "Aracely"
## [30236,] "Paty" "Oscar" "Laura" "Klein"  "Asuna"  
## [30237,] "Paty" "Oscar" "Laura" "Klein"  "Ezio"   
## [30238,] "Paty" "Oscar" "Laura" "Klein"  "Gideon" 
## [30239,] "Paty" "Oscar" "Laura" "Klein"  "Juan"   
## [30240,] "Paty" "Oscar" "Laura" "Klein"  "Kasuto"

Permutacion de 7

grupos <- 7
head(permutations(n = n,r = grupos, S.personas),10)

##       [,1]      [,2]    [,3]   [,4]     [,5]   [,6]     [,7]    
##  [1,] "Aracely" "Asuna" "Ezio" "Gideon" "Juan" "Kasuto" "Klein" 
##  [2,] "Aracely" "Asuna" "Ezio" "Gideon" "Juan" "Kasuto" "Laura" 
##  [3,] "Aracely" "Asuna" "Ezio" "Gideon" "Juan" "Kasuto" "Oscar" 
##  [4,] "Aracely" "Asuna" "Ezio" "Gideon" "Juan" "Kasuto" "Paty"  
##  [5,] "Aracely" "Asuna" "Ezio" "Gideon" "Juan" "Klein"  "Kasuto"
##  [6,] "Aracely" "Asuna" "Ezio" "Gideon" "Juan" "Klein"  "Laura" 
##  [7,] "Aracely" "Asuna" "Ezio" "Gideon" "Juan" "Klein"  "Oscar" 
##  [8,] "Aracely" "Asuna" "Ezio" "Gideon" "Juan" "Klein"  "Paty"  
##  [9,] "Aracely" "Asuna" "Ezio" "Gideon" "Juan" "Laura"  "Kasuto"
## [10,] "Aracely" "Asuna" "Ezio" "Gideon" "Juan" "Laura"  "Klein"

grupos <- 7
tail(permutations(n = n,r = grupos, S.personas),10)

##           [,1]   [,2]    [,3]    [,4]    [,5]     [,6]     [,7]     
## [604791,] "Paty" "Oscar" "Laura" "Klein" "Kasuto" "Ezio"   "Gideon" 
## [604792,] "Paty" "Oscar" "Laura" "Klein" "Kasuto" "Ezio"   "Juan"   
## [604793,] "Paty" "Oscar" "Laura" "Klein" "Kasuto" "Gideon" "Aracely"
## [604794,] "Paty" "Oscar" "Laura" "Klein" "Kasuto" "Gideon" "Asuna"  
## [604795,] "Paty" "Oscar" "Laura" "Klein" "Kasuto" "Gideon" "Ezio"   
## [604796,] "Paty" "Oscar" "Laura" "Klein" "Kasuto" "Gideon" "Juan"   
## [604797,] "Paty" "Oscar" "Laura" "Klein" "Kasuto" "Juan"   "Aracely"
## [604798,] "Paty" "Oscar" "Laura" "Klein" "Kasuto" "Juan"   "Asuna"  
## [604799,] "Paty" "Oscar" "Laura" "Klein" "Kasuto" "Juan"   "Ezio"   
## [604800,] "Paty" "Oscar" "Laura" "Klein" "Kasuto" "Juan"   "Gideon"

4. Realizar combinaciones con grupos de 4, 6 y 8

Combinaciones de 4

grupos <- 4
head(combinations(n = n,r = grupos, S.personas),10)

##       [,1]      [,2]    [,3]     [,4]    
##  [1,] "Aracely" "Asuna" "Ezio"   "Gideon"
##  [2,] "Aracely" "Asuna" "Ezio"   "Juan"  
##  [3,] "Aracely" "Asuna" "Ezio"   "Kasuto"
##  [4,] "Aracely" "Asuna" "Ezio"   "Klein" 
##  [5,] "Aracely" "Asuna" "Ezio"   "Laura" 
##  [6,] "Aracely" "Asuna" "Ezio"   "Oscar" 
##  [7,] "Aracely" "Asuna" "Ezio"   "Paty"  
##  [8,] "Aracely" "Asuna" "Gideon" "Juan"  
##  [9,] "Aracely" "Asuna" "Gideon" "Kasuto"
## [10,] "Aracely" "Asuna" "Gideon" "Klein"

grupos <- 4
tail(combinations(n = n,r = grupos, S.personas),10)

##        [,1]     [,2]     [,3]    [,4]   
## [201,] "Juan"   "Kasuto" "Oscar" "Paty" 
## [202,] "Juan"   "Klein"  "Laura" "Oscar"
## [203,] "Juan"   "Klein"  "Laura" "Paty" 
## [204,] "Juan"   "Klein"  "Oscar" "Paty" 
## [205,] "Juan"   "Laura"  "Oscar" "Paty" 
## [206,] "Kasuto" "Klein"  "Laura" "Oscar"
## [207,] "Kasuto" "Klein"  "Laura" "Paty" 
## [208,] "Kasuto" "Klein"  "Oscar" "Paty" 
## [209,] "Kasuto" "Laura"  "Oscar" "Paty" 
## [210,] "Klein"  "Laura"  "Oscar" "Paty"

Combinaciones de 6

grupos <- 6
head(combinations(n = n,r = grupos, S.personas),10)

##       [,1]      [,2]    [,3]   [,4]     [,5]     [,6]    
##  [1,] "Aracely" "Asuna" "Ezio" "Gideon" "Juan"   "Kasuto"
##  [2,] "Aracely" "Asuna" "Ezio" "Gideon" "Juan"   "Klein" 
##  [3,] "Aracely" "Asuna" "Ezio" "Gideon" "Juan"   "Laura" 
##  [4,] "Aracely" "Asuna" "Ezio" "Gideon" "Juan"   "Oscar" 
##  [5,] "Aracely" "Asuna" "Ezio" "Gideon" "Juan"   "Paty"  
##  [6,] "Aracely" "Asuna" "Ezio" "Gideon" "Kasuto" "Klein" 
##  [7,] "Aracely" "Asuna" "Ezio" "Gideon" "Kasuto" "Laura" 
##  [8,] "Aracely" "Asuna" "Ezio" "Gideon" "Kasuto" "Oscar" 
##  [9,] "Aracely" "Asuna" "Ezio" "Gideon" "Kasuto" "Paty"  
## [10,] "Aracely" "Asuna" "Ezio" "Gideon" "Klein"  "Laura"

grupos <- 6
tail(combinations(n = n,r = grupos, S.personas),10)

##        [,1]     [,2]     [,3]     [,4]    [,5]    [,6]   
## [201,] "Ezio"   "Juan"   "Kasuto" "Laura" "Oscar" "Paty" 
## [202,] "Ezio"   "Juan"   "Klein"  "Laura" "Oscar" "Paty" 
## [203,] "Ezio"   "Kasuto" "Klein"  "Laura" "Oscar" "Paty" 
## [204,] "Gideon" "Juan"   "Kasuto" "Klein" "Laura" "Oscar"
## [205,] "Gideon" "Juan"   "Kasuto" "Klein" "Laura" "Paty" 
## [206,] "Gideon" "Juan"   "Kasuto" "Klein" "Oscar" "Paty" 
## [207,] "Gideon" "Juan"   "Kasuto" "Laura" "Oscar" "Paty" 
## [208,] "Gideon" "Juan"   "Klein"  "Laura" "Oscar" "Paty" 
## [209,] "Gideon" "Kasuto" "Klein"  "Laura" "Oscar" "Paty" 
## [210,] "Juan"   "Kasuto" "Klein"  "Laura" "Oscar" "Paty"

Combinaciones de 8

grupos <- 8
head(combinations(n = n,r = grupos, S.personas),10)

##       [,1]      [,2]    [,3]   [,4]     [,5]   [,6]     [,7]    [,8]   
##  [1,] "Aracely" "Asuna" "Ezio" "Gideon" "Juan" "Kasuto" "Klein" "Laura"
##  [2,] "Aracely" "Asuna" "Ezio" "Gideon" "Juan" "Kasuto" "Klein" "Oscar"
##  [3,] "Aracely" "Asuna" "Ezio" "Gideon" "Juan" "Kasuto" "Klein" "Paty" 
##  [4,] "Aracely" "Asuna" "Ezio" "Gideon" "Juan" "Kasuto" "Laura" "Oscar"
##  [5,] "Aracely" "Asuna" "Ezio" "Gideon" "Juan" "Kasuto" "Laura" "Paty" 
##  [6,] "Aracely" "Asuna" "Ezio" "Gideon" "Juan" "Kasuto" "Oscar" "Paty" 
##  [7,] "Aracely" "Asuna" "Ezio" "Gideon" "Juan" "Klein"  "Laura" "Oscar"
##  [8,] "Aracely" "Asuna" "Ezio" "Gideon" "Juan" "Klein"  "Laura" "Paty" 
##  [9,] "Aracely" "Asuna" "Ezio" "Gideon" "Juan" "Klein"  "Oscar" "Paty" 
## [10,] "Aracely" "Asuna" "Ezio" "Gideon" "Juan" "Laura"  "Oscar" "Paty"

grupos <- 8
tail(combinations(n = n,r = grupos, S.personas),10)

##       [,1]      [,2]     [,3]     [,4]     [,5]     [,6]    [,7]    [,8]   
## [36,] "Aracely" "Gideon" "Juan"   "Kasuto" "Klein"  "Laura" "Oscar" "Paty" 
## [37,] "Asuna"   "Ezio"   "Gideon" "Juan"   "Kasuto" "Klein" "Laura" "Oscar"
## [38,] "Asuna"   "Ezio"   "Gideon" "Juan"   "Kasuto" "Klein" "Laura" "Paty" 
## [39,] "Asuna"   "Ezio"   "Gideon" "Juan"   "Kasuto" "Klein" "Oscar" "Paty" 
## [40,] "Asuna"   "Ezio"   "Gideon" "Juan"   "Kasuto" "Laura" "Oscar" "Paty" 
## [41,] "Asuna"   "Ezio"   "Gideon" "Juan"   "Klein"  "Laura" "Oscar" "Paty" 
## [42,] "Asuna"   "Ezio"   "Gideon" "Kasuto" "Klein"  "Laura" "Oscar" "Paty" 
## [43,] "Asuna"   "Ezio"   "Juan"   "Kasuto" "Klein"  "Laura" "Oscar" "Paty" 
## [44,] "Asuna"   "Gideon" "Juan"   "Kasuto" "Klein"  "Laura" "Oscar" "Paty" 
## [45,] "Ezio"    "Gideon" "Juan"   "Kasuto" "Klein"  "Laura" "Oscar" "Paty"

Interpretar el caso permutaciones

En Permutaciones 3:

¿En cuantos casos sale el nombre de "Laura" en la primera posicion?

Ninguna

¿Cuantas ocasiones aparece "Aracely" en segundo lugar?

2 ocasion

¿Cuantas permutaciones se generan?

60 permutaciones

En Permutaciones 5:

¿En cuantos casos sale el nombre de "Laura" en la primera posicion?

Ninguna

¿Cuantas ocasiones aparece "Aracely" en segundo lugar?

0 ocasion

¿Cuantas permutaciones se generan?

100 permutaciones

En Permutaciones 7:

¿En cuantos casos sale el nombre de "Laura" en la primera posicion?

Ninguna

¿Cuantas ocasiones aparece "Aracely" en segundo lugar?

0 ocasion

¿Cuantas permutaciones se generan?

140 permutaciones

Interpretacion del caso de Combinaciones

En combinacion de 4

¿En cuanntas ocasiones se identifican los nombres de "Aracely" y "Laura" de manera contigua en ese orden "Aracely" y "Laura"?

Ninguna

¿Cuauntas ocasiones aparece Aracely en primer lugar?

1 ocasion

¿Cuauntas combinaciones se generan?

80 combinaciones

En combinacion de 6

¿En cuantos casos aparece los nombres de "Oscar" y "Paty" de manera contigua en ese orden?

8 casos

¿Cuantas ocasiones aparece Aracely en primer lugar?

¿Cuántas combinaciones se generan?

120 combinaciones

En combinacion de 8

¿En cuantos casos aparece los nombres de "Oscar" y "Paty" demanera contigua en ese orden?

11 casos

¿Cuantas ocasiones aparece Aracely en primer lugar?

1 ocasion

¿Cuántas combinaciones se generan?

160 combinaciones

Desarrollar una descripcion del caso 7:

En el caso, se vio nuevas librerias, las cuales ayudan a sacar las permutaciones y combinaciones que se pueden hacer y de otra libreria la cual, ayuda a poner imagenes en estos trabajos de RStudio.
Lo que se hizo fue, crear nombres para poder hacer las permutaciones y combinaciones, y ya creados los datos, se comienza a obtener las permutacioneslas cuales se dividen en 1, 2, 3 posicion y 1 a 10 lugar,
En un ejemplo de combinacion del 8

Caso 7

Oscar Enrique Martinez

8 de octubre de 2020

CASO7 Cargar datos

Paso2. Contruir los datos

Paso3. Realizar Permutaciones con grupos de 3, 5 y 7

Permutaciones de 3

Permutacion de 5

Permutacion de 7

4. Realizar combinaciones con grupos de 4, 6 y 8

Combinaciones de 6

Combinaciones de 8

Interpretar el caso permutaciones

En Permutaciones 3:

¿En cuantos casos sale el nombre de "Laura" en la primera posicion?

¿Cuantas ocasiones aparece "Aracely" en segundo lugar?

¿Cuantas permutaciones se generan?

En Permutaciones 5:

¿En cuantos casos sale el nombre de "Laura" en la primera posicion?

¿Cuantas ocasiones aparece "Aracely" en segundo lugar?

¿Cuantas permutaciones se generan?

En Permutaciones 7:

¿En cuantos casos sale el nombre de "Laura" en la primera posicion?

¿Cuantas ocasiones aparece "Aracely" en segundo lugar?

¿Cuantas permutaciones se generan?

Interpretacion del caso de Combinaciones

En combinacion de 4

¿En cuanntas ocasiones se identifican los nombres de "Aracely" y "Laura" de manera contigua en ese orden "Aracely" y "Laura"?

¿Cuauntas ocasiones aparece Aracely en primer lugar?

¿Cuauntas combinaciones se generan?

En combinacion de 6

¿En cuantos casos aparece los nombres de "Oscar" y "Paty" de manera contigua en ese orden?

¿Cuantas ocasiones aparece Aracely en primer lugar?

¿Cuántas combinaciones se generan?

En combinacion de 8

¿En cuantos casos aparece los nombres de "Oscar" y "Paty" demanera contigua en ese orden?

¿Cuantas ocasiones aparece Aracely en primer lugar?

¿Cuántas combinaciones se generan?

Desarrollar una descripcion del caso 7: