practica6

Combinaciones y Permutaciones con nombre alumnos

19041231 Osiris Ochoa Solis https://rpubs.com/OsirisKeton/584052

19041239 Elias Jr. Ramos Lopez https://rpubs.com/Elias_R/584057

19041216 Frida Krystel Herrera Hernández https://rpubs.com/Frida_Krys/584058

19041198 Marco Daniel De La Torre Mendia https://rpubs.com/mDaniel/584055

19041206 Irving alonso Galvan carabez https://rpubs.com/IRVING_GALVAN_CARABEZ/584053

19041230 Nevarez Lopez Fernanda Verónica https://rpubs.com/ferlovegood2000/584056

Instalar paquetes y cargar la libreria

library(gtools)

PREGUNTA 1 Y 2: Lista de un conjunto de 10 nombres

nombres <- c("Osiris", "Marco", "Elias", "Frida", "Irving", "Daniel", "Paty", "Adriana", "Olga", "Mary")

nombres <- sort(nombres)

nombres

##  [1] "Adriana" "Daniel"  "Elias"   "Frida"   "Irving"  "Marco"   "Mary"   
##  [8] "Olga"    "Osiris"  "Paty"

PREGUNTA 3: 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" "Daniel"
## [2,] "Adriana" "Elias" 
## [3,] "Adriana" "Frida" 
## [4,] "Adriana" "Irving"
## [5,] "Adriana" "Marco" 
## [6,] "Adriana" "Mary"

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

## [1] 45

PREGUNTA 4: Determinar combinaciones del conjunto de nombres en grupos de 4, identificar cuáles y cuántas combinaciones hay? Visualizar.

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

combinaciones <- combinations(N, n, nombres)

head(combinaciones)

##      [,1]      [,2]     [,3]    [,4]    
## [1,] "Adriana" "Daniel" "Elias" "Frida" 
## [2,] "Adriana" "Daniel" "Elias" "Irving"
## [3,] "Adriana" "Daniel" "Elias" "Marco" 
## [4,] "Adriana" "Daniel" "Elias" "Mary"  
## [5,] "Adriana" "Daniel" "Elias" "Olga"  
## [6,] "Adriana" "Daniel" "Elias" "Osiris"

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

## [1] 210

PREGUNTA 5: Determinar combinaciones del conjunto de nombres en grupos de 6, identificar cuáles y cuántas combinaciones hay? Visualizar.

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" "Daniel" "Elias" "Frida" "Irving" "Marco" 
## [2,] "Adriana" "Daniel" "Elias" "Frida" "Irving" "Mary"  
## [3,] "Adriana" "Daniel" "Elias" "Frida" "Irving" "Olga"  
## [4,] "Adriana" "Daniel" "Elias" "Frida" "Irving" "Osiris"
## [5,] "Adriana" "Daniel" "Elias" "Frida" "Irving" "Paty"  
## [6,] "Adriana" "Daniel" "Elias" "Frida" "Marco"  "Mary"

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

## [1] 210

PREGUNTA 6: Determinar permutaciones del conjunto de nombres en grupos de 2 identificar cuáles y cuántas combinaciones hay? Visualizar.

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

permutaciones <- permutations(N, n, nombres)

head(permutaciones)

##      [,1]      [,2]    
## [1,] "Adriana" "Daniel"
## [2,] "Adriana" "Elias" 
## [3,] "Adriana" "Frida" 
## [4,] "Adriana" "Irving"
## [5,] "Adriana" "Marco" 
## [6,] "Adriana" "Mary"

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

## [1] 90

PREGUNTA 7: Determinar permutacionesdel conjunto de nombres en grupos de 4, identificar cuáles y cuántas combinaciones hay? Visualizar.

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

permutaciones <- permutations(N, n, nombres)

head(permutaciones)

##      [,1]      [,2]     [,3]    [,4]    
## [1,] "Adriana" "Daniel" "Elias" "Frida" 
## [2,] "Adriana" "Daniel" "Elias" "Irving"
## [3,] "Adriana" "Daniel" "Elias" "Marco" 
## [4,] "Adriana" "Daniel" "Elias" "Mary"  
## [5,] "Adriana" "Daniel" "Elias" "Olga"  
## [6,] "Adriana" "Daniel" "Elias" "Osiris"

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

## [1] 5040

PREGUNTA 8: Determinar permutaciones del conjunto de nombres en grupos de 6, identificar cuáles y cuántas combinaciones hay? Visualizar.

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" "Daniel" "Elias" "Frida" "Irving" "Marco" 
## [2,] "Adriana" "Daniel" "Elias" "Frida" "Irving" "Mary"  
## [3,] "Adriana" "Daniel" "Elias" "Frida" "Irving" "Olga"  
## [4,] "Adriana" "Daniel" "Elias" "Frida" "Irving" "Osiris"
## [5,] "Adriana" "Daniel" "Elias" "Frida" "Irving" "Paty"  
## [6,] "Adriana" "Daniel" "Elias" "Frida" "Marco"  "Irving"

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

## [1] 151200

PREGUNTA 9: ¿en cuántas combinaciones de grupos seis está ‘Adriana’ en la primera columna?.

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

##      [,1]      [,2]     [,3]    [,4]    [,5]     [,6]    
## [1,] "Adriana" "Daniel" "Elias" "Frida" "Irving" "Marco" 
## [2,] "Adriana" "Daniel" "Elias" "Frida" "Irving" "Mary"  
## [3,] "Adriana" "Daniel" "Elias" "Frida" "Irving" "Olga"  
## [4,] "Adriana" "Daniel" "Elias" "Frida" "Irving" "Osiris"
## [5,] "Adriana" "Daniel" "Elias" "Frida" "Irving" "Paty"  
## [6,] "Adriana" "Daniel" "Elias" "Frida" "Marco"  "Mary"

# COMBINACIONES POSIBLES
nrow(combinaciones[which(combinaciones[,1] == 'Adriana'),])

## [1] 126

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

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

##      [,1]      [,2]     [,3]    [,4]    [,5]     [,6]    
## [1,] "Adriana" "Daniel" "Elias" "Frida" "Irving" "Marco" 
## [2,] "Adriana" "Daniel" "Elias" "Frida" "Irving" "Mary"  
## [3,] "Adriana" "Daniel" "Elias" "Frida" "Irving" "Olga"  
## [4,] "Adriana" "Daniel" "Elias" "Frida" "Irving" "Osiris"
## [5,] "Adriana" "Daniel" "Elias" "Frida" "Irving" "Paty"  
## [6,] "Adriana" "Daniel" "Elias" "Frida" "Marco"  "Mary"

# COMBINACIONES POSIBLES
nrow(combinaciones[which(combinaciones[,1] == 'Adriana' | combinaciones[,2] == 'Adriana' | combinaciones[,3] == 'Adriana'),])

## [1] 126

PREGUNTA 11: ¿en cuántas combinaciones de grupos seis está ‘Paty’ en la cuarta o en la quinta o en la sexta columna?.

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

##      [,1]      [,2]     [,3]    [,4]     [,5]     [,6]  
## [1,] "Adriana" "Daniel" "Elias" "Frida"  "Irving" "Paty"
## [2,] "Adriana" "Daniel" "Elias" "Frida"  "Marco"  "Paty"
## [3,] "Adriana" "Daniel" "Elias" "Frida"  "Mary"   "Paty"
## [4,] "Adriana" "Daniel" "Elias" "Frida"  "Olga"   "Paty"
## [5,] "Adriana" "Daniel" "Elias" "Frida"  "Osiris" "Paty"
## [6,] "Adriana" "Daniel" "Elias" "Irving" "Marco"  "Paty"

# COMBINACIONES POSIBLES
nrow(combinaciones[which(combinaciones[,4] == 'Paty' | combinaciones[,5] == 'Paty' | combinaciones[,6] == 'Paty'),])

## [1] 126

PREGUNTA 12:¿en cuántas combinaciones de grupos seis está ‘Olga’ en la cuarta o en la quinta o en la sexta columna?.

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

##      [,1]      [,2]     [,3]    [,4]     [,5]     [,6]    
## [1,] "Adriana" "Daniel" "Elias" "Frida"  "Irving" "Olga"  
## [2,] "Adriana" "Daniel" "Elias" "Frida"  "Marco"  "Olga"  
## [3,] "Adriana" "Daniel" "Elias" "Frida"  "Mary"   "Olga"  
## [4,] "Adriana" "Daniel" "Elias" "Frida"  "Olga"   "Osiris"
## [5,] "Adriana" "Daniel" "Elias" "Frida"  "Olga"   "Paty"  
## [6,] "Adriana" "Daniel" "Elias" "Irving" "Marco"  "Olga"

# COMBINACIONES POSIBLES
nrow(combinaciones[which(combinaciones[,4] == 'Olga' | combinaciones[,5] == 'Olga' | combinaciones[,6] == 'Olga'),])

## [1] 126

PREGUNTA 13:¿en cuántas combinaciones de grupos seis está ‘Olga’ en cualquier columna de la 1 a la 6?.

head(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" "Daniel" "Elias" "Frida"  "Irving" "Olga"  
## [2,] "Adriana" "Daniel" "Elias" "Frida"  "Marco"  "Olga"  
## [3,] "Adriana" "Daniel" "Elias" "Frida"  "Mary"   "Olga"  
## [4,] "Adriana" "Daniel" "Elias" "Frida"  "Olga"   "Osiris"
## [5,] "Adriana" "Daniel" "Elias" "Frida"  "Olga"   "Paty"  
## [6,] "Adriana" "Daniel" "Elias" "Irving" "Marco"  "Olga"

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

## [1] 126

PREGUNTA 14:¿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" "Daniel" "Elias"  "Mary" "Olga"   "Paty"
##  [2,] "Adriana" "Daniel" "Frida"  "Mary" "Olga"   "Paty"
##  [3,] "Adriana" "Daniel" "Irving" "Mary" "Olga"   "Paty"
##  [4,] "Adriana" "Daniel" "Marco"  "Mary" "Olga"   "Paty"
##  [5,] "Adriana" "Daniel" "Mary"   "Olga" "Osiris" "Paty"
##  [6,] "Adriana" "Elias"  "Frida"  "Mary" "Olga"   "Paty"
##  [7,] "Adriana" "Elias"  "Irving" "Mary" "Olga"   "Paty"
##  [8,] "Adriana" "Elias"  "Marco"  "Mary" "Olga"   "Paty"
##  [9,] "Adriana" "Elias"  "Mary"   "Olga" "Osiris" "Paty"
## [10,] "Adriana" "Frida"  "Irving" "Mary" "Olga"   "Paty"
## [11,] "Adriana" "Frida"  "Marco"  "Mary" "Olga"   "Paty"
## [12,] "Adriana" "Frida"  "Mary"   "Olga" "Osiris" "Paty"
## [13,] "Adriana" "Irving" "Marco"  "Mary" "Olga"   "Paty"
## [14,] "Adriana" "Irving" "Mary"   "Olga" "Osiris" "Paty"
## [15,] "Adriana" "Marco"  "Mary"   "Olga" "Osiris" "Paty"

# COMBINACIONES POSIBLES
nrow(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] 15

PREGUNTA 15:¿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" "Daniel" "Elias" "Frida" "Irving" "Marco" 
## [2,] "Adriana" "Daniel" "Elias" "Frida" "Irving" "Mary"  
## [3,] "Adriana" "Daniel" "Elias" "Frida" "Irving" "Olga"  
## [4,] "Adriana" "Daniel" "Elias" "Frida" "Irving" "Osiris"
## [5,] "Adriana" "Daniel" "Elias" "Frida" "Irving" "Paty"  
## [6,] "Adriana" "Daniel" "Elias" "Frida" "Marco"  "Irving"

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

##          [,1]   [,2]     [,3]      [,4]   [,5]    [,6]    
## [45355,] "Paty" "Osiris" "Adriana" "Olga" "Marco" "Mary"  
## [45356,] "Paty" "Osiris" "Adriana" "Olga" "Mary"  "Daniel"
## [45357,] "Paty" "Osiris" "Adriana" "Olga" "Mary"  "Elias" 
## [45358,] "Paty" "Osiris" "Adriana" "Olga" "Mary"  "Frida" 
## [45359,] "Paty" "Osiris" "Adriana" "Olga" "Mary"  "Irving"
## [45360,] "Paty" "Osiris" "Adriana" "Olga" "Mary"  "Marco"

# COMBINACIONES POSIBLES
nrow(permutaciones[which(permutaciones[,1] == 'Adriana' | permutaciones[,2] == 'Adriana' | permutaciones[,3] == 'Adriana'),])

## [1] 45360

PREGUNTA 16:¿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" "Daniel" "Elias" "Frida" "Irving" "Paty"  
## [2,] "Adriana" "Daniel" "Elias" "Frida" "Marco"  "Paty"  
## [3,] "Adriana" "Daniel" "Elias" "Frida" "Mary"   "Paty"  
## [4,] "Adriana" "Daniel" "Elias" "Frida" "Olga"   "Paty"  
## [5,] "Adriana" "Daniel" "Elias" "Frida" "Osiris" "Paty"  
## [6,] "Adriana" "Daniel" "Elias" "Frida" "Paty"   "Irving"

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

##          [,1]     [,2]   [,3]   [,4]   [,5]     [,6]     
## [45355,] "Osiris" "Olga" "Mary" "Paty" "Irving" "Marco"  
## [45356,] "Osiris" "Olga" "Mary" "Paty" "Marco"  "Adriana"
## [45357,] "Osiris" "Olga" "Mary" "Paty" "Marco"  "Daniel" 
## [45358,] "Osiris" "Olga" "Mary" "Paty" "Marco"  "Elias"  
## [45359,] "Osiris" "Olga" "Mary" "Paty" "Marco"  "Frida"  
## [45360,] "Osiris" "Olga" "Mary" "Paty" "Marco"  "Irving"

# COMBINACIONES POSIBLES
nrow(permutaciones[which(permutaciones[,4] == 'Paty' | permutaciones[,5] == 'Paty' | permutaciones[,6] == 'Paty'),])

## [1] 45360

PREGUNTA 17:¿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" "Daniel" "Elias" "Frida" "Irving" "Olga"  
## [2,] "Adriana" "Daniel" "Elias" "Frida" "Marco"  "Olga"  
## [3,] "Adriana" "Daniel" "Elias" "Frida" "Mary"   "Olga"  
## [4,] "Adriana" "Daniel" "Elias" "Frida" "Olga"   "Irving"
## [5,] "Adriana" "Daniel" "Elias" "Frida" "Olga"   "Marco" 
## [6,] "Adriana" "Daniel" "Elias" "Frida" "Olga"   "Mary"

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

##          [,1]   [,2]     [,3]   [,4]   [,5]     [,6]     
## [45355,] "Paty" "Osiris" "Mary" "Olga" "Irving" "Marco"  
## [45356,] "Paty" "Osiris" "Mary" "Olga" "Marco"  "Adriana"
## [45357,] "Paty" "Osiris" "Mary" "Olga" "Marco"  "Daniel" 
## [45358,] "Paty" "Osiris" "Mary" "Olga" "Marco"  "Elias"  
## [45359,] "Paty" "Osiris" "Mary" "Olga" "Marco"  "Frida"  
## [45360,] "Paty" "Osiris" "Mary" "Olga" "Marco"  "Irving"

# COMBINACIONES POSIBLES
nrow(permutaciones[which(permutaciones[,4] == 'Olga' | permutaciones[,5] == 'Olga' | permutaciones[,6] == 'Olga'),])

## [1] 45360

PREGUNTA 18:¿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" "Daniel" "Elias" "Frida" "Irving" "Olga"  
## [2,] "Adriana" "Daniel" "Elias" "Frida" "Marco"  "Olga"  
## [3,] "Adriana" "Daniel" "Elias" "Frida" "Mary"   "Olga"  
## [4,] "Adriana" "Daniel" "Elias" "Frida" "Olga"   "Irving"
## [5,] "Adriana" "Daniel" "Elias" "Frida" "Olga"   "Marco" 
## [6,] "Adriana" "Daniel" "Elias" "Frida" "Olga"   "Mary"

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" "Osiris" "Olga" "Mary" "Irving" "Marco"  
## [90716,] "Paty" "Osiris" "Olga" "Mary" "Marco"  "Adriana"
## [90717,] "Paty" "Osiris" "Olga" "Mary" "Marco"  "Daniel" 
## [90718,] "Paty" "Osiris" "Olga" "Mary" "Marco"  "Elias"  
## [90719,] "Paty" "Osiris" "Olga" "Mary" "Marco"  "Frida"  
## [90720,] "Paty" "Osiris" "Olga" "Mary" "Marco"  "Irving"

# COMBINACIONES POSIBLES
nrow(permutaciones[which(permutaciones[,1] == 'Olga' | permutaciones[,2] == 'Olga' | permutaciones[,3] == 'Olga' | permutaciones[,4] == 'Olga' | permutaciones[,5] == 'Olga' | permutaciones[,6] == 'Olga'),])

## [1] 90720

PREGUNTA 19:¿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" "Daniel" "Elias" "Mary" "Olga"  "Paty"
## [2,] "Adriana" "Daniel" "Elias" "Mary" "Paty"  "Olga"
## [3,] "Adriana" "Daniel" "Elias" "Olga" "Frida" "Paty"
## [4,] "Adriana" "Daniel" "Elias" "Olga" "Mary"  "Paty"
## [5,] "Adriana" "Daniel" "Elias" "Olga" "Paty"  "Mary"
## [6,] "Adriana" "Daniel" "Elias" "Paty" "Mary"  "Olga"

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]     
## [10863,] "Paty" "Osiris" "Olga" "Mary" "Adriana" "Marco"  
## [10864,] "Paty" "Osiris" "Olga" "Mary" "Daniel"  "Adriana"
## [10865,] "Paty" "Osiris" "Olga" "Mary" "Elias"   "Adriana"
## [10866,] "Paty" "Osiris" "Olga" "Mary" "Frida"   "Adriana"
## [10867,] "Paty" "Osiris" "Olga" "Mary" "Irving"  "Adriana"
## [10868,] "Paty" "Osiris" "Olga" "Mary" "Marco"   "Adriana"

# COMBINACIONES POSIBLES
nrow(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] 10868

PREGUNTA 20:¿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?.

head(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" "Daniel" "Elias" 
## [2,] "Adriana" "Mary" "Olga" "Paty" "Daniel" "Frida" 
## [3,] "Adriana" "Mary" "Olga" "Paty" "Daniel" "Irving"
## [4,] "Adriana" "Mary" "Olga" "Paty" "Daniel" "Marco" 
## [5,] "Adriana" "Mary" "Olga" "Paty" "Daniel" "Osiris"
## [6,] "Adriana" "Mary" "Olga" "Paty" "Elias"  "Daniel"

tail(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]   
## [85,] "Osiris" "Adriana" "Mary"    "Olga" "Paty" "Marco"
## [86,] "Osiris" "Daniel"  "Adriana" "Mary" "Olga" "Paty" 
## [87,] "Osiris" "Elias"   "Adriana" "Mary" "Olga" "Paty" 
## [88,] "Osiris" "Frida"   "Adriana" "Mary" "Olga" "Paty" 
## [89,] "Osiris" "Irving"  "Adriana" "Mary" "Olga" "Paty" 
## [90,] "Osiris" "Marco"   "Adriana" "Mary" "Olga" "Paty"

# COMBINACIONES POSIBLES
nrow(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] 90

ANALISIS DE RESULTADOS

Primeramente hay que diferenciar lo que es una permutacion y lo que es una combinacion, en una combinacion solo importa la probabilidad de que un conjunto N se repita sin importar tantas veces sin importa posicion, ya que, en una combinacion da igual si es AB o BA ya que es lo mismo cuando hablamos de una combinacion, pero en el caso de una permutacion no, porque, en las permutaciones tambien importa la posicion en la que se encuentre cada valor, por ello no sera lo mismo AB que BA, por esto, es que cuando combinamos los nombres a cuando permutamos los nombres salen cantidades enormemente variadas. Analizando los resultados podemos darnos cuentas primeramente que los resultados de las comibnaciones salen muchas veces igual, esto debido y dada la casualidad de que RStudios acomoda los nombres por orden alfabetico inicial antes de formar todas las combinaciones, por ello podemos tener el caso de que da igual en las combinaciones en el caso de Adriana si ponemos cuantas hay de la fila 2-6 ya que RStudios se encarga de que todas las combinaciones se encuentren en la columna uno por orden alfabetico. Viendo el caso de las permutaciones es bastante similar al anterior, porque, dado que la posicion importa entonces podemos deducir que en todas las columnas se encontraran el mismo numero de veces el nombre, por ello si ponemos que Adriana este del 1 al 3 nos dara lo mismo si ponemos Adriana del 4 al 6 ya que al importar la posicion aun cuando manejamos conjuntos de 6 en 6 siempre se repetira la cantidad de nombres por columna, sin embargo, ya si pedimos algo mas especifico como perdir que de tal a tal conjunto esten dos nombres o no lo esten entonces cambiara la probabilidad, claro, en todos los casos las combinaciones cambian, pero aun asi, al ver la probabilidad nos podemos dar cuenta de este pequeño patron en todos los resultados.

Posibles usos

Viendo esta funcion que acabamos de conocer a mayor profundidad podemos darnos cuenta que nos sirve perfectamente para poder sacar la probabilidad de las cosas y poder predecir que es lo que seria mas probable para poder, ya sea en determinado caso, tomar una desicion, porque ahora mismo solo estamos trabajando con la combinacion de varios nombres, pero si nosotros nos vamos un poco mas alla y trabajamos otros conjuntos de interes, podemos manejarlos por probabilidades y ver cual es la opcion que mas nos comviene, aunque claro, al trabajar los conjuntos en una platarforma como esta todos los conjuntos tendran la misma oportunidad de salir y de ser factibles, pero ya en el caso de trabajar con datos fijos que no tengan todos la misma porbabilidad el manejo de los conjunto puede cambiar.