combinaciones y permutaciones con nombre alumnos

Combinaciones y permutaciones

Objetivo: Realizar combinaciones y permutaciones dado un conjunto de nombres de personas. Se determinan las combinaciones y permutaciones con grupos de 2 4 y 6 identificando la cantidad de opciones generadas.

La libreria que necesita cargar

# install.packages("gtools")

library(gtools)

Los datos y los datos ordenados

nombres <- c("Ari", "Erick", "Angel", "Jonhatan", "Augusto", "Daniel", "Paty", "Adriana", "Olga", "Mary")

nombres <- sort(nombres)

nombres

##  [1] "Adriana"  "Angel"    "Ari"      "Augusto"  "Daniel"   "Erick"   
##  [7] "Jonhatan" "Mary"     "Olga"     "Paty"

Combinaciones con grupos de 2

N <- length(nombres) # Cantidad de alumnos
n <- 2 # Grupos de 2 

combinaciones <- combinations(N, n, nombres)

head(combinaciones)

##      [,1]      [,2]      
## [1,] "Adriana" "Angel"   
## [2,] "Adriana" "Ari"     
## [3,] "Adriana" "Augusto" 
## [4,] "Adriana" "Daniel"  
## [5,] "Adriana" "Erick"   
## [6,] "Adriana" "Jonhatan"

# cuantas salen 
nrow(combinaciones) # ¿cuántas combinaciones?

## [1] 45

# Comprobar conforme a la fórmula

factorial(N) / (factorial(n) * (factorial (N-n)))

## [1] 45

permutaciones con grupos de 2

N <- length(nombres) # Cantidad de alumnos
n <- 2 # Grupos de 2 

permutaciones <- permutations(N, n, nombres)

head(permutaciones)

##      [,1]      [,2]      
## [1,] "Adriana" "Angel"   
## [2,] "Adriana" "Ari"     
## [3,] "Adriana" "Augusto" 
## [4,] "Adriana" "Daniel"  
## [5,] "Adriana" "Erick"   
## [6,] "Adriana" "Jonhatan"

# cuantas salen 
nrow(permutaciones) # ¿cuántas permutaciones?

## [1] 90

# Comprobar conforme a la fórmula

factorial(N) / (factorial (N-n))

## [1] 90

Combinaciones con grupos de 4

N <- length(nombres) # Cantidad de alumnos
n <- 4 # Grupos de 4 

combinaciones <- combinations(N, n, nombres)

head(combinaciones)

##      [,1]      [,2]    [,3]  [,4]      
## [1,] "Adriana" "Angel" "Ari" "Augusto" 
## [2,] "Adriana" "Angel" "Ari" "Daniel"  
## [3,] "Adriana" "Angel" "Ari" "Erick"   
## [4,] "Adriana" "Angel" "Ari" "Jonhatan"
## [5,] "Adriana" "Angel" "Ari" "Mary"    
## [6,] "Adriana" "Angel" "Ari" "Olga"

# cuantas salen 
nrow(combinaciones) # ¿cuántas combinaciones?

## [1] 210

# Comprobar conforme a la fórmula

factorial(N) / (factorial(n) * (factorial (N-n)))

## [1] 210

permutaciones con grupso de 4

N <- length(nombres) # Cantidad de alumnos
n <- 4 # Grupos de 4

permutaciones <- permutations(N, n, nombres)

head(permutaciones)

##      [,1]      [,2]    [,3]  [,4]      
## [1,] "Adriana" "Angel" "Ari" "Augusto" 
## [2,] "Adriana" "Angel" "Ari" "Daniel"  
## [3,] "Adriana" "Angel" "Ari" "Erick"   
## [4,] "Adriana" "Angel" "Ari" "Jonhatan"
## [5,] "Adriana" "Angel" "Ari" "Mary"    
## [6,] "Adriana" "Angel" "Ari" "Olga"

# cuantas salen 
nrow(permutaciones) # ¿cuántas permutaciones?

## [1] 5040

# Comprobar conforme a la fórmula

factorial(N) / (factorial (N-n))

## [1] 5040

Combinaciones con grupos de 6

N <- length(nombres) # Cantidad de alumnos
n <- 6 # Grupos de 6 

combinaciones <- combinations(N, n, nombres)

head(combinaciones)

##      [,1]      [,2]    [,3]  [,4]      [,5]     [,6]      
## [1,] "Adriana" "Angel" "Ari" "Augusto" "Daniel" "Erick"   
## [2,] "Adriana" "Angel" "Ari" "Augusto" "Daniel" "Jonhatan"
## [3,] "Adriana" "Angel" "Ari" "Augusto" "Daniel" "Mary"    
## [4,] "Adriana" "Angel" "Ari" "Augusto" "Daniel" "Olga"    
## [5,] "Adriana" "Angel" "Ari" "Augusto" "Daniel" "Paty"    
## [6,] "Adriana" "Angel" "Ari" "Augusto" "Erick"  "Jonhatan"

# cuantas salen 
nrow(combinaciones) # ¿cuántas combinaciones?

## [1] 210

# Comprobar conforme a la fórmula

factorial(N) / (factorial(n) * (factorial (N-n)))

## [1] 210

permutaciones con grupos de 6

N <- length(nombres) # Cantidad de alumnos
n <- 6 # Grupos de 6

permutaciones <- permutations(N, n, nombres)

head(permutaciones)

##      [,1]      [,2]    [,3]  [,4]      [,5]     [,6]      
## [1,] "Adriana" "Angel" "Ari" "Augusto" "Daniel" "Erick"   
## [2,] "Adriana" "Angel" "Ari" "Augusto" "Daniel" "Jonhatan"
## [3,] "Adriana" "Angel" "Ari" "Augusto" "Daniel" "Mary"    
## [4,] "Adriana" "Angel" "Ari" "Augusto" "Daniel" "Olga"    
## [5,] "Adriana" "Angel" "Ari" "Augusto" "Daniel" "Paty"    
## [6,] "Adriana" "Angel" "Ari" "Augusto" "Erick"  "Daniel"

# cuantas salen 
nrow(permutaciones) # ¿cuántas permutaciones?

## [1] 151200

# Comprobar conforme a la fórmula

factorial(N) / (factorial (N-n))

## [1] 151200

———————————————————————————

Analizando datos con COMBINACIONES de grupos de 6

Preguntas:

¿en cuántas combinaciones de grupos seis está ‘Adriana’ en la primera columna

combinaciones[which(combinaciones[,1] == 'Adriana'),]

##        [,1]      [,2]      [,3]       [,4]       [,5]       [,6]      
##   [1,] "Adriana" "Angel"   "Ari"      "Augusto"  "Daniel"   "Erick"   
##   [2,] "Adriana" "Angel"   "Ari"      "Augusto"  "Daniel"   "Jonhatan"
##   [3,] "Adriana" "Angel"   "Ari"      "Augusto"  "Daniel"   "Mary"    
##   [4,] "Adriana" "Angel"   "Ari"      "Augusto"  "Daniel"   "Olga"    
##   [5,] "Adriana" "Angel"   "Ari"      "Augusto"  "Daniel"   "Paty"    
##   [6,] "Adriana" "Angel"   "Ari"      "Augusto"  "Erick"    "Jonhatan"
##   [7,] "Adriana" "Angel"   "Ari"      "Augusto"  "Erick"    "Mary"    
##   [8,] "Adriana" "Angel"   "Ari"      "Augusto"  "Erick"    "Olga"    
##   [9,] "Adriana" "Angel"   "Ari"      "Augusto"  "Erick"    "Paty"    
##  [10,] "Adriana" "Angel"   "Ari"      "Augusto"  "Jonhatan" "Mary"    
##  [11,] "Adriana" "Angel"   "Ari"      "Augusto"  "Jonhatan" "Olga"    
##  [12,] "Adriana" "Angel"   "Ari"      "Augusto"  "Jonhatan" "Paty"    
##  [13,] "Adriana" "Angel"   "Ari"      "Augusto"  "Mary"     "Olga"    
##  [14,] "Adriana" "Angel"   "Ari"      "Augusto"  "Mary"     "Paty"    
##  [15,] "Adriana" "Angel"   "Ari"      "Augusto"  "Olga"     "Paty"    
##  [16,] "Adriana" "Angel"   "Ari"      "Daniel"   "Erick"    "Jonhatan"
##  [17,] "Adriana" "Angel"   "Ari"      "Daniel"   "Erick"    "Mary"    
##  [18,] "Adriana" "Angel"   "Ari"      "Daniel"   "Erick"    "Olga"    
##  [19,] "Adriana" "Angel"   "Ari"      "Daniel"   "Erick"    "Paty"    
##  [20,] "Adriana" "Angel"   "Ari"      "Daniel"   "Jonhatan" "Mary"    
##  [21,] "Adriana" "Angel"   "Ari"      "Daniel"   "Jonhatan" "Olga"    
##  [22,] "Adriana" "Angel"   "Ari"      "Daniel"   "Jonhatan" "Paty"    
##  [23,] "Adriana" "Angel"   "Ari"      "Daniel"   "Mary"     "Olga"    
##  [24,] "Adriana" "Angel"   "Ari"      "Daniel"   "Mary"     "Paty"    
##  [25,] "Adriana" "Angel"   "Ari"      "Daniel"   "Olga"     "Paty"    
##  [26,] "Adriana" "Angel"   "Ari"      "Erick"    "Jonhatan" "Mary"    
##  [27,] "Adriana" "Angel"   "Ari"      "Erick"    "Jonhatan" "Olga"    
##  [28,] "Adriana" "Angel"   "Ari"      "Erick"    "Jonhatan" "Paty"    
##  [29,] "Adriana" "Angel"   "Ari"      "Erick"    "Mary"     "Olga"    
##  [30,] "Adriana" "Angel"   "Ari"      "Erick"    "Mary"     "Paty"    
##  [31,] "Adriana" "Angel"   "Ari"      "Erick"    "Olga"     "Paty"    
##  [32,] "Adriana" "Angel"   "Ari"      "Jonhatan" "Mary"     "Olga"    
##  [33,] "Adriana" "Angel"   "Ari"      "Jonhatan" "Mary"     "Paty"    
##  [34,] "Adriana" "Angel"   "Ari"      "Jonhatan" "Olga"     "Paty"    
##  [35,] "Adriana" "Angel"   "Ari"      "Mary"     "Olga"     "Paty"    
##  [36,] "Adriana" "Angel"   "Augusto"  "Daniel"   "Erick"    "Jonhatan"
##  [37,] "Adriana" "Angel"   "Augusto"  "Daniel"   "Erick"    "Mary"    
##  [38,] "Adriana" "Angel"   "Augusto"  "Daniel"   "Erick"    "Olga"    
##  [39,] "Adriana" "Angel"   "Augusto"  "Daniel"   "Erick"    "Paty"    
##  [40,] "Adriana" "Angel"   "Augusto"  "Daniel"   "Jonhatan" "Mary"    
##  [41,] "Adriana" "Angel"   "Augusto"  "Daniel"   "Jonhatan" "Olga"    
##  [42,] "Adriana" "Angel"   "Augusto"  "Daniel"   "Jonhatan" "Paty"    
##  [43,] "Adriana" "Angel"   "Augusto"  "Daniel"   "Mary"     "Olga"    
##  [44,] "Adriana" "Angel"   "Augusto"  "Daniel"   "Mary"     "Paty"    
##  [45,] "Adriana" "Angel"   "Augusto"  "Daniel"   "Olga"     "Paty"    
##  [46,] "Adriana" "Angel"   "Augusto"  "Erick"    "Jonhatan" "Mary"    
##  [47,] "Adriana" "Angel"   "Augusto"  "Erick"    "Jonhatan" "Olga"    
##  [48,] "Adriana" "Angel"   "Augusto"  "Erick"    "Jonhatan" "Paty"    
##  [49,] "Adriana" "Angel"   "Augusto"  "Erick"    "Mary"     "Olga"    
##  [50,] "Adriana" "Angel"   "Augusto"  "Erick"    "Mary"     "Paty"    
##  [51,] "Adriana" "Angel"   "Augusto"  "Erick"    "Olga"     "Paty"    
##  [52,] "Adriana" "Angel"   "Augusto"  "Jonhatan" "Mary"     "Olga"    
##  [53,] "Adriana" "Angel"   "Augusto"  "Jonhatan" "Mary"     "Paty"    
##  [54,] "Adriana" "Angel"   "Augusto"  "Jonhatan" "Olga"     "Paty"    
##  [55,] "Adriana" "Angel"   "Augusto"  "Mary"     "Olga"     "Paty"    
##  [56,] "Adriana" "Angel"   "Daniel"   "Erick"    "Jonhatan" "Mary"    
##  [57,] "Adriana" "Angel"   "Daniel"   "Erick"    "Jonhatan" "Olga"    
##  [58,] "Adriana" "Angel"   "Daniel"   "Erick"    "Jonhatan" "Paty"    
##  [59,] "Adriana" "Angel"   "Daniel"   "Erick"    "Mary"     "Olga"    
##  [60,] "Adriana" "Angel"   "Daniel"   "Erick"    "Mary"     "Paty"    
##  [61,] "Adriana" "Angel"   "Daniel"   "Erick"    "Olga"     "Paty"    
##  [62,] "Adriana" "Angel"   "Daniel"   "Jonhatan" "Mary"     "Olga"    
##  [63,] "Adriana" "Angel"   "Daniel"   "Jonhatan" "Mary"     "Paty"    
##  [64,] "Adriana" "Angel"   "Daniel"   "Jonhatan" "Olga"     "Paty"    
##  [65,] "Adriana" "Angel"   "Daniel"   "Mary"     "Olga"     "Paty"    
##  [66,] "Adriana" "Angel"   "Erick"    "Jonhatan" "Mary"     "Olga"    
##  [67,] "Adriana" "Angel"   "Erick"    "Jonhatan" "Mary"     "Paty"    
##  [68,] "Adriana" "Angel"   "Erick"    "Jonhatan" "Olga"     "Paty"    
##  [69,] "Adriana" "Angel"   "Erick"    "Mary"     "Olga"     "Paty"    
##  [70,] "Adriana" "Angel"   "Jonhatan" "Mary"     "Olga"     "Paty"    
##  [71,] "Adriana" "Ari"     "Augusto"  "Daniel"   "Erick"    "Jonhatan"
##  [72,] "Adriana" "Ari"     "Augusto"  "Daniel"   "Erick"    "Mary"    
##  [73,] "Adriana" "Ari"     "Augusto"  "Daniel"   "Erick"    "Olga"    
##  [74,] "Adriana" "Ari"     "Augusto"  "Daniel"   "Erick"    "Paty"    
##  [75,] "Adriana" "Ari"     "Augusto"  "Daniel"   "Jonhatan" "Mary"    
##  [76,] "Adriana" "Ari"     "Augusto"  "Daniel"   "Jonhatan" "Olga"    
##  [77,] "Adriana" "Ari"     "Augusto"  "Daniel"   "Jonhatan" "Paty"    
##  [78,] "Adriana" "Ari"     "Augusto"  "Daniel"   "Mary"     "Olga"    
##  [79,] "Adriana" "Ari"     "Augusto"  "Daniel"   "Mary"     "Paty"    
##  [80,] "Adriana" "Ari"     "Augusto"  "Daniel"   "Olga"     "Paty"    
##  [81,] "Adriana" "Ari"     "Augusto"  "Erick"    "Jonhatan" "Mary"    
##  [82,] "Adriana" "Ari"     "Augusto"  "Erick"    "Jonhatan" "Olga"    
##  [83,] "Adriana" "Ari"     "Augusto"  "Erick"    "Jonhatan" "Paty"    
##  [84,] "Adriana" "Ari"     "Augusto"  "Erick"    "Mary"     "Olga"    
##  [85,] "Adriana" "Ari"     "Augusto"  "Erick"    "Mary"     "Paty"    
##  [86,] "Adriana" "Ari"     "Augusto"  "Erick"    "Olga"     "Paty"    
##  [87,] "Adriana" "Ari"     "Augusto"  "Jonhatan" "Mary"     "Olga"    
##  [88,] "Adriana" "Ari"     "Augusto"  "Jonhatan" "Mary"     "Paty"    
##  [89,] "Adriana" "Ari"     "Augusto"  "Jonhatan" "Olga"     "Paty"    
##  [90,] "Adriana" "Ari"     "Augusto"  "Mary"     "Olga"     "Paty"    
##  [91,] "Adriana" "Ari"     "Daniel"   "Erick"    "Jonhatan" "Mary"    
##  [92,] "Adriana" "Ari"     "Daniel"   "Erick"    "Jonhatan" "Olga"    
##  [93,] "Adriana" "Ari"     "Daniel"   "Erick"    "Jonhatan" "Paty"    
##  [94,] "Adriana" "Ari"     "Daniel"   "Erick"    "Mary"     "Olga"    
##  [95,] "Adriana" "Ari"     "Daniel"   "Erick"    "Mary"     "Paty"    
##  [96,] "Adriana" "Ari"     "Daniel"   "Erick"    "Olga"     "Paty"    
##  [97,] "Adriana" "Ari"     "Daniel"   "Jonhatan" "Mary"     "Olga"    
##  [98,] "Adriana" "Ari"     "Daniel"   "Jonhatan" "Mary"     "Paty"    
##  [99,] "Adriana" "Ari"     "Daniel"   "Jonhatan" "Olga"     "Paty"    
## [100,] "Adriana" "Ari"     "Daniel"   "Mary"     "Olga"     "Paty"    
## [101,] "Adriana" "Ari"     "Erick"    "Jonhatan" "Mary"     "Olga"    
## [102,] "Adriana" "Ari"     "Erick"    "Jonhatan" "Mary"     "Paty"    
## [103,] "Adriana" "Ari"     "Erick"    "Jonhatan" "Olga"     "Paty"    
## [104,] "Adriana" "Ari"     "Erick"    "Mary"     "Olga"     "Paty"    
## [105,] "Adriana" "Ari"     "Jonhatan" "Mary"     "Olga"     "Paty"    
## [106,] "Adriana" "Augusto" "Daniel"   "Erick"    "Jonhatan" "Mary"    
## [107,] "Adriana" "Augusto" "Daniel"   "Erick"    "Jonhatan" "Olga"    
## [108,] "Adriana" "Augusto" "Daniel"   "Erick"    "Jonhatan" "Paty"    
## [109,] "Adriana" "Augusto" "Daniel"   "Erick"    "Mary"     "Olga"    
## [110,] "Adriana" "Augusto" "Daniel"   "Erick"    "Mary"     "Paty"    
## [111,] "Adriana" "Augusto" "Daniel"   "Erick"    "Olga"     "Paty"    
## [112,] "Adriana" "Augusto" "Daniel"   "Jonhatan" "Mary"     "Olga"    
## [113,] "Adriana" "Augusto" "Daniel"   "Jonhatan" "Mary"     "Paty"    
## [114,] "Adriana" "Augusto" "Daniel"   "Jonhatan" "Olga"     "Paty"    
## [115,] "Adriana" "Augusto" "Daniel"   "Mary"     "Olga"     "Paty"    
## [116,] "Adriana" "Augusto" "Erick"    "Jonhatan" "Mary"     "Olga"    
## [117,] "Adriana" "Augusto" "Erick"    "Jonhatan" "Mary"     "Paty"    
## [118,] "Adriana" "Augusto" "Erick"    "Jonhatan" "Olga"     "Paty"    
## [119,] "Adriana" "Augusto" "Erick"    "Mary"     "Olga"     "Paty"    
## [120,] "Adriana" "Augusto" "Jonhatan" "Mary"     "Olga"     "Paty"    
## [121,] "Adriana" "Daniel"  "Erick"    "Jonhatan" "Mary"     "Olga"    
## [122,] "Adriana" "Daniel"  "Erick"    "Jonhatan" "Mary"     "Paty"    
## [123,] "Adriana" "Daniel"  "Erick"    "Jonhatan" "Olga"     "Paty"    
## [124,] "Adriana" "Daniel"  "Erick"    "Mary"     "Olga"     "Paty"    
## [125,] "Adriana" "Daniel"  "Jonhatan" "Mary"     "Olga"     "Paty"    
## [126,] "Adriana" "Erick"   "Jonhatan" "Mary"     "Olga"     "Paty"

¿en cuántas combinaciones de grupos seis está ‘Adriana’ en la primera o en la segunda o en la tercera columna

combinaciones[which(combinaciones[,1] == 'Adriana' | combinaciones[,2] == 'Adriana' | combinaciones[,3] == 'Adriana'),]

##        [,1]      [,2]      [,3]       [,4]       [,5]       [,6]      
##   [1,] "Adriana" "Angel"   "Ari"      "Augusto"  "Daniel"   "Erick"   
##   [2,] "Adriana" "Angel"   "Ari"      "Augusto"  "Daniel"   "Jonhatan"
##   [3,] "Adriana" "Angel"   "Ari"      "Augusto"  "Daniel"   "Mary"    
##   [4,] "Adriana" "Angel"   "Ari"      "Augusto"  "Daniel"   "Olga"    
##   [5,] "Adriana" "Angel"   "Ari"      "Augusto"  "Daniel"   "Paty"    
##   [6,] "Adriana" "Angel"   "Ari"      "Augusto"  "Erick"    "Jonhatan"
##   [7,] "Adriana" "Angel"   "Ari"      "Augusto"  "Erick"    "Mary"    
##   [8,] "Adriana" "Angel"   "Ari"      "Augusto"  "Erick"    "Olga"    
##   [9,] "Adriana" "Angel"   "Ari"      "Augusto"  "Erick"    "Paty"    
##  [10,] "Adriana" "Angel"   "Ari"      "Augusto"  "Jonhatan" "Mary"    
##  [11,] "Adriana" "Angel"   "Ari"      "Augusto"  "Jonhatan" "Olga"    
##  [12,] "Adriana" "Angel"   "Ari"      "Augusto"  "Jonhatan" "Paty"    
##  [13,] "Adriana" "Angel"   "Ari"      "Augusto"  "Mary"     "Olga"    
##  [14,] "Adriana" "Angel"   "Ari"      "Augusto"  "Mary"     "Paty"    
##  [15,] "Adriana" "Angel"   "Ari"      "Augusto"  "Olga"     "Paty"    
##  [16,] "Adriana" "Angel"   "Ari"      "Daniel"   "Erick"    "Jonhatan"
##  [17,] "Adriana" "Angel"   "Ari"      "Daniel"   "Erick"    "Mary"    
##  [18,] "Adriana" "Angel"   "Ari"      "Daniel"   "Erick"    "Olga"    
##  [19,] "Adriana" "Angel"   "Ari"      "Daniel"   "Erick"    "Paty"    
##  [20,] "Adriana" "Angel"   "Ari"      "Daniel"   "Jonhatan" "Mary"    
##  [21,] "Adriana" "Angel"   "Ari"      "Daniel"   "Jonhatan" "Olga"    
##  [22,] "Adriana" "Angel"   "Ari"      "Daniel"   "Jonhatan" "Paty"    
##  [23,] "Adriana" "Angel"   "Ari"      "Daniel"   "Mary"     "Olga"    
##  [24,] "Adriana" "Angel"   "Ari"      "Daniel"   "Mary"     "Paty"    
##  [25,] "Adriana" "Angel"   "Ari"      "Daniel"   "Olga"     "Paty"    
##  [26,] "Adriana" "Angel"   "Ari"      "Erick"    "Jonhatan" "Mary"    
##  [27,] "Adriana" "Angel"   "Ari"      "Erick"    "Jonhatan" "Olga"    
##  [28,] "Adriana" "Angel"   "Ari"      "Erick"    "Jonhatan" "Paty"    
##  [29,] "Adriana" "Angel"   "Ari"      "Erick"    "Mary"     "Olga"    
##  [30,] "Adriana" "Angel"   "Ari"      "Erick"    "Mary"     "Paty"    
##  [31,] "Adriana" "Angel"   "Ari"      "Erick"    "Olga"     "Paty"    
##  [32,] "Adriana" "Angel"   "Ari"      "Jonhatan" "Mary"     "Olga"    
##  [33,] "Adriana" "Angel"   "Ari"      "Jonhatan" "Mary"     "Paty"    
##  [34,] "Adriana" "Angel"   "Ari"      "Jonhatan" "Olga"     "Paty"    
##  [35,] "Adriana" "Angel"   "Ari"      "Mary"     "Olga"     "Paty"    
##  [36,] "Adriana" "Angel"   "Augusto"  "Daniel"   "Erick"    "Jonhatan"
##  [37,] "Adriana" "Angel"   "Augusto"  "Daniel"   "Erick"    "Mary"    
##  [38,] "Adriana" "Angel"   "Augusto"  "Daniel"   "Erick"    "Olga"    
##  [39,] "Adriana" "Angel"   "Augusto"  "Daniel"   "Erick"    "Paty"    
##  [40,] "Adriana" "Angel"   "Augusto"  "Daniel"   "Jonhatan" "Mary"    
##  [41,] "Adriana" "Angel"   "Augusto"  "Daniel"   "Jonhatan" "Olga"    
##  [42,] "Adriana" "Angel"   "Augusto"  "Daniel"   "Jonhatan" "Paty"    
##  [43,] "Adriana" "Angel"   "Augusto"  "Daniel"   "Mary"     "Olga"    
##  [44,] "Adriana" "Angel"   "Augusto"  "Daniel"   "Mary"     "Paty"    
##  [45,] "Adriana" "Angel"   "Augusto"  "Daniel"   "Olga"     "Paty"    
##  [46,] "Adriana" "Angel"   "Augusto"  "Erick"    "Jonhatan" "Mary"    
##  [47,] "Adriana" "Angel"   "Augusto"  "Erick"    "Jonhatan" "Olga"    
##  [48,] "Adriana" "Angel"   "Augusto"  "Erick"    "Jonhatan" "Paty"    
##  [49,] "Adriana" "Angel"   "Augusto"  "Erick"    "Mary"     "Olga"    
##  [50,] "Adriana" "Angel"   "Augusto"  "Erick"    "Mary"     "Paty"    
##  [51,] "Adriana" "Angel"   "Augusto"  "Erick"    "Olga"     "Paty"    
##  [52,] "Adriana" "Angel"   "Augusto"  "Jonhatan" "Mary"     "Olga"    
##  [53,] "Adriana" "Angel"   "Augusto"  "Jonhatan" "Mary"     "Paty"    
##  [54,] "Adriana" "Angel"   "Augusto"  "Jonhatan" "Olga"     "Paty"    
##  [55,] "Adriana" "Angel"   "Augusto"  "Mary"     "Olga"     "Paty"    
##  [56,] "Adriana" "Angel"   "Daniel"   "Erick"    "Jonhatan" "Mary"    
##  [57,] "Adriana" "Angel"   "Daniel"   "Erick"    "Jonhatan" "Olga"    
##  [58,] "Adriana" "Angel"   "Daniel"   "Erick"    "Jonhatan" "Paty"    
##  [59,] "Adriana" "Angel"   "Daniel"   "Erick"    "Mary"     "Olga"    
##  [60,] "Adriana" "Angel"   "Daniel"   "Erick"    "Mary"     "Paty"    
##  [61,] "Adriana" "Angel"   "Daniel"   "Erick"    "Olga"     "Paty"    
##  [62,] "Adriana" "Angel"   "Daniel"   "Jonhatan" "Mary"     "Olga"    
##  [63,] "Adriana" "Angel"   "Daniel"   "Jonhatan" "Mary"     "Paty"    
##  [64,] "Adriana" "Angel"   "Daniel"   "Jonhatan" "Olga"     "Paty"    
##  [65,] "Adriana" "Angel"   "Daniel"   "Mary"     "Olga"     "Paty"    
##  [66,] "Adriana" "Angel"   "Erick"    "Jonhatan" "Mary"     "Olga"    
##  [67,] "Adriana" "Angel"   "Erick"    "Jonhatan" "Mary"     "Paty"    
##  [68,] "Adriana" "Angel"   "Erick"    "Jonhatan" "Olga"     "Paty"    
##  [69,] "Adriana" "Angel"   "Erick"    "Mary"     "Olga"     "Paty"    
##  [70,] "Adriana" "Angel"   "Jonhatan" "Mary"     "Olga"     "Paty"    
##  [71,] "Adriana" "Ari"     "Augusto"  "Daniel"   "Erick"    "Jonhatan"
##  [72,] "Adriana" "Ari"     "Augusto"  "Daniel"   "Erick"    "Mary"    
##  [73,] "Adriana" "Ari"     "Augusto"  "Daniel"   "Erick"    "Olga"    
##  [74,] "Adriana" "Ari"     "Augusto"  "Daniel"   "Erick"    "Paty"    
##  [75,] "Adriana" "Ari"     "Augusto"  "Daniel"   "Jonhatan" "Mary"    
##  [76,] "Adriana" "Ari"     "Augusto"  "Daniel"   "Jonhatan" "Olga"    
##  [77,] "Adriana" "Ari"     "Augusto"  "Daniel"   "Jonhatan" "Paty"    
##  [78,] "Adriana" "Ari"     "Augusto"  "Daniel"   "Mary"     "Olga"    
##  [79,] "Adriana" "Ari"     "Augusto"  "Daniel"   "Mary"     "Paty"    
##  [80,] "Adriana" "Ari"     "Augusto"  "Daniel"   "Olga"     "Paty"    
##  [81,] "Adriana" "Ari"     "Augusto"  "Erick"    "Jonhatan" "Mary"    
##  [82,] "Adriana" "Ari"     "Augusto"  "Erick"    "Jonhatan" "Olga"    
##  [83,] "Adriana" "Ari"     "Augusto"  "Erick"    "Jonhatan" "Paty"    
##  [84,] "Adriana" "Ari"     "Augusto"  "Erick"    "Mary"     "Olga"    
##  [85,] "Adriana" "Ari"     "Augusto"  "Erick"    "Mary"     "Paty"    
##  [86,] "Adriana" "Ari"     "Augusto"  "Erick"    "Olga"     "Paty"    
##  [87,] "Adriana" "Ari"     "Augusto"  "Jonhatan" "Mary"     "Olga"    
##  [88,] "Adriana" "Ari"     "Augusto"  "Jonhatan" "Mary"     "Paty"    
##  [89,] "Adriana" "Ari"     "Augusto"  "Jonhatan" "Olga"     "Paty"    
##  [90,] "Adriana" "Ari"     "Augusto"  "Mary"     "Olga"     "Paty"    
##  [91,] "Adriana" "Ari"     "Daniel"   "Erick"    "Jonhatan" "Mary"    
##  [92,] "Adriana" "Ari"     "Daniel"   "Erick"    "Jonhatan" "Olga"    
##  [93,] "Adriana" "Ari"     "Daniel"   "Erick"    "Jonhatan" "Paty"    
##  [94,] "Adriana" "Ari"     "Daniel"   "Erick"    "Mary"     "Olga"    
##  [95,] "Adriana" "Ari"     "Daniel"   "Erick"    "Mary"     "Paty"    
##  [96,] "Adriana" "Ari"     "Daniel"   "Erick"    "Olga"     "Paty"    
##  [97,] "Adriana" "Ari"     "Daniel"   "Jonhatan" "Mary"     "Olga"    
##  [98,] "Adriana" "Ari"     "Daniel"   "Jonhatan" "Mary"     "Paty"    
##  [99,] "Adriana" "Ari"     "Daniel"   "Jonhatan" "Olga"     "Paty"    
## [100,] "Adriana" "Ari"     "Daniel"   "Mary"     "Olga"     "Paty"    
## [101,] "Adriana" "Ari"     "Erick"    "Jonhatan" "Mary"     "Olga"    
## [102,] "Adriana" "Ari"     "Erick"    "Jonhatan" "Mary"     "Paty"    
## [103,] "Adriana" "Ari"     "Erick"    "Jonhatan" "Olga"     "Paty"    
## [104,] "Adriana" "Ari"     "Erick"    "Mary"     "Olga"     "Paty"    
## [105,] "Adriana" "Ari"     "Jonhatan" "Mary"     "Olga"     "Paty"    
## [106,] "Adriana" "Augusto" "Daniel"   "Erick"    "Jonhatan" "Mary"    
## [107,] "Adriana" "Augusto" "Daniel"   "Erick"    "Jonhatan" "Olga"    
## [108,] "Adriana" "Augusto" "Daniel"   "Erick"    "Jonhatan" "Paty"    
## [109,] "Adriana" "Augusto" "Daniel"   "Erick"    "Mary"     "Olga"    
## [110,] "Adriana" "Augusto" "Daniel"   "Erick"    "Mary"     "Paty"    
## [111,] "Adriana" "Augusto" "Daniel"   "Erick"    "Olga"     "Paty"    
## [112,] "Adriana" "Augusto" "Daniel"   "Jonhatan" "Mary"     "Olga"    
## [113,] "Adriana" "Augusto" "Daniel"   "Jonhatan" "Mary"     "Paty"    
## [114,] "Adriana" "Augusto" "Daniel"   "Jonhatan" "Olga"     "Paty"    
## [115,] "Adriana" "Augusto" "Daniel"   "Mary"     "Olga"     "Paty"    
## [116,] "Adriana" "Augusto" "Erick"    "Jonhatan" "Mary"     "Olga"    
## [117,] "Adriana" "Augusto" "Erick"    "Jonhatan" "Mary"     "Paty"    
## [118,] "Adriana" "Augusto" "Erick"    "Jonhatan" "Olga"     "Paty"    
## [119,] "Adriana" "Augusto" "Erick"    "Mary"     "Olga"     "Paty"    
## [120,] "Adriana" "Augusto" "Jonhatan" "Mary"     "Olga"     "Paty"    
## [121,] "Adriana" "Daniel"  "Erick"    "Jonhatan" "Mary"     "Olga"    
## [122,] "Adriana" "Daniel"  "Erick"    "Jonhatan" "Mary"     "Paty"    
## [123,] "Adriana" "Daniel"  "Erick"    "Jonhatan" "Olga"     "Paty"    
## [124,] "Adriana" "Daniel"  "Erick"    "Mary"     "Olga"     "Paty"    
## [125,] "Adriana" "Daniel"  "Jonhatan" "Mary"     "Olga"     "Paty"    
## [126,] "Adriana" "Erick"   "Jonhatan" "Mary"     "Olga"     "Paty"

¿en cuántas combinaciones de grupos seis está ‘Paty’ en la cuarta o en la quinta o en la sexta columna

combinaciones[which(combinaciones[,4] == 'Paty' | combinaciones[,5] == 'Paty' | combinaciones[,6] == 'Paty'),]

##        [,1]      [,2]      [,3]       [,4]       [,5]       [,6]  
##   [1,] "Adriana" "Angel"   "Ari"      "Augusto"  "Daniel"   "Paty"
##   [2,] "Adriana" "Angel"   "Ari"      "Augusto"  "Erick"    "Paty"
##   [3,] "Adriana" "Angel"   "Ari"      "Augusto"  "Jonhatan" "Paty"
##   [4,] "Adriana" "Angel"   "Ari"      "Augusto"  "Mary"     "Paty"
##   [5,] "Adriana" "Angel"   "Ari"      "Augusto"  "Olga"     "Paty"
##   [6,] "Adriana" "Angel"   "Ari"      "Daniel"   "Erick"    "Paty"
##   [7,] "Adriana" "Angel"   "Ari"      "Daniel"   "Jonhatan" "Paty"
##   [8,] "Adriana" "Angel"   "Ari"      "Daniel"   "Mary"     "Paty"
##   [9,] "Adriana" "Angel"   "Ari"      "Daniel"   "Olga"     "Paty"
##  [10,] "Adriana" "Angel"   "Ari"      "Erick"    "Jonhatan" "Paty"
##  [11,] "Adriana" "Angel"   "Ari"      "Erick"    "Mary"     "Paty"
##  [12,] "Adriana" "Angel"   "Ari"      "Erick"    "Olga"     "Paty"
##  [13,] "Adriana" "Angel"   "Ari"      "Jonhatan" "Mary"     "Paty"
##  [14,] "Adriana" "Angel"   "Ari"      "Jonhatan" "Olga"     "Paty"
##  [15,] "Adriana" "Angel"   "Ari"      "Mary"     "Olga"     "Paty"
##  [16,] "Adriana" "Angel"   "Augusto"  "Daniel"   "Erick"    "Paty"
##  [17,] "Adriana" "Angel"   "Augusto"  "Daniel"   "Jonhatan" "Paty"
##  [18,] "Adriana" "Angel"   "Augusto"  "Daniel"   "Mary"     "Paty"
##  [19,] "Adriana" "Angel"   "Augusto"  "Daniel"   "Olga"     "Paty"
##  [20,] "Adriana" "Angel"   "Augusto"  "Erick"    "Jonhatan" "Paty"
##  [21,] "Adriana" "Angel"   "Augusto"  "Erick"    "Mary"     "Paty"
##  [22,] "Adriana" "Angel"   "Augusto"  "Erick"    "Olga"     "Paty"
##  [23,] "Adriana" "Angel"   "Augusto"  "Jonhatan" "Mary"     "Paty"
##  [24,] "Adriana" "Angel"   "Augusto"  "Jonhatan" "Olga"     "Paty"
##  [25,] "Adriana" "Angel"   "Augusto"  "Mary"     "Olga"     "Paty"
##  [26,] "Adriana" "Angel"   "Daniel"   "Erick"    "Jonhatan" "Paty"
##  [27,] "Adriana" "Angel"   "Daniel"   "Erick"    "Mary"     "Paty"
##  [28,] "Adriana" "Angel"   "Daniel"   "Erick"    "Olga"     "Paty"
##  [29,] "Adriana" "Angel"   "Daniel"   "Jonhatan" "Mary"     "Paty"
##  [30,] "Adriana" "Angel"   "Daniel"   "Jonhatan" "Olga"     "Paty"
##  [31,] "Adriana" "Angel"   "Daniel"   "Mary"     "Olga"     "Paty"
##  [32,] "Adriana" "Angel"   "Erick"    "Jonhatan" "Mary"     "Paty"
##  [33,] "Adriana" "Angel"   "Erick"    "Jonhatan" "Olga"     "Paty"
##  [34,] "Adriana" "Angel"   "Erick"    "Mary"     "Olga"     "Paty"
##  [35,] "Adriana" "Angel"   "Jonhatan" "Mary"     "Olga"     "Paty"
##  [36,] "Adriana" "Ari"     "Augusto"  "Daniel"   "Erick"    "Paty"
##  [37,] "Adriana" "Ari"     "Augusto"  "Daniel"   "Jonhatan" "Paty"
##  [38,] "Adriana" "Ari"     "Augusto"  "Daniel"   "Mary"     "Paty"
##  [39,] "Adriana" "Ari"     "Augusto"  "Daniel"   "Olga"     "Paty"
##  [40,] "Adriana" "Ari"     "Augusto"  "Erick"    "Jonhatan" "Paty"
##  [41,] "Adriana" "Ari"     "Augusto"  "Erick"    "Mary"     "Paty"
##  [42,] "Adriana" "Ari"     "Augusto"  "Erick"    "Olga"     "Paty"
##  [43,] "Adriana" "Ari"     "Augusto"  "Jonhatan" "Mary"     "Paty"
##  [44,] "Adriana" "Ari"     "Augusto"  "Jonhatan" "Olga"     "Paty"
##  [45,] "Adriana" "Ari"     "Augusto"  "Mary"     "Olga"     "Paty"
##  [46,] "Adriana" "Ari"     "Daniel"   "Erick"    "Jonhatan" "Paty"
##  [47,] "Adriana" "Ari"     "Daniel"   "Erick"    "Mary"     "Paty"
##  [48,] "Adriana" "Ari"     "Daniel"   "Erick"    "Olga"     "Paty"
##  [49,] "Adriana" "Ari"     "Daniel"   "Jonhatan" "Mary"     "Paty"
##  [50,] "Adriana" "Ari"     "Daniel"   "Jonhatan" "Olga"     "Paty"
##  [51,] "Adriana" "Ari"     "Daniel"   "Mary"     "Olga"     "Paty"
##  [52,] "Adriana" "Ari"     "Erick"    "Jonhatan" "Mary"     "Paty"
##  [53,] "Adriana" "Ari"     "Erick"    "Jonhatan" "Olga"     "Paty"
##  [54,] "Adriana" "Ari"     "Erick"    "Mary"     "Olga"     "Paty"
##  [55,] "Adriana" "Ari"     "Jonhatan" "Mary"     "Olga"     "Paty"
##  [56,] "Adriana" "Augusto" "Daniel"   "Erick"    "Jonhatan" "Paty"
##  [57,] "Adriana" "Augusto" "Daniel"   "Erick"    "Mary"     "Paty"
##  [58,] "Adriana" "Augusto" "Daniel"   "Erick"    "Olga"     "Paty"
##  [59,] "Adriana" "Augusto" "Daniel"   "Jonhatan" "Mary"     "Paty"
##  [60,] "Adriana" "Augusto" "Daniel"   "Jonhatan" "Olga"     "Paty"
##  [61,] "Adriana" "Augusto" "Daniel"   "Mary"     "Olga"     "Paty"
##  [62,] "Adriana" "Augusto" "Erick"    "Jonhatan" "Mary"     "Paty"
##  [63,] "Adriana" "Augusto" "Erick"    "Jonhatan" "Olga"     "Paty"
##  [64,] "Adriana" "Augusto" "Erick"    "Mary"     "Olga"     "Paty"
##  [65,] "Adriana" "Augusto" "Jonhatan" "Mary"     "Olga"     "Paty"
##  [66,] "Adriana" "Daniel"  "Erick"    "Jonhatan" "Mary"     "Paty"
##  [67,] "Adriana" "Daniel"  "Erick"    "Jonhatan" "Olga"     "Paty"
##  [68,] "Adriana" "Daniel"  "Erick"    "Mary"     "Olga"     "Paty"
##  [69,] "Adriana" "Daniel"  "Jonhatan" "Mary"     "Olga"     "Paty"
##  [70,] "Adriana" "Erick"   "Jonhatan" "Mary"     "Olga"     "Paty"
##  [71,] "Angel"   "Ari"     "Augusto"  "Daniel"   "Erick"    "Paty"
##  [72,] "Angel"   "Ari"     "Augusto"  "Daniel"   "Jonhatan" "Paty"
##  [73,] "Angel"   "Ari"     "Augusto"  "Daniel"   "Mary"     "Paty"
##  [74,] "Angel"   "Ari"     "Augusto"  "Daniel"   "Olga"     "Paty"
##  [75,] "Angel"   "Ari"     "Augusto"  "Erick"    "Jonhatan" "Paty"
##  [76,] "Angel"   "Ari"     "Augusto"  "Erick"    "Mary"     "Paty"
##  [77,] "Angel"   "Ari"     "Augusto"  "Erick"    "Olga"     "Paty"
##  [78,] "Angel"   "Ari"     "Augusto"  "Jonhatan" "Mary"     "Paty"
##  [79,] "Angel"   "Ari"     "Augusto"  "Jonhatan" "Olga"     "Paty"
##  [80,] "Angel"   "Ari"     "Augusto"  "Mary"     "Olga"     "Paty"
##  [81,] "Angel"   "Ari"     "Daniel"   "Erick"    "Jonhatan" "Paty"
##  [82,] "Angel"   "Ari"     "Daniel"   "Erick"    "Mary"     "Paty"
##  [83,] "Angel"   "Ari"     "Daniel"   "Erick"    "Olga"     "Paty"
##  [84,] "Angel"   "Ari"     "Daniel"   "Jonhatan" "Mary"     "Paty"
##  [85,] "Angel"   "Ari"     "Daniel"   "Jonhatan" "Olga"     "Paty"
##  [86,] "Angel"   "Ari"     "Daniel"   "Mary"     "Olga"     "Paty"
##  [87,] "Angel"   "Ari"     "Erick"    "Jonhatan" "Mary"     "Paty"
##  [88,] "Angel"   "Ari"     "Erick"    "Jonhatan" "Olga"     "Paty"
##  [89,] "Angel"   "Ari"     "Erick"    "Mary"     "Olga"     "Paty"
##  [90,] "Angel"   "Ari"     "Jonhatan" "Mary"     "Olga"     "Paty"
##  [91,] "Angel"   "Augusto" "Daniel"   "Erick"    "Jonhatan" "Paty"
##  [92,] "Angel"   "Augusto" "Daniel"   "Erick"    "Mary"     "Paty"
##  [93,] "Angel"   "Augusto" "Daniel"   "Erick"    "Olga"     "Paty"
##  [94,] "Angel"   "Augusto" "Daniel"   "Jonhatan" "Mary"     "Paty"
##  [95,] "Angel"   "Augusto" "Daniel"   "Jonhatan" "Olga"     "Paty"
##  [96,] "Angel"   "Augusto" "Daniel"   "Mary"     "Olga"     "Paty"
##  [97,] "Angel"   "Augusto" "Erick"    "Jonhatan" "Mary"     "Paty"
##  [98,] "Angel"   "Augusto" "Erick"    "Jonhatan" "Olga"     "Paty"
##  [99,] "Angel"   "Augusto" "Erick"    "Mary"     "Olga"     "Paty"
## [100,] "Angel"   "Augusto" "Jonhatan" "Mary"     "Olga"     "Paty"
## [101,] "Angel"   "Daniel"  "Erick"    "Jonhatan" "Mary"     "Paty"
## [102,] "Angel"   "Daniel"  "Erick"    "Jonhatan" "Olga"     "Paty"
## [103,] "Angel"   "Daniel"  "Erick"    "Mary"     "Olga"     "Paty"
## [104,] "Angel"   "Daniel"  "Jonhatan" "Mary"     "Olga"     "Paty"
## [105,] "Angel"   "Erick"   "Jonhatan" "Mary"     "Olga"     "Paty"
## [106,] "Ari"     "Augusto" "Daniel"   "Erick"    "Jonhatan" "Paty"
## [107,] "Ari"     "Augusto" "Daniel"   "Erick"    "Mary"     "Paty"
## [108,] "Ari"     "Augusto" "Daniel"   "Erick"    "Olga"     "Paty"
## [109,] "Ari"     "Augusto" "Daniel"   "Jonhatan" "Mary"     "Paty"
## [110,] "Ari"     "Augusto" "Daniel"   "Jonhatan" "Olga"     "Paty"
## [111,] "Ari"     "Augusto" "Daniel"   "Mary"     "Olga"     "Paty"
## [112,] "Ari"     "Augusto" "Erick"    "Jonhatan" "Mary"     "Paty"
## [113,] "Ari"     "Augusto" "Erick"    "Jonhatan" "Olga"     "Paty"
## [114,] "Ari"     "Augusto" "Erick"    "Mary"     "Olga"     "Paty"
## [115,] "Ari"     "Augusto" "Jonhatan" "Mary"     "Olga"     "Paty"
## [116,] "Ari"     "Daniel"  "Erick"    "Jonhatan" "Mary"     "Paty"
## [117,] "Ari"     "Daniel"  "Erick"    "Jonhatan" "Olga"     "Paty"
## [118,] "Ari"     "Daniel"  "Erick"    "Mary"     "Olga"     "Paty"
## [119,] "Ari"     "Daniel"  "Jonhatan" "Mary"     "Olga"     "Paty"
## [120,] "Ari"     "Erick"   "Jonhatan" "Mary"     "Olga"     "Paty"
## [121,] "Augusto" "Daniel"  "Erick"    "Jonhatan" "Mary"     "Paty"
## [122,] "Augusto" "Daniel"  "Erick"    "Jonhatan" "Olga"     "Paty"
## [123,] "Augusto" "Daniel"  "Erick"    "Mary"     "Olga"     "Paty"
## [124,] "Augusto" "Daniel"  "Jonhatan" "Mary"     "Olga"     "Paty"
## [125,] "Augusto" "Erick"   "Jonhatan" "Mary"     "Olga"     "Paty"
## [126,] "Daniel"  "Erick"   "Jonhatan" "Mary"     "Olga"     "Paty"

¿en cuántas combinaciones de grupos seis está ‘Olga’ en la cuarta o en la quinta o en la sexta columna

combinaciones[which(combinaciones[,4] == 'Olga' | combinaciones[,5] == 'Olga' | combinaciones[,6] == 'Olga'),]

##        [,1]      [,2]      [,3]       [,4]       [,5]       [,6]  
##   [1,] "Adriana" "Angel"   "Ari"      "Augusto"  "Daniel"   "Olga"
##   [2,] "Adriana" "Angel"   "Ari"      "Augusto"  "Erick"    "Olga"
##   [3,] "Adriana" "Angel"   "Ari"      "Augusto"  "Jonhatan" "Olga"
##   [4,] "Adriana" "Angel"   "Ari"      "Augusto"  "Mary"     "Olga"
##   [5,] "Adriana" "Angel"   "Ari"      "Augusto"  "Olga"     "Paty"
##   [6,] "Adriana" "Angel"   "Ari"      "Daniel"   "Erick"    "Olga"
##   [7,] "Adriana" "Angel"   "Ari"      "Daniel"   "Jonhatan" "Olga"
##   [8,] "Adriana" "Angel"   "Ari"      "Daniel"   "Mary"     "Olga"
##   [9,] "Adriana" "Angel"   "Ari"      "Daniel"   "Olga"     "Paty"
##  [10,] "Adriana" "Angel"   "Ari"      "Erick"    "Jonhatan" "Olga"
##  [11,] "Adriana" "Angel"   "Ari"      "Erick"    "Mary"     "Olga"
##  [12,] "Adriana" "Angel"   "Ari"      "Erick"    "Olga"     "Paty"
##  [13,] "Adriana" "Angel"   "Ari"      "Jonhatan" "Mary"     "Olga"
##  [14,] "Adriana" "Angel"   "Ari"      "Jonhatan" "Olga"     "Paty"
##  [15,] "Adriana" "Angel"   "Ari"      "Mary"     "Olga"     "Paty"
##  [16,] "Adriana" "Angel"   "Augusto"  "Daniel"   "Erick"    "Olga"
##  [17,] "Adriana" "Angel"   "Augusto"  "Daniel"   "Jonhatan" "Olga"
##  [18,] "Adriana" "Angel"   "Augusto"  "Daniel"   "Mary"     "Olga"
##  [19,] "Adriana" "Angel"   "Augusto"  "Daniel"   "Olga"     "Paty"
##  [20,] "Adriana" "Angel"   "Augusto"  "Erick"    "Jonhatan" "Olga"
##  [21,] "Adriana" "Angel"   "Augusto"  "Erick"    "Mary"     "Olga"
##  [22,] "Adriana" "Angel"   "Augusto"  "Erick"    "Olga"     "Paty"
##  [23,] "Adriana" "Angel"   "Augusto"  "Jonhatan" "Mary"     "Olga"
##  [24,] "Adriana" "Angel"   "Augusto"  "Jonhatan" "Olga"     "Paty"
##  [25,] "Adriana" "Angel"   "Augusto"  "Mary"     "Olga"     "Paty"
##  [26,] "Adriana" "Angel"   "Daniel"   "Erick"    "Jonhatan" "Olga"
##  [27,] "Adriana" "Angel"   "Daniel"   "Erick"    "Mary"     "Olga"
##  [28,] "Adriana" "Angel"   "Daniel"   "Erick"    "Olga"     "Paty"
##  [29,] "Adriana" "Angel"   "Daniel"   "Jonhatan" "Mary"     "Olga"
##  [30,] "Adriana" "Angel"   "Daniel"   "Jonhatan" "Olga"     "Paty"
##  [31,] "Adriana" "Angel"   "Daniel"   "Mary"     "Olga"     "Paty"
##  [32,] "Adriana" "Angel"   "Erick"    "Jonhatan" "Mary"     "Olga"
##  [33,] "Adriana" "Angel"   "Erick"    "Jonhatan" "Olga"     "Paty"
##  [34,] "Adriana" "Angel"   "Erick"    "Mary"     "Olga"     "Paty"
##  [35,] "Adriana" "Angel"   "Jonhatan" "Mary"     "Olga"     "Paty"
##  [36,] "Adriana" "Ari"     "Augusto"  "Daniel"   "Erick"    "Olga"
##  [37,] "Adriana" "Ari"     "Augusto"  "Daniel"   "Jonhatan" "Olga"
##  [38,] "Adriana" "Ari"     "Augusto"  "Daniel"   "Mary"     "Olga"
##  [39,] "Adriana" "Ari"     "Augusto"  "Daniel"   "Olga"     "Paty"
##  [40,] "Adriana" "Ari"     "Augusto"  "Erick"    "Jonhatan" "Olga"
##  [41,] "Adriana" "Ari"     "Augusto"  "Erick"    "Mary"     "Olga"
##  [42,] "Adriana" "Ari"     "Augusto"  "Erick"    "Olga"     "Paty"
##  [43,] "Adriana" "Ari"     "Augusto"  "Jonhatan" "Mary"     "Olga"
##  [44,] "Adriana" "Ari"     "Augusto"  "Jonhatan" "Olga"     "Paty"
##  [45,] "Adriana" "Ari"     "Augusto"  "Mary"     "Olga"     "Paty"
##  [46,] "Adriana" "Ari"     "Daniel"   "Erick"    "Jonhatan" "Olga"
##  [47,] "Adriana" "Ari"     "Daniel"   "Erick"    "Mary"     "Olga"
##  [48,] "Adriana" "Ari"     "Daniel"   "Erick"    "Olga"     "Paty"
##  [49,] "Adriana" "Ari"     "Daniel"   "Jonhatan" "Mary"     "Olga"
##  [50,] "Adriana" "Ari"     "Daniel"   "Jonhatan" "Olga"     "Paty"
##  [51,] "Adriana" "Ari"     "Daniel"   "Mary"     "Olga"     "Paty"
##  [52,] "Adriana" "Ari"     "Erick"    "Jonhatan" "Mary"     "Olga"
##  [53,] "Adriana" "Ari"     "Erick"    "Jonhatan" "Olga"     "Paty"
##  [54,] "Adriana" "Ari"     "Erick"    "Mary"     "Olga"     "Paty"
##  [55,] "Adriana" "Ari"     "Jonhatan" "Mary"     "Olga"     "Paty"
##  [56,] "Adriana" "Augusto" "Daniel"   "Erick"    "Jonhatan" "Olga"
##  [57,] "Adriana" "Augusto" "Daniel"   "Erick"    "Mary"     "Olga"
##  [58,] "Adriana" "Augusto" "Daniel"   "Erick"    "Olga"     "Paty"
##  [59,] "Adriana" "Augusto" "Daniel"   "Jonhatan" "Mary"     "Olga"
##  [60,] "Adriana" "Augusto" "Daniel"   "Jonhatan" "Olga"     "Paty"
##  [61,] "Adriana" "Augusto" "Daniel"   "Mary"     "Olga"     "Paty"
##  [62,] "Adriana" "Augusto" "Erick"    "Jonhatan" "Mary"     "Olga"
##  [63,] "Adriana" "Augusto" "Erick"    "Jonhatan" "Olga"     "Paty"
##  [64,] "Adriana" "Augusto" "Erick"    "Mary"     "Olga"     "Paty"
##  [65,] "Adriana" "Augusto" "Jonhatan" "Mary"     "Olga"     "Paty"
##  [66,] "Adriana" "Daniel"  "Erick"    "Jonhatan" "Mary"     "Olga"
##  [67,] "Adriana" "Daniel"  "Erick"    "Jonhatan" "Olga"     "Paty"
##  [68,] "Adriana" "Daniel"  "Erick"    "Mary"     "Olga"     "Paty"
##  [69,] "Adriana" "Daniel"  "Jonhatan" "Mary"     "Olga"     "Paty"
##  [70,] "Adriana" "Erick"   "Jonhatan" "Mary"     "Olga"     "Paty"
##  [71,] "Angel"   "Ari"     "Augusto"  "Daniel"   "Erick"    "Olga"
##  [72,] "Angel"   "Ari"     "Augusto"  "Daniel"   "Jonhatan" "Olga"
##  [73,] "Angel"   "Ari"     "Augusto"  "Daniel"   "Mary"     "Olga"
##  [74,] "Angel"   "Ari"     "Augusto"  "Daniel"   "Olga"     "Paty"
##  [75,] "Angel"   "Ari"     "Augusto"  "Erick"    "Jonhatan" "Olga"
##  [76,] "Angel"   "Ari"     "Augusto"  "Erick"    "Mary"     "Olga"
##  [77,] "Angel"   "Ari"     "Augusto"  "Erick"    "Olga"     "Paty"
##  [78,] "Angel"   "Ari"     "Augusto"  "Jonhatan" "Mary"     "Olga"
##  [79,] "Angel"   "Ari"     "Augusto"  "Jonhatan" "Olga"     "Paty"
##  [80,] "Angel"   "Ari"     "Augusto"  "Mary"     "Olga"     "Paty"
##  [81,] "Angel"   "Ari"     "Daniel"   "Erick"    "Jonhatan" "Olga"
##  [82,] "Angel"   "Ari"     "Daniel"   "Erick"    "Mary"     "Olga"
##  [83,] "Angel"   "Ari"     "Daniel"   "Erick"    "Olga"     "Paty"
##  [84,] "Angel"   "Ari"     "Daniel"   "Jonhatan" "Mary"     "Olga"
##  [85,] "Angel"   "Ari"     "Daniel"   "Jonhatan" "Olga"     "Paty"
##  [86,] "Angel"   "Ari"     "Daniel"   "Mary"     "Olga"     "Paty"
##  [87,] "Angel"   "Ari"     "Erick"    "Jonhatan" "Mary"     "Olga"
##  [88,] "Angel"   "Ari"     "Erick"    "Jonhatan" "Olga"     "Paty"
##  [89,] "Angel"   "Ari"     "Erick"    "Mary"     "Olga"     "Paty"
##  [90,] "Angel"   "Ari"     "Jonhatan" "Mary"     "Olga"     "Paty"
##  [91,] "Angel"   "Augusto" "Daniel"   "Erick"    "Jonhatan" "Olga"
##  [92,] "Angel"   "Augusto" "Daniel"   "Erick"    "Mary"     "Olga"
##  [93,] "Angel"   "Augusto" "Daniel"   "Erick"    "Olga"     "Paty"
##  [94,] "Angel"   "Augusto" "Daniel"   "Jonhatan" "Mary"     "Olga"
##  [95,] "Angel"   "Augusto" "Daniel"   "Jonhatan" "Olga"     "Paty"
##  [96,] "Angel"   "Augusto" "Daniel"   "Mary"     "Olga"     "Paty"
##  [97,] "Angel"   "Augusto" "Erick"    "Jonhatan" "Mary"     "Olga"
##  [98,] "Angel"   "Augusto" "Erick"    "Jonhatan" "Olga"     "Paty"
##  [99,] "Angel"   "Augusto" "Erick"    "Mary"     "Olga"     "Paty"
## [100,] "Angel"   "Augusto" "Jonhatan" "Mary"     "Olga"     "Paty"
## [101,] "Angel"   "Daniel"  "Erick"    "Jonhatan" "Mary"     "Olga"
## [102,] "Angel"   "Daniel"  "Erick"    "Jonhatan" "Olga"     "Paty"
## [103,] "Angel"   "Daniel"  "Erick"    "Mary"     "Olga"     "Paty"
## [104,] "Angel"   "Daniel"  "Jonhatan" "Mary"     "Olga"     "Paty"
## [105,] "Angel"   "Erick"   "Jonhatan" "Mary"     "Olga"     "Paty"
## [106,] "Ari"     "Augusto" "Daniel"   "Erick"    "Jonhatan" "Olga"
## [107,] "Ari"     "Augusto" "Daniel"   "Erick"    "Mary"     "Olga"
## [108,] "Ari"     "Augusto" "Daniel"   "Erick"    "Olga"     "Paty"
## [109,] "Ari"     "Augusto" "Daniel"   "Jonhatan" "Mary"     "Olga"
## [110,] "Ari"     "Augusto" "Daniel"   "Jonhatan" "Olga"     "Paty"
## [111,] "Ari"     "Augusto" "Daniel"   "Mary"     "Olga"     "Paty"
## [112,] "Ari"     "Augusto" "Erick"    "Jonhatan" "Mary"     "Olga"
## [113,] "Ari"     "Augusto" "Erick"    "Jonhatan" "Olga"     "Paty"
## [114,] "Ari"     "Augusto" "Erick"    "Mary"     "Olga"     "Paty"
## [115,] "Ari"     "Augusto" "Jonhatan" "Mary"     "Olga"     "Paty"
## [116,] "Ari"     "Daniel"  "Erick"    "Jonhatan" "Mary"     "Olga"
## [117,] "Ari"     "Daniel"  "Erick"    "Jonhatan" "Olga"     "Paty"
## [118,] "Ari"     "Daniel"  "Erick"    "Mary"     "Olga"     "Paty"
## [119,] "Ari"     "Daniel"  "Jonhatan" "Mary"     "Olga"     "Paty"
## [120,] "Ari"     "Erick"   "Jonhatan" "Mary"     "Olga"     "Paty"
## [121,] "Augusto" "Daniel"  "Erick"    "Jonhatan" "Mary"     "Olga"
## [122,] "Augusto" "Daniel"  "Erick"    "Jonhatan" "Olga"     "Paty"
## [123,] "Augusto" "Daniel"  "Erick"    "Mary"     "Olga"     "Paty"
## [124,] "Augusto" "Daniel"  "Jonhatan" "Mary"     "Olga"     "Paty"
## [125,] "Augusto" "Erick"   "Jonhatan" "Mary"     "Olga"     "Paty"
## [126,] "Daniel"  "Erick"   "Jonhatan" "Mary"     "Olga"     "Paty"

¿en cuántas combinaciones de grupos seis está ‘Olga’ en cualquier columna de la 1 a la 6

combinaciones[which(combinaciones[,1] == 'Olga' | combinaciones[,2] == 'Olga' | combinaciones[,3] == 'Olga' | combinaciones[,4] == 'Olga' | combinaciones[,5] == 'Olga' | combinaciones[,6] == 'Olga'),]

##        [,1]      [,2]      [,3]       [,4]       [,5]       [,6]  
##   [1,] "Adriana" "Angel"   "Ari"      "Augusto"  "Daniel"   "Olga"
##   [2,] "Adriana" "Angel"   "Ari"      "Augusto"  "Erick"    "Olga"
##   [3,] "Adriana" "Angel"   "Ari"      "Augusto"  "Jonhatan" "Olga"
##   [4,] "Adriana" "Angel"   "Ari"      "Augusto"  "Mary"     "Olga"
##   [5,] "Adriana" "Angel"   "Ari"      "Augusto"  "Olga"     "Paty"
##   [6,] "Adriana" "Angel"   "Ari"      "Daniel"   "Erick"    "Olga"
##   [7,] "Adriana" "Angel"   "Ari"      "Daniel"   "Jonhatan" "Olga"
##   [8,] "Adriana" "Angel"   "Ari"      "Daniel"   "Mary"     "Olga"
##   [9,] "Adriana" "Angel"   "Ari"      "Daniel"   "Olga"     "Paty"
##  [10,] "Adriana" "Angel"   "Ari"      "Erick"    "Jonhatan" "Olga"
##  [11,] "Adriana" "Angel"   "Ari"      "Erick"    "Mary"     "Olga"
##  [12,] "Adriana" "Angel"   "Ari"      "Erick"    "Olga"     "Paty"
##  [13,] "Adriana" "Angel"   "Ari"      "Jonhatan" "Mary"     "Olga"
##  [14,] "Adriana" "Angel"   "Ari"      "Jonhatan" "Olga"     "Paty"
##  [15,] "Adriana" "Angel"   "Ari"      "Mary"     "Olga"     "Paty"
##  [16,] "Adriana" "Angel"   "Augusto"  "Daniel"   "Erick"    "Olga"
##  [17,] "Adriana" "Angel"   "Augusto"  "Daniel"   "Jonhatan" "Olga"
##  [18,] "Adriana" "Angel"   "Augusto"  "Daniel"   "Mary"     "Olga"
##  [19,] "Adriana" "Angel"   "Augusto"  "Daniel"   "Olga"     "Paty"
##  [20,] "Adriana" "Angel"   "Augusto"  "Erick"    "Jonhatan" "Olga"
##  [21,] "Adriana" "Angel"   "Augusto"  "Erick"    "Mary"     "Olga"
##  [22,] "Adriana" "Angel"   "Augusto"  "Erick"    "Olga"     "Paty"
##  [23,] "Adriana" "Angel"   "Augusto"  "Jonhatan" "Mary"     "Olga"
##  [24,] "Adriana" "Angel"   "Augusto"  "Jonhatan" "Olga"     "Paty"
##  [25,] "Adriana" "Angel"   "Augusto"  "Mary"     "Olga"     "Paty"
##  [26,] "Adriana" "Angel"   "Daniel"   "Erick"    "Jonhatan" "Olga"
##  [27,] "Adriana" "Angel"   "Daniel"   "Erick"    "Mary"     "Olga"
##  [28,] "Adriana" "Angel"   "Daniel"   "Erick"    "Olga"     "Paty"
##  [29,] "Adriana" "Angel"   "Daniel"   "Jonhatan" "Mary"     "Olga"
##  [30,] "Adriana" "Angel"   "Daniel"   "Jonhatan" "Olga"     "Paty"
##  [31,] "Adriana" "Angel"   "Daniel"   "Mary"     "Olga"     "Paty"
##  [32,] "Adriana" "Angel"   "Erick"    "Jonhatan" "Mary"     "Olga"
##  [33,] "Adriana" "Angel"   "Erick"    "Jonhatan" "Olga"     "Paty"
##  [34,] "Adriana" "Angel"   "Erick"    "Mary"     "Olga"     "Paty"
##  [35,] "Adriana" "Angel"   "Jonhatan" "Mary"     "Olga"     "Paty"
##  [36,] "Adriana" "Ari"     "Augusto"  "Daniel"   "Erick"    "Olga"
##  [37,] "Adriana" "Ari"     "Augusto"  "Daniel"   "Jonhatan" "Olga"
##  [38,] "Adriana" "Ari"     "Augusto"  "Daniel"   "Mary"     "Olga"
##  [39,] "Adriana" "Ari"     "Augusto"  "Daniel"   "Olga"     "Paty"
##  [40,] "Adriana" "Ari"     "Augusto"  "Erick"    "Jonhatan" "Olga"
##  [41,] "Adriana" "Ari"     "Augusto"  "Erick"    "Mary"     "Olga"
##  [42,] "Adriana" "Ari"     "Augusto"  "Erick"    "Olga"     "Paty"
##  [43,] "Adriana" "Ari"     "Augusto"  "Jonhatan" "Mary"     "Olga"
##  [44,] "Adriana" "Ari"     "Augusto"  "Jonhatan" "Olga"     "Paty"
##  [45,] "Adriana" "Ari"     "Augusto"  "Mary"     "Olga"     "Paty"
##  [46,] "Adriana" "Ari"     "Daniel"   "Erick"    "Jonhatan" "Olga"
##  [47,] "Adriana" "Ari"     "Daniel"   "Erick"    "Mary"     "Olga"
##  [48,] "Adriana" "Ari"     "Daniel"   "Erick"    "Olga"     "Paty"
##  [49,] "Adriana" "Ari"     "Daniel"   "Jonhatan" "Mary"     "Olga"
##  [50,] "Adriana" "Ari"     "Daniel"   "Jonhatan" "Olga"     "Paty"
##  [51,] "Adriana" "Ari"     "Daniel"   "Mary"     "Olga"     "Paty"
##  [52,] "Adriana" "Ari"     "Erick"    "Jonhatan" "Mary"     "Olga"
##  [53,] "Adriana" "Ari"     "Erick"    "Jonhatan" "Olga"     "Paty"
##  [54,] "Adriana" "Ari"     "Erick"    "Mary"     "Olga"     "Paty"
##  [55,] "Adriana" "Ari"     "Jonhatan" "Mary"     "Olga"     "Paty"
##  [56,] "Adriana" "Augusto" "Daniel"   "Erick"    "Jonhatan" "Olga"
##  [57,] "Adriana" "Augusto" "Daniel"   "Erick"    "Mary"     "Olga"
##  [58,] "Adriana" "Augusto" "Daniel"   "Erick"    "Olga"     "Paty"
##  [59,] "Adriana" "Augusto" "Daniel"   "Jonhatan" "Mary"     "Olga"
##  [60,] "Adriana" "Augusto" "Daniel"   "Jonhatan" "Olga"     "Paty"
##  [61,] "Adriana" "Augusto" "Daniel"   "Mary"     "Olga"     "Paty"
##  [62,] "Adriana" "Augusto" "Erick"    "Jonhatan" "Mary"     "Olga"
##  [63,] "Adriana" "Augusto" "Erick"    "Jonhatan" "Olga"     "Paty"
##  [64,] "Adriana" "Augusto" "Erick"    "Mary"     "Olga"     "Paty"
##  [65,] "Adriana" "Augusto" "Jonhatan" "Mary"     "Olga"     "Paty"
##  [66,] "Adriana" "Daniel"  "Erick"    "Jonhatan" "Mary"     "Olga"
##  [67,] "Adriana" "Daniel"  "Erick"    "Jonhatan" "Olga"     "Paty"
##  [68,] "Adriana" "Daniel"  "Erick"    "Mary"     "Olga"     "Paty"
##  [69,] "Adriana" "Daniel"  "Jonhatan" "Mary"     "Olga"     "Paty"
##  [70,] "Adriana" "Erick"   "Jonhatan" "Mary"     "Olga"     "Paty"
##  [71,] "Angel"   "Ari"     "Augusto"  "Daniel"   "Erick"    "Olga"
##  [72,] "Angel"   "Ari"     "Augusto"  "Daniel"   "Jonhatan" "Olga"
##  [73,] "Angel"   "Ari"     "Augusto"  "Daniel"   "Mary"     "Olga"
##  [74,] "Angel"   "Ari"     "Augusto"  "Daniel"   "Olga"     "Paty"
##  [75,] "Angel"   "Ari"     "Augusto"  "Erick"    "Jonhatan" "Olga"
##  [76,] "Angel"   "Ari"     "Augusto"  "Erick"    "Mary"     "Olga"
##  [77,] "Angel"   "Ari"     "Augusto"  "Erick"    "Olga"     "Paty"
##  [78,] "Angel"   "Ari"     "Augusto"  "Jonhatan" "Mary"     "Olga"
##  [79,] "Angel"   "Ari"     "Augusto"  "Jonhatan" "Olga"     "Paty"
##  [80,] "Angel"   "Ari"     "Augusto"  "Mary"     "Olga"     "Paty"
##  [81,] "Angel"   "Ari"     "Daniel"   "Erick"    "Jonhatan" "Olga"
##  [82,] "Angel"   "Ari"     "Daniel"   "Erick"    "Mary"     "Olga"
##  [83,] "Angel"   "Ari"     "Daniel"   "Erick"    "Olga"     "Paty"
##  [84,] "Angel"   "Ari"     "Daniel"   "Jonhatan" "Mary"     "Olga"
##  [85,] "Angel"   "Ari"     "Daniel"   "Jonhatan" "Olga"     "Paty"
##  [86,] "Angel"   "Ari"     "Daniel"   "Mary"     "Olga"     "Paty"
##  [87,] "Angel"   "Ari"     "Erick"    "Jonhatan" "Mary"     "Olga"
##  [88,] "Angel"   "Ari"     "Erick"    "Jonhatan" "Olga"     "Paty"
##  [89,] "Angel"   "Ari"     "Erick"    "Mary"     "Olga"     "Paty"
##  [90,] "Angel"   "Ari"     "Jonhatan" "Mary"     "Olga"     "Paty"
##  [91,] "Angel"   "Augusto" "Daniel"   "Erick"    "Jonhatan" "Olga"
##  [92,] "Angel"   "Augusto" "Daniel"   "Erick"    "Mary"     "Olga"
##  [93,] "Angel"   "Augusto" "Daniel"   "Erick"    "Olga"     "Paty"
##  [94,] "Angel"   "Augusto" "Daniel"   "Jonhatan" "Mary"     "Olga"
##  [95,] "Angel"   "Augusto" "Daniel"   "Jonhatan" "Olga"     "Paty"
##  [96,] "Angel"   "Augusto" "Daniel"   "Mary"     "Olga"     "Paty"
##  [97,] "Angel"   "Augusto" "Erick"    "Jonhatan" "Mary"     "Olga"
##  [98,] "Angel"   "Augusto" "Erick"    "Jonhatan" "Olga"     "Paty"
##  [99,] "Angel"   "Augusto" "Erick"    "Mary"     "Olga"     "Paty"
## [100,] "Angel"   "Augusto" "Jonhatan" "Mary"     "Olga"     "Paty"
## [101,] "Angel"   "Daniel"  "Erick"    "Jonhatan" "Mary"     "Olga"
## [102,] "Angel"   "Daniel"  "Erick"    "Jonhatan" "Olga"     "Paty"
## [103,] "Angel"   "Daniel"  "Erick"    "Mary"     "Olga"     "Paty"
## [104,] "Angel"   "Daniel"  "Jonhatan" "Mary"     "Olga"     "Paty"
## [105,] "Angel"   "Erick"   "Jonhatan" "Mary"     "Olga"     "Paty"
## [106,] "Ari"     "Augusto" "Daniel"   "Erick"    "Jonhatan" "Olga"
## [107,] "Ari"     "Augusto" "Daniel"   "Erick"    "Mary"     "Olga"
## [108,] "Ari"     "Augusto" "Daniel"   "Erick"    "Olga"     "Paty"
## [109,] "Ari"     "Augusto" "Daniel"   "Jonhatan" "Mary"     "Olga"
## [110,] "Ari"     "Augusto" "Daniel"   "Jonhatan" "Olga"     "Paty"
## [111,] "Ari"     "Augusto" "Daniel"   "Mary"     "Olga"     "Paty"
## [112,] "Ari"     "Augusto" "Erick"    "Jonhatan" "Mary"     "Olga"
## [113,] "Ari"     "Augusto" "Erick"    "Jonhatan" "Olga"     "Paty"
## [114,] "Ari"     "Augusto" "Erick"    "Mary"     "Olga"     "Paty"
## [115,] "Ari"     "Augusto" "Jonhatan" "Mary"     "Olga"     "Paty"
## [116,] "Ari"     "Daniel"  "Erick"    "Jonhatan" "Mary"     "Olga"
## [117,] "Ari"     "Daniel"  "Erick"    "Jonhatan" "Olga"     "Paty"
## [118,] "Ari"     "Daniel"  "Erick"    "Mary"     "Olga"     "Paty"
## [119,] "Ari"     "Daniel"  "Jonhatan" "Mary"     "Olga"     "Paty"
## [120,] "Ari"     "Erick"   "Jonhatan" "Mary"     "Olga"     "Paty"
## [121,] "Augusto" "Daniel"  "Erick"    "Jonhatan" "Mary"     "Olga"
## [122,] "Augusto" "Daniel"  "Erick"    "Jonhatan" "Olga"     "Paty"
## [123,] "Augusto" "Daniel"  "Erick"    "Mary"     "Olga"     "Paty"
## [124,] "Augusto" "Daniel"  "Jonhatan" "Mary"     "Olga"     "Paty"
## [125,] "Augusto" "Erick"   "Jonhatan" "Mary"     "Olga"     "Paty"
## [126,] "Daniel"  "Erick"   "Jonhatan" "Mary"     "Olga"     "Paty"

¿en cuántas combinaciones de grupos seis están ‘Adriana’, ‘Mary’, ‘Olga’ y ‘Paty’ en cualquier columna de la 1 a la 6. Deben de estar ellas, en cuáles y cuántas aparecen?

combinaciones[which((combinaciones[,1] == 'Adriana' | combinaciones[,2] == 'Adriana' | combinaciones[,3] == 'Adriana' | combinaciones[,4] == 'Adriana' | combinaciones[,5] == 'Adriana' | combinaciones[,6] == 'Adriana') & (combinaciones[,1] == 'Mary' | combinaciones[,2] == 'Mary' | combinaciones[,3] == 'Mary' | combinaciones[,4] == 'Mary' | combinaciones[,5] == 'Mary' | combinaciones[,6] == 'Mary') & (combinaciones[,1] == 'Olga' | combinaciones[,2] == 'Olga' | combinaciones[,3] == 'Olga' | combinaciones[,4] == 'Olga' | combinaciones[,5] == 'Olga' | combinaciones[,6] == 'Olga') & (combinaciones[,1] == 'Paty' | combinaciones[,2] == 'Paty' | combinaciones[,3] == 'Paty' | combinaciones[,4] == 'Paty' | combinaciones[,5] == 'Paty' | combinaciones[,6] == 'Paty')),]

##       [,1]      [,2]      [,3]       [,4]   [,5]   [,6]  
##  [1,] "Adriana" "Angel"   "Ari"      "Mary" "Olga" "Paty"
##  [2,] "Adriana" "Angel"   "Augusto"  "Mary" "Olga" "Paty"
##  [3,] "Adriana" "Angel"   "Daniel"   "Mary" "Olga" "Paty"
##  [4,] "Adriana" "Angel"   "Erick"    "Mary" "Olga" "Paty"
##  [5,] "Adriana" "Angel"   "Jonhatan" "Mary" "Olga" "Paty"
##  [6,] "Adriana" "Ari"     "Augusto"  "Mary" "Olga" "Paty"
##  [7,] "Adriana" "Ari"     "Daniel"   "Mary" "Olga" "Paty"
##  [8,] "Adriana" "Ari"     "Erick"    "Mary" "Olga" "Paty"
##  [9,] "Adriana" "Ari"     "Jonhatan" "Mary" "Olga" "Paty"
## [10,] "Adriana" "Augusto" "Daniel"   "Mary" "Olga" "Paty"
## [11,] "Adriana" "Augusto" "Erick"    "Mary" "Olga" "Paty"
## [12,] "Adriana" "Augusto" "Jonhatan" "Mary" "Olga" "Paty"
## [13,] "Adriana" "Daniel"  "Erick"    "Mary" "Olga" "Paty"
## [14,] "Adriana" "Daniel"  "Jonhatan" "Mary" "Olga" "Paty"
## [15,] "Adriana" "Erick"   "Jonhatan" "Mary" "Olga" "Paty"

———————————————————————————

Analizando datos con PERMUTACIONES de grupos de 6

Preguntas:

¿en cuántas permutaciones de grupos seis está ‘Adriana’ en la primera columna

Se utiliza head() y tail() ara ver solos los primeros seis y los últimos seis registros, respectivamente. Esto es por son bastantes registros y optimizar memoria.

head(permutaciones[which(permutaciones[,1] == 'Adriana'),])

##      [,1]      [,2]    [,3]  [,4]      [,5]     [,6]      
## [1,] "Adriana" "Angel" "Ari" "Augusto" "Daniel" "Erick"   
## [2,] "Adriana" "Angel" "Ari" "Augusto" "Daniel" "Jonhatan"
## [3,] "Adriana" "Angel" "Ari" "Augusto" "Daniel" "Mary"    
## [4,] "Adriana" "Angel" "Ari" "Augusto" "Daniel" "Olga"    
## [5,] "Adriana" "Angel" "Ari" "Augusto" "Daniel" "Paty"    
## [6,] "Adriana" "Angel" "Ari" "Augusto" "Erick"  "Daniel"

tail(permutaciones[which(permutaciones[,1] == 'Adriana'),])

##          [,1]      [,2]   [,3]   [,4]   [,5]       [,6]      
## [15115,] "Adriana" "Paty" "Olga" "Mary" "Erick"    "Jonhatan"
## [15116,] "Adriana" "Paty" "Olga" "Mary" "Jonhatan" "Angel"   
## [15117,] "Adriana" "Paty" "Olga" "Mary" "Jonhatan" "Ari"     
## [15118,] "Adriana" "Paty" "Olga" "Mary" "Jonhatan" "Augusto" 
## [15119,] "Adriana" "Paty" "Olga" "Mary" "Jonhatan" "Daniel"  
## [15120,] "Adriana" "Paty" "Olga" "Mary" "Jonhatan" "Erick"

¿en cuántas permutaciones de grupos seis está ‘Adriana’ en la primera o en la segunda o en la tercera columna

head(permutaciones[which(permutaciones[,1] == 'Adriana' | permutaciones[,2] == 'Adriana' | permutaciones[,3] == 'Adriana'),])

##      [,1]      [,2]    [,3]  [,4]      [,5]     [,6]      
## [1,] "Adriana" "Angel" "Ari" "Augusto" "Daniel" "Erick"   
## [2,] "Adriana" "Angel" "Ari" "Augusto" "Daniel" "Jonhatan"
## [3,] "Adriana" "Angel" "Ari" "Augusto" "Daniel" "Mary"    
## [4,] "Adriana" "Angel" "Ari" "Augusto" "Daniel" "Olga"    
## [5,] "Adriana" "Angel" "Ari" "Augusto" "Daniel" "Paty"    
## [6,] "Adriana" "Angel" "Ari" "Augusto" "Erick"  "Daniel"

tail(permutaciones[which(permutaciones[,1] == 'Adriana' | permutaciones[,2] == 'Adriana' | permutaciones[,3] == 'Adriana'),])

##          [,1]   [,2]   [,3]      [,4]   [,5]       [,6]      
## [45355,] "Paty" "Olga" "Adriana" "Mary" "Erick"    "Jonhatan"
## [45356,] "Paty" "Olga" "Adriana" "Mary" "Jonhatan" "Angel"   
## [45357,] "Paty" "Olga" "Adriana" "Mary" "Jonhatan" "Ari"     
## [45358,] "Paty" "Olga" "Adriana" "Mary" "Jonhatan" "Augusto" 
## [45359,] "Paty" "Olga" "Adriana" "Mary" "Jonhatan" "Daniel"  
## [45360,] "Paty" "Olga" "Adriana" "Mary" "Jonhatan" "Erick"

¿en cuántas permutaciones de grupos seis está ‘Paty’ en la cuarta o en la quinta o en la sexta columna

head(permutaciones[which(permutaciones[,4] == 'Paty' | permutaciones[,5] == 'Paty' | permutaciones[,6] == 'Paty'),])

##      [,1]      [,2]    [,3]  [,4]      [,5]       [,6]    
## [1,] "Adriana" "Angel" "Ari" "Augusto" "Daniel"   "Paty"  
## [2,] "Adriana" "Angel" "Ari" "Augusto" "Erick"    "Paty"  
## [3,] "Adriana" "Angel" "Ari" "Augusto" "Jonhatan" "Paty"  
## [4,] "Adriana" "Angel" "Ari" "Augusto" "Mary"     "Paty"  
## [5,] "Adriana" "Angel" "Ari" "Augusto" "Olga"     "Paty"  
## [6,] "Adriana" "Angel" "Ari" "Augusto" "Paty"     "Daniel"

tail(permutaciones[which(permutaciones[,4] == 'Paty' | permutaciones[,5] == 'Paty' | permutaciones[,6] == 'Paty'),])

##          [,1]   [,2]   [,3]       [,4]   [,5]     [,6]     
## [45355,] "Olga" "Mary" "Jonhatan" "Paty" "Daniel" "Erick"  
## [45356,] "Olga" "Mary" "Jonhatan" "Paty" "Erick"  "Adriana"
## [45357,] "Olga" "Mary" "Jonhatan" "Paty" "Erick"  "Angel"  
## [45358,] "Olga" "Mary" "Jonhatan" "Paty" "Erick"  "Ari"    
## [45359,] "Olga" "Mary" "Jonhatan" "Paty" "Erick"  "Augusto"
## [45360,] "Olga" "Mary" "Jonhatan" "Paty" "Erick"  "Daniel"

¿en cuántas permutaciones de grupos seis está ‘Olga’ en la cuarta o en la quinta o en la sexta columna

head(permutaciones[which(permutaciones[,4] == 'Olga' | permutaciones[,5] == 'Olga' | permutaciones[,6] == 'Olga'),])

##      [,1]      [,2]    [,3]  [,4]      [,5]       [,6]    
## [1,] "Adriana" "Angel" "Ari" "Augusto" "Daniel"   "Olga"  
## [2,] "Adriana" "Angel" "Ari" "Augusto" "Erick"    "Olga"  
## [3,] "Adriana" "Angel" "Ari" "Augusto" "Jonhatan" "Olga"  
## [4,] "Adriana" "Angel" "Ari" "Augusto" "Mary"     "Olga"  
## [5,] "Adriana" "Angel" "Ari" "Augusto" "Olga"     "Daniel"
## [6,] "Adriana" "Angel" "Ari" "Augusto" "Olga"     "Erick"

tail(permutaciones[which(permutaciones[,4] == 'Olga' | permutaciones[,5] == 'Olga' | permutaciones[,6] == 'Olga'),])

##          [,1]   [,2]   [,3]       [,4]   [,5]     [,6]     
## [45355,] "Paty" "Mary" "Jonhatan" "Olga" "Daniel" "Erick"  
## [45356,] "Paty" "Mary" "Jonhatan" "Olga" "Erick"  "Adriana"
## [45357,] "Paty" "Mary" "Jonhatan" "Olga" "Erick"  "Angel"  
## [45358,] "Paty" "Mary" "Jonhatan" "Olga" "Erick"  "Ari"    
## [45359,] "Paty" "Mary" "Jonhatan" "Olga" "Erick"  "Augusto"
## [45360,] "Paty" "Mary" "Jonhatan" "Olga" "Erick"  "Daniel"

¿en cuántas permutaciones de grupos seis está ‘Olga’ en cualquier columna de la 1 a la 6

head(permutaciones[which(permutaciones[,1] == 'Olga' | permutaciones[,2] == 'Olga' | permutaciones[,3] == 'Olga' | permutaciones[,4] == 'Olga' | permutaciones[,5] == 'Olga' | permutaciones[,6] == 'Olga'),])

##      [,1]      [,2]    [,3]  [,4]      [,5]       [,6]    
## [1,] "Adriana" "Angel" "Ari" "Augusto" "Daniel"   "Olga"  
## [2,] "Adriana" "Angel" "Ari" "Augusto" "Erick"    "Olga"  
## [3,] "Adriana" "Angel" "Ari" "Augusto" "Jonhatan" "Olga"  
## [4,] "Adriana" "Angel" "Ari" "Augusto" "Mary"     "Olga"  
## [5,] "Adriana" "Angel" "Ari" "Augusto" "Olga"     "Daniel"
## [6,] "Adriana" "Angel" "Ari" "Augusto" "Olga"     "Erick"

tail(permutaciones[which(permutaciones[,1] == 'Olga' | permutaciones[,2] == 'Olga' | permutaciones[,3] == 'Olga' | permutaciones[,4] == 'Olga' | permutaciones[,5] == 'Olga' | permutaciones[,6] == 'Olga'),])

##          [,1]   [,2]   [,3]   [,4]       [,5]     [,6]     
## [90715,] "Paty" "Olga" "Mary" "Jonhatan" "Daniel" "Erick"  
## [90716,] "Paty" "Olga" "Mary" "Jonhatan" "Erick"  "Adriana"
## [90717,] "Paty" "Olga" "Mary" "Jonhatan" "Erick"  "Angel"  
## [90718,] "Paty" "Olga" "Mary" "Jonhatan" "Erick"  "Ari"    
## [90719,] "Paty" "Olga" "Mary" "Jonhatan" "Erick"  "Augusto"
## [90720,] "Paty" "Olga" "Mary" "Jonhatan" "Erick"  "Daniel"

¿en cuántas permutaciones de grupos seis están ‘Adriana’, ‘Mary’, ‘Olga’ y ‘Paty’ en cualquier columna de la 1 a la 6. Deben de estar ellas, en cuáles y cuántas aparecen?

head(permutaciones[which((permutaciones[,1] == 'Adriana' | permutaciones[,2] == 'Adriana' | permutaciones[,3] == 'Adriana' | permutaciones[,4] == 'Adriana' | permutaciones[,5] == 'Adriana' | permutaciones[,6] == 'Adriana') & (permutaciones[,1] == 'Mary' | permutaciones[,2] == 'Mary' | combinaciones[,3] == 'Mary' | permutaciones[,4] == 'Mary' | permutaciones[,5] == 'Mary' | permutaciones[,6] == 'Mary') & (permutaciones[,1] == 'Olga' | permutaciones[,2] == 'Olga' | permutaciones[,3] == 'Olga' | permutaciones[,4] == 'Olga' | permutaciones[,5] == 'Olga' | permutaciones[,6] == 'Olga') & (permutaciones[,1] == 'Paty' | permutaciones[,2] == 'Paty' | permutaciones[,3] == 'Paty' | permutaciones[,4] == 'Paty' | permutaciones[,5] == 'Paty' | permutaciones[,6] == 'Paty')),])

##      [,1]      [,2]    [,3]  [,4]   [,5]   [,6]  
## [1,] "Adriana" "Angel" "Ari" "Mary" "Olga" "Paty"
## [2,] "Adriana" "Angel" "Ari" "Mary" "Paty" "Olga"
## [3,] "Adriana" "Angel" "Ari" "Olga" "Mary" "Paty"
## [4,] "Adriana" "Angel" "Ari" "Olga" "Paty" "Mary"
## [5,] "Adriana" "Angel" "Ari" "Paty" "Mary" "Olga"
## [6,] "Adriana" "Angel" "Ari" "Paty" "Olga" "Mary"

tail(permutaciones[which((permutaciones[,1] == 'Adriana' | permutaciones[,2] == 'Adriana' | permutaciones[,3] == 'Adriana' | permutaciones[,4] == 'Adriana' | permutaciones[,5] == 'Adriana' | permutaciones[,6] == 'Adriana') & (permutaciones[,1] == 'Mary' | permutaciones[,2] == 'Mary' | combinaciones[,3] == 'Mary' | permutaciones[,4] == 'Mary' | permutaciones[,5] == 'Mary' | permutaciones[,6] == 'Mary') & (permutaciones[,1] == 'Olga' | permutaciones[,2] == 'Olga' | permutaciones[,3] == 'Olga' | permutaciones[,4] == 'Olga' | permutaciones[,5] == 'Olga' | permutaciones[,6] == 'Olga') & (permutaciones[,1] == 'Paty' | permutaciones[,2] == 'Paty' | permutaciones[,3] == 'Paty' | permutaciones[,4] == 'Paty' | permutaciones[,5] == 'Paty' | permutaciones[,6] == 'Paty')),])

##         [,1]   [,2]   [,3]       [,4]   [,5]      [,6]     
## [8995,] "Paty" "Olga" "Jonhatan" "Mary" "Adriana" "Erick"  
## [8996,] "Paty" "Olga" "Jonhatan" "Mary" "Angel"   "Adriana"
## [8997,] "Paty" "Olga" "Jonhatan" "Mary" "Ari"     "Adriana"
## [8998,] "Paty" "Olga" "Jonhatan" "Mary" "Augusto" "Adriana"
## [8999,] "Paty" "Olga" "Jonhatan" "Mary" "Daniel"  "Adriana"
## [9000,] "Paty" "Olga" "Jonhatan" "Mary" "Erick"   "Adriana"

En cuantas ocasiones de las PERMUTACIONES en grupos de SEIS se encuentra juntas “Adriana”, “Mary”, “Olga” y “Paty”. Ya sean en las columnas 1-4, o en las columnas 2-5, o en las columnas 3-6. en ese orden.

permutaciones[which((permutaciones[,1] == 'Adriana' & permutaciones[,2] == 'Mary' & permutaciones[,3] == 'Olga' & permutaciones[,4] == 'Paty') | (permutaciones[,2] == 'Adriana' & permutaciones[,3] == 'Mary' & permutaciones[,4] == 'Olga' & permutaciones[,5] == 'Paty') | (permutaciones[,3] == 'Adriana' & permutaciones[,4] == 'Mary' & permutaciones[,5] == 'Olga' & permutaciones[,6] == 'Paty')),]

##       [,1]       [,2]       [,3]      [,4]   [,5]       [,6]      
##  [1,] "Adriana"  "Mary"     "Olga"    "Paty" "Angel"    "Ari"     
##  [2,] "Adriana"  "Mary"     "Olga"    "Paty" "Angel"    "Augusto" 
##  [3,] "Adriana"  "Mary"     "Olga"    "Paty" "Angel"    "Daniel"  
##  [4,] "Adriana"  "Mary"     "Olga"    "Paty" "Angel"    "Erick"   
##  [5,] "Adriana"  "Mary"     "Olga"    "Paty" "Angel"    "Jonhatan"
##  [6,] "Adriana"  "Mary"     "Olga"    "Paty" "Ari"      "Angel"   
##  [7,] "Adriana"  "Mary"     "Olga"    "Paty" "Ari"      "Augusto" 
##  [8,] "Adriana"  "Mary"     "Olga"    "Paty" "Ari"      "Daniel"  
##  [9,] "Adriana"  "Mary"     "Olga"    "Paty" "Ari"      "Erick"   
## [10,] "Adriana"  "Mary"     "Olga"    "Paty" "Ari"      "Jonhatan"
## [11,] "Adriana"  "Mary"     "Olga"    "Paty" "Augusto"  "Angel"   
## [12,] "Adriana"  "Mary"     "Olga"    "Paty" "Augusto"  "Ari"     
## [13,] "Adriana"  "Mary"     "Olga"    "Paty" "Augusto"  "Daniel"  
## [14,] "Adriana"  "Mary"     "Olga"    "Paty" "Augusto"  "Erick"   
## [15,] "Adriana"  "Mary"     "Olga"    "Paty" "Augusto"  "Jonhatan"
## [16,] "Adriana"  "Mary"     "Olga"    "Paty" "Daniel"   "Angel"   
## [17,] "Adriana"  "Mary"     "Olga"    "Paty" "Daniel"   "Ari"     
## [18,] "Adriana"  "Mary"     "Olga"    "Paty" "Daniel"   "Augusto" 
## [19,] "Adriana"  "Mary"     "Olga"    "Paty" "Daniel"   "Erick"   
## [20,] "Adriana"  "Mary"     "Olga"    "Paty" "Daniel"   "Jonhatan"
## [21,] "Adriana"  "Mary"     "Olga"    "Paty" "Erick"    "Angel"   
## [22,] "Adriana"  "Mary"     "Olga"    "Paty" "Erick"    "Ari"     
## [23,] "Adriana"  "Mary"     "Olga"    "Paty" "Erick"    "Augusto" 
## [24,] "Adriana"  "Mary"     "Olga"    "Paty" "Erick"    "Daniel"  
## [25,] "Adriana"  "Mary"     "Olga"    "Paty" "Erick"    "Jonhatan"
## [26,] "Adriana"  "Mary"     "Olga"    "Paty" "Jonhatan" "Angel"   
## [27,] "Adriana"  "Mary"     "Olga"    "Paty" "Jonhatan" "Ari"     
## [28,] "Adriana"  "Mary"     "Olga"    "Paty" "Jonhatan" "Augusto" 
## [29,] "Adriana"  "Mary"     "Olga"    "Paty" "Jonhatan" "Daniel"  
## [30,] "Adriana"  "Mary"     "Olga"    "Paty" "Jonhatan" "Erick"   
## [31,] "Angel"    "Adriana"  "Mary"    "Olga" "Paty"     "Ari"     
## [32,] "Angel"    "Adriana"  "Mary"    "Olga" "Paty"     "Augusto" 
## [33,] "Angel"    "Adriana"  "Mary"    "Olga" "Paty"     "Daniel"  
## [34,] "Angel"    "Adriana"  "Mary"    "Olga" "Paty"     "Erick"   
## [35,] "Angel"    "Adriana"  "Mary"    "Olga" "Paty"     "Jonhatan"
## [36,] "Angel"    "Ari"      "Adriana" "Mary" "Olga"     "Paty"    
## [37,] "Angel"    "Augusto"  "Adriana" "Mary" "Olga"     "Paty"    
## [38,] "Angel"    "Daniel"   "Adriana" "Mary" "Olga"     "Paty"    
## [39,] "Angel"    "Erick"    "Adriana" "Mary" "Olga"     "Paty"    
## [40,] "Angel"    "Jonhatan" "Adriana" "Mary" "Olga"     "Paty"    
## [41,] "Ari"      "Adriana"  "Mary"    "Olga" "Paty"     "Angel"   
## [42,] "Ari"      "Adriana"  "Mary"    "Olga" "Paty"     "Augusto" 
## [43,] "Ari"      "Adriana"  "Mary"    "Olga" "Paty"     "Daniel"  
## [44,] "Ari"      "Adriana"  "Mary"    "Olga" "Paty"     "Erick"   
## [45,] "Ari"      "Adriana"  "Mary"    "Olga" "Paty"     "Jonhatan"
## [46,] "Ari"      "Angel"    "Adriana" "Mary" "Olga"     "Paty"    
## [47,] "Ari"      "Augusto"  "Adriana" "Mary" "Olga"     "Paty"    
## [48,] "Ari"      "Daniel"   "Adriana" "Mary" "Olga"     "Paty"    
## [49,] "Ari"      "Erick"    "Adriana" "Mary" "Olga"     "Paty"    
## [50,] "Ari"      "Jonhatan" "Adriana" "Mary" "Olga"     "Paty"    
## [51,] "Augusto"  "Adriana"  "Mary"    "Olga" "Paty"     "Angel"   
## [52,] "Augusto"  "Adriana"  "Mary"    "Olga" "Paty"     "Ari"     
## [53,] "Augusto"  "Adriana"  "Mary"    "Olga" "Paty"     "Daniel"  
## [54,] "Augusto"  "Adriana"  "Mary"    "Olga" "Paty"     "Erick"   
## [55,] "Augusto"  "Adriana"  "Mary"    "Olga" "Paty"     "Jonhatan"
## [56,] "Augusto"  "Angel"    "Adriana" "Mary" "Olga"     "Paty"    
## [57,] "Augusto"  "Ari"      "Adriana" "Mary" "Olga"     "Paty"    
## [58,] "Augusto"  "Daniel"   "Adriana" "Mary" "Olga"     "Paty"    
## [59,] "Augusto"  "Erick"    "Adriana" "Mary" "Olga"     "Paty"    
## [60,] "Augusto"  "Jonhatan" "Adriana" "Mary" "Olga"     "Paty"    
## [61,] "Daniel"   "Adriana"  "Mary"    "Olga" "Paty"     "Angel"   
## [62,] "Daniel"   "Adriana"  "Mary"    "Olga" "Paty"     "Ari"     
## [63,] "Daniel"   "Adriana"  "Mary"    "Olga" "Paty"     "Augusto" 
## [64,] "Daniel"   "Adriana"  "Mary"    "Olga" "Paty"     "Erick"   
## [65,] "Daniel"   "Adriana"  "Mary"    "Olga" "Paty"     "Jonhatan"
## [66,] "Daniel"   "Angel"    "Adriana" "Mary" "Olga"     "Paty"    
## [67,] "Daniel"   "Ari"      "Adriana" "Mary" "Olga"     "Paty"    
## [68,] "Daniel"   "Augusto"  "Adriana" "Mary" "Olga"     "Paty"    
## [69,] "Daniel"   "Erick"    "Adriana" "Mary" "Olga"     "Paty"    
## [70,] "Daniel"   "Jonhatan" "Adriana" "Mary" "Olga"     "Paty"    
## [71,] "Erick"    "Adriana"  "Mary"    "Olga" "Paty"     "Angel"   
## [72,] "Erick"    "Adriana"  "Mary"    "Olga" "Paty"     "Ari"     
## [73,] "Erick"    "Adriana"  "Mary"    "Olga" "Paty"     "Augusto" 
## [74,] "Erick"    "Adriana"  "Mary"    "Olga" "Paty"     "Daniel"  
## [75,] "Erick"    "Adriana"  "Mary"    "Olga" "Paty"     "Jonhatan"
## [76,] "Erick"    "Angel"    "Adriana" "Mary" "Olga"     "Paty"    
## [77,] "Erick"    "Ari"      "Adriana" "Mary" "Olga"     "Paty"    
## [78,] "Erick"    "Augusto"  "Adriana" "Mary" "Olga"     "Paty"    
## [79,] "Erick"    "Daniel"   "Adriana" "Mary" "Olga"     "Paty"    
## [80,] "Erick"    "Jonhatan" "Adriana" "Mary" "Olga"     "Paty"    
## [81,] "Jonhatan" "Adriana"  "Mary"    "Olga" "Paty"     "Angel"   
## [82,] "Jonhatan" "Adriana"  "Mary"    "Olga" "Paty"     "Ari"     
## [83,] "Jonhatan" "Adriana"  "Mary"    "Olga" "Paty"     "Augusto" 
## [84,] "Jonhatan" "Adriana"  "Mary"    "Olga" "Paty"     "Daniel"  
## [85,] "Jonhatan" "Adriana"  "Mary"    "Olga" "Paty"     "Erick"   
## [86,] "Jonhatan" "Angel"    "Adriana" "Mary" "Olga"     "Paty"    
## [87,] "Jonhatan" "Ari"      "Adriana" "Mary" "Olga"     "Paty"    
## [88,] "Jonhatan" "Augusto"  "Adriana" "Mary" "Olga"     "Paty"    
## [89,] "Jonhatan" "Daniel"   "Adriana" "Mary" "Olga"     "Paty"    
## [90,] "Jonhatan" "Erick"    "Adriana" "Mary" "Olga"     "Paty"