Objetivo

Construir permutaciones de conjuntos de datos de personas y de nombres de equipos deportivos

Descripción

A partir de conjuntos datos (valores individuales) realizar permutaciones para conocer el número de las mismas y el acomodo de los valores para su interpretación en términos de probabilidad.

La diferencias entre permutaciones y combinaciones tiene que ver con la cantidad o el número de eventos.

Al hacer permutaciones, si importa el orden en que se acomodan los elementos, es decir en que columna aparecen, en la primera, segunda, tercera y y sucesivamente.

Para identificar el orden, se puede decir que no es lo mismo “Oscar”, “Paco” que “Paco”, “Oscar”, están a la inversa o el orden está invertido. Eso es una diferencia con las combinaciones, son los mismos elementos pero el orden en que se acomodan o en que aparecen los elementos está diferente.

Se deben hacer las siguientes acciones:

Cargar librerías
Cargar los datos
Identificar fórmula de factorial
Identificar fórmula de permutaciones
Determinar probabilidades a partir del espacio muestral de las combinaciones
Encontrar probabilidad con base en frecuencia o contabilizar eventos específicos del espacio muestral
Interpretar el caso

Cargar librerías

Se van a utilizar funciones de la librería “gtools” por lo que se necesario instalarla previamente: install.packages(“gtools”).

Esta librería permitirá hacer combinaciones y permutaciones.

# install.packages("gtools")
library(gtools)

Marco conceptual

Para hacer permutaciones es necesario identificar la importancia del valor factorial de un número

Factorial

El factorial de un número es el producto de \(n\) por todos los naturales menores que el y se representa con el \(!n\), entonces \(n!=n\times(n-1)...\times 1\)

La función factorial es una fórmula matemática representada por el signo de exclamación \(!\). En la fórmula Factorial se deben multiplicar todos los números enteros y positivos que hay entre el número que aparece en la fórmula y el número \(1\).

Ejemplo: hallar el factorial de 6 o se sea \(6!=6\times5\times4\times3\times2\times1=720\)

Permutaciones

La regla de conteo de permutaciones permite calcular el número de resultados experimentales cuando se seleccionan cierto número objetos de un conjunto de \(n\) objetos y el orden de selección es relevante.

Los mismos \(r\) objetos seleccionados en orden diferente se consideran un resultado experimental diferente.

Fórmula de permutaciones

\[ S=Pn\binom{n}{r} = \frac{n!}{(n-r)!}\\S \text{ es el espacio muestral y la cantidad de permutaciones} \\Pn \text{ es el número de permutaciones posibles}\\ \binom{n}{r} \text {es símbolo de permutar n elementos en grupos de r}\\ n \text{ es el total de elementos}\\ r \text{ es de cuantos en cuantos elementos se hacen grupos y permutaciones} \]

Ejemplo 1. Nombres de personas

Se trata de hacer permutaciones con los nombres de cuatro personas: “Oscar”, “Paco”, “Paty”, “Laura”, “Rubén”, “Luis”, “Lucy”, “Alberto”, “Juan” en grupos de 2.

Entonces \(n=9\), porque hay cuatro nombres o elementos y \(r=2\) porque se trata de agrupar o permutar de dos en dos.

¿Cuántas permutaciones deberá haber?

Oscar y Paco
Paco y Oscar
Oscar y Paty
Paty y Oscar
Oscar y Laura
Laura y Oscar
Paco y Paty
Paty y Paco
… …
… …
Paty y Laura
Laura y Paty

nombres <- c("Oscar", "Paco", "Paty", "Laura", "Rubén", "Luis", "Lucy", "Alberto", "Juan","Alejandro","Julio","Yesica","Cesar","Omar")
n <- length(nombres)
r <- 2 # ¿cómo agrupar o permutar?
Pn <- factorial(n) / factorial(n-r)
paste("Existen ", Pn , " posibles permutaciones del total de ", n , " nombres ", " en grupos de ", r ," en ", r)

## [1] "Existen  182  posibles permutaciones del total de  14  nombres   en grupos de  2  en  2"

Ejemplo 2. Nombres de equipos de fútbol en México.

Se trata de hacer combinaciones con los nombres de diez equipos de futbol en grupos de 5. Entonces \(n=9\), porque hay diez equipos o elementos y \(r=5\) porque se trata de agrupar de tres en tres.

¿Cuántas permutaciones deberá haber?

empresas <- c("Google", "Facebook", "Amazon", "Microsoft", "Apple", "BBVA", "Coppel", "Coca-Cola", "Liverpool")
n <- length(empresas)
r <- 5 # ¿cómo agrupar?
Pn <- factorial(n) / factorial(n-r)
paste("Existen ", Pn , " posibles permutaciones del total de ", n , " empresas ", " en grupos de ", r ," en ", r)

## [1] "Existen  15120  posibles permutaciones del total de  9  empresas   en grupos de  5  en  5"

Desarrollo

Si bien la fórmula de permutaciones indica el número de permutaciones posibles de un conjunto de elementos pero lo que se desea conocer es ¿cómo se forman o cómo se verían los grupos?.

Se utiliza la función permutation

Permutaciones

Se utiliza la función permutation() y se requiere por lo menos tres atributos:

La cantidad de elementos n
Los grupos de cuanto en cuanto se forman r
y los elementos, o sea en este caso el vector v

Nombres de personas

Se muestran las posibles permutaciones de los nombres de personas. Las función permutations() ordena los valores alfabéticamente y luego construye las combinaciones.

nombres

##  [1] "Oscar"     "Paco"      "Paty"      "Laura"     "Rubén"     "Luis"     
##  [7] "Lucy"      "Alberto"   "Juan"      "Alejandro" "Julio"     "Yesica"   
## [13] "Cesar"     "Omar"

Pern.nombres <- permutations(n = length(nombres), r = 2, v = nombres)
Pern.nombres

##        [,1]        [,2]       
##   [1,] "Alberto"   "Alejandro"
##   [2,] "Alberto"   "Cesar"    
##   [3,] "Alberto"   "Juan"     
##   [4,] "Alberto"   "Julio"    
##   [5,] "Alberto"   "Laura"    
##   [6,] "Alberto"   "Lucy"     
##   [7,] "Alberto"   "Luis"     
##   [8,] "Alberto"   "Omar"     
##   [9,] "Alberto"   "Oscar"    
##  [10,] "Alberto"   "Paco"     
##  [11,] "Alberto"   "Paty"     
##  [12,] "Alberto"   "Rubén"    
##  [13,] "Alberto"   "Yesica"   
##  [14,] "Alejandro" "Alberto"  
##  [15,] "Alejandro" "Cesar"    
##  [16,] "Alejandro" "Juan"     
##  [17,] "Alejandro" "Julio"    
##  [18,] "Alejandro" "Laura"    
##  [19,] "Alejandro" "Lucy"     
##  [20,] "Alejandro" "Luis"     
##  [21,] "Alejandro" "Omar"     
##  [22,] "Alejandro" "Oscar"    
##  [23,] "Alejandro" "Paco"     
##  [24,] "Alejandro" "Paty"     
##  [25,] "Alejandro" "Rubén"    
##  [26,] "Alejandro" "Yesica"   
##  [27,] "Cesar"     "Alberto"  
##  [28,] "Cesar"     "Alejandro"
##  [29,] "Cesar"     "Juan"     
##  [30,] "Cesar"     "Julio"    
##  [31,] "Cesar"     "Laura"    
##  [32,] "Cesar"     "Lucy"     
##  [33,] "Cesar"     "Luis"     
##  [34,] "Cesar"     "Omar"     
##  [35,] "Cesar"     "Oscar"    
##  [36,] "Cesar"     "Paco"     
##  [37,] "Cesar"     "Paty"     
##  [38,] "Cesar"     "Rubén"    
##  [39,] "Cesar"     "Yesica"   
##  [40,] "Juan"      "Alberto"  
##  [41,] "Juan"      "Alejandro"
##  [42,] "Juan"      "Cesar"    
##  [43,] "Juan"      "Julio"    
##  [44,] "Juan"      "Laura"    
##  [45,] "Juan"      "Lucy"     
##  [46,] "Juan"      "Luis"     
##  [47,] "Juan"      "Omar"     
##  [48,] "Juan"      "Oscar"    
##  [49,] "Juan"      "Paco"     
##  [50,] "Juan"      "Paty"     
##  [51,] "Juan"      "Rubén"    
##  [52,] "Juan"      "Yesica"   
##  [53,] "Julio"     "Alberto"  
##  [54,] "Julio"     "Alejandro"
##  [55,] "Julio"     "Cesar"    
##  [56,] "Julio"     "Juan"     
##  [57,] "Julio"     "Laura"    
##  [58,] "Julio"     "Lucy"     
##  [59,] "Julio"     "Luis"     
##  [60,] "Julio"     "Omar"     
##  [61,] "Julio"     "Oscar"    
##  [62,] "Julio"     "Paco"     
##  [63,] "Julio"     "Paty"     
##  [64,] "Julio"     "Rubén"    
##  [65,] "Julio"     "Yesica"   
##  [66,] "Laura"     "Alberto"  
##  [67,] "Laura"     "Alejandro"
##  [68,] "Laura"     "Cesar"    
##  [69,] "Laura"     "Juan"     
##  [70,] "Laura"     "Julio"    
##  [71,] "Laura"     "Lucy"     
##  [72,] "Laura"     "Luis"     
##  [73,] "Laura"     "Omar"     
##  [74,] "Laura"     "Oscar"    
##  [75,] "Laura"     "Paco"     
##  [76,] "Laura"     "Paty"     
##  [77,] "Laura"     "Rubén"    
##  [78,] "Laura"     "Yesica"   
##  [79,] "Lucy"      "Alberto"  
##  [80,] "Lucy"      "Alejandro"
##  [81,] "Lucy"      "Cesar"    
##  [82,] "Lucy"      "Juan"     
##  [83,] "Lucy"      "Julio"    
##  [84,] "Lucy"      "Laura"    
##  [85,] "Lucy"      "Luis"     
##  [86,] "Lucy"      "Omar"     
##  [87,] "Lucy"      "Oscar"    
##  [88,] "Lucy"      "Paco"     
##  [89,] "Lucy"      "Paty"     
##  [90,] "Lucy"      "Rubén"    
##  [91,] "Lucy"      "Yesica"   
##  [92,] "Luis"      "Alberto"  
##  [93,] "Luis"      "Alejandro"
##  [94,] "Luis"      "Cesar"    
##  [95,] "Luis"      "Juan"     
##  [96,] "Luis"      "Julio"    
##  [97,] "Luis"      "Laura"    
##  [98,] "Luis"      "Lucy"     
##  [99,] "Luis"      "Omar"     
## [100,] "Luis"      "Oscar"    
## [101,] "Luis"      "Paco"     
## [102,] "Luis"      "Paty"     
## [103,] "Luis"      "Rubén"    
## [104,] "Luis"      "Yesica"   
## [105,] "Omar"      "Alberto"  
## [106,] "Omar"      "Alejandro"
## [107,] "Omar"      "Cesar"    
## [108,] "Omar"      "Juan"     
## [109,] "Omar"      "Julio"    
## [110,] "Omar"      "Laura"    
## [111,] "Omar"      "Lucy"     
## [112,] "Omar"      "Luis"     
## [113,] "Omar"      "Oscar"    
## [114,] "Omar"      "Paco"     
## [115,] "Omar"      "Paty"     
## [116,] "Omar"      "Rubén"    
## [117,] "Omar"      "Yesica"   
## [118,] "Oscar"     "Alberto"  
## [119,] "Oscar"     "Alejandro"
## [120,] "Oscar"     "Cesar"    
## [121,] "Oscar"     "Juan"     
## [122,] "Oscar"     "Julio"    
## [123,] "Oscar"     "Laura"    
## [124,] "Oscar"     "Lucy"     
## [125,] "Oscar"     "Luis"     
## [126,] "Oscar"     "Omar"     
## [127,] "Oscar"     "Paco"     
## [128,] "Oscar"     "Paty"     
## [129,] "Oscar"     "Rubén"    
## [130,] "Oscar"     "Yesica"   
## [131,] "Paco"      "Alberto"  
## [132,] "Paco"      "Alejandro"
## [133,] "Paco"      "Cesar"    
## [134,] "Paco"      "Juan"     
## [135,] "Paco"      "Julio"    
## [136,] "Paco"      "Laura"    
## [137,] "Paco"      "Lucy"     
## [138,] "Paco"      "Luis"     
## [139,] "Paco"      "Omar"     
## [140,] "Paco"      "Oscar"    
## [141,] "Paco"      "Paty"     
## [142,] "Paco"      "Rubén"    
## [143,] "Paco"      "Yesica"   
## [144,] "Paty"      "Alberto"  
## [145,] "Paty"      "Alejandro"
## [146,] "Paty"      "Cesar"    
## [147,] "Paty"      "Juan"     
## [148,] "Paty"      "Julio"    
## [149,] "Paty"      "Laura"    
## [150,] "Paty"      "Lucy"     
## [151,] "Paty"      "Luis"     
## [152,] "Paty"      "Omar"     
## [153,] "Paty"      "Oscar"    
## [154,] "Paty"      "Paco"     
## [155,] "Paty"      "Rubén"    
## [156,] "Paty"      "Yesica"   
## [157,] "Rubén"     "Alberto"  
## [158,] "Rubén"     "Alejandro"
## [159,] "Rubén"     "Cesar"    
## [160,] "Rubén"     "Juan"     
## [161,] "Rubén"     "Julio"    
## [162,] "Rubén"     "Laura"    
## [163,] "Rubén"     "Lucy"     
## [164,] "Rubén"     "Luis"     
## [165,] "Rubén"     "Omar"     
## [166,] "Rubén"     "Oscar"    
## [167,] "Rubén"     "Paco"     
## [168,] "Rubén"     "Paty"     
## [169,] "Rubén"     "Yesica"   
## [170,] "Yesica"    "Alberto"  
## [171,] "Yesica"    "Alejandro"
## [172,] "Yesica"    "Cesar"    
## [173,] "Yesica"    "Juan"     
## [174,] "Yesica"    "Julio"    
## [175,] "Yesica"    "Laura"    
## [176,] "Yesica"    "Lucy"     
## [177,] "Yesica"    "Luis"     
## [178,] "Yesica"    "Omar"     
## [179,] "Yesica"    "Oscar"    
## [180,] "Yesica"    "Paco"     
## [181,] "Yesica"    "Paty"     
## [182,] "Yesica"    "Rubén"

Nombres de empresas.

Se muestran las posibles combinaciones de los nombres de equipos de fútbol.

empresas

## [1] "Google"    "Facebook"  "Amazon"    "Microsoft" "Apple"     "BBVA"     
## [7] "Coppel"    "Coca-Cola" "Liverpool"

Pern.empresas <- permutations(n = length(empresas), r = 5, v = empresas)

Se muestran solo los primeras diez y últimas diez permutaciones de equipos

head(Pern.empresas)

##      [,1]     [,2]    [,3]   [,4]        [,5]       
## [1,] "Amazon" "Apple" "BBVA" "Coca-Cola" "Coppel"   
## [2,] "Amazon" "Apple" "BBVA" "Coca-Cola" "Facebook" 
## [3,] "Amazon" "Apple" "BBVA" "Coca-Cola" "Google"   
## [4,] "Amazon" "Apple" "BBVA" "Coca-Cola" "Liverpool"
## [5,] "Amazon" "Apple" "BBVA" "Coca-Cola" "Microsoft"
## [6,] "Amazon" "Apple" "BBVA" "Coppel"    "Coca-Cola"

tail(Pern.empresas)

##          [,1]        [,2]        [,3]     [,4]       [,5]       
## [15115,] "Microsoft" "Liverpool" "Google" "Coppel"   "Facebook" 
## [15116,] "Microsoft" "Liverpool" "Google" "Facebook" "Amazon"   
## [15117,] "Microsoft" "Liverpool" "Google" "Facebook" "Apple"    
## [15118,] "Microsoft" "Liverpool" "Google" "Facebook" "BBVA"     
## [15119,] "Microsoft" "Liverpool" "Google" "Facebook" "Coca-Cola"
## [15120,] "Microsoft" "Liverpool" "Google" "Facebook" "Coppel"

¿Para qué sirve encontrar el número de permutaciones y la forma en que se agrupan?

Eso sería el espacio muestral que ya construído éste, permite hacer interpretaciones en términos probabilísticos.

Interpretación

El resultado de las permutaciones permite construir un espacio muestral que ofrece la oportunidad de conocer en términos de probabilidad, la cantidad de ocasiones y lo que representa un evento conforme a todo el espacio muestral, es decir frecuencia y frecuencia porcentual.

Preguntas sobre espacio muestral nombres

¿En cuántas ocasiones aparece el nombre de Laura en permutaciones de dos en dos?. Aparece PENDIENTE(16) ocasiones. ¿En cuántas ocasiones aparece el nombre de Oscar en las combinaciones de dos en dos?, Aparece PENDIENTE(16) ocasiones.

En las permutaciones de nombres de dos en dos, ¿en cuántas ocasiones existe Laura y Oscar juntos o contiguos y en ese orden?. Se utiliza la función subset() para hacer filtros y responder a las preguntas.

La nominación [ , ] significa acceder al valor de un data frame por la primer colmna y [ ,2] la segunda columna.

filtro <- subset(Pern.nombres, Pern.nombres[,1] == "Laura" & Pern.nombres[,2] == "Oscar")
filtro

##      [,1]    [,2]   
## [1,] "Laura" "Oscar"

frecuencia <- nrow(filtro)
paste("Existen ", frecuencia, " ocasiones en que se encuentran Laura y Oscar juntos en ese orden, de un total de ", nrow(Pern.nombres), " representan ", round(frecuencia / nrow(Pern.nombres) * 100, 2), "%")

## [1] "Existen  1  ocasiones en que se encuentran Laura y Oscar juntos en ese orden, de un total de  182  representan  0.55 %"

En las permutaciones de nombres de dos en dos, ¿en cuántas ocasiones existe Oscar en la primer columna de todo el espacio muestral?

filtro <- subset(Pern.nombres, Pern.nombres[,1] == "Oscar")
filtro

##       [,1]    [,2]       
##  [1,] "Oscar" "Alberto"  
##  [2,] "Oscar" "Alejandro"
##  [3,] "Oscar" "Cesar"    
##  [4,] "Oscar" "Juan"     
##  [5,] "Oscar" "Julio"    
##  [6,] "Oscar" "Laura"    
##  [7,] "Oscar" "Lucy"     
##  [8,] "Oscar" "Luis"     
##  [9,] "Oscar" "Omar"     
## [10,] "Oscar" "Paco"     
## [11,] "Oscar" "Paty"     
## [12,] "Oscar" "Rubén"    
## [13,] "Oscar" "Yesica"

frecuencia <- nrow(filtro)
paste("Existen ", frecuencia, " ocasiones en que se encuentran Oscar en la primer columna  , de un total de ", nrow(Pern.nombres), " representan ", round(frecuencia / nrow(Pern.nombres) * 100, 2), "%")

## [1] "Existen  13  ocasiones en que se encuentran Oscar en la primer columna  , de un total de  182  representan  7.14 %"

En cuántas ocasiones aparece en primera columna Oscar y Paco o Paty en segunda columna

filtro <- subset(Pern.nombres, Pern.nombres[,1] == "Oscar" & (Pern.nombres[,2] == "Paco" | Pern.nombres[,2] == "Paty"))
filtro

##      [,1]    [,2]  
## [1,] "Oscar" "Paco"
## [2,] "Oscar" "Paty"

frecuencia <- nrow(filtro)
paste("Existen ", frecuencia, " ocasiones en que se encuentran aparece en primera columna Oscar y Paco o Paty en segunda columna, de un total de ", nrow(Pern.nombres), " representan ", round(frecuencia / nrow(Pern.nombres) * 100, 2), "%")

## [1] "Existen  2  ocasiones en que se encuentran aparece en primera columna Oscar y Paco o Paty en segunda columna, de un total de  182  representan  1.1 %"

Preguntas sobre espacio muestral empresas

En cuántas ocasiones aparece de manera contigua y en este orden los equipos de Apple y Facebook en primera y segunda columna respectivamente.

filtro <- subset(Pern.empresas, Pern.empresas[,1] == "Apple" & Pern.empresas[,2]=="Facebook")
filtro

##        [,1]    [,2]       [,3]        [,4]        [,5]       
##   [1,] "Apple" "Facebook" "Amazon"    "BBVA"      "Coca-Cola"
##   [2,] "Apple" "Facebook" "Amazon"    "BBVA"      "Coppel"   
##   [3,] "Apple" "Facebook" "Amazon"    "BBVA"      "Google"   
##   [4,] "Apple" "Facebook" "Amazon"    "BBVA"      "Liverpool"
##   [5,] "Apple" "Facebook" "Amazon"    "BBVA"      "Microsoft"
##   [6,] "Apple" "Facebook" "Amazon"    "Coca-Cola" "BBVA"     
##   [7,] "Apple" "Facebook" "Amazon"    "Coca-Cola" "Coppel"   
##   [8,] "Apple" "Facebook" "Amazon"    "Coca-Cola" "Google"   
##   [9,] "Apple" "Facebook" "Amazon"    "Coca-Cola" "Liverpool"
##  [10,] "Apple" "Facebook" "Amazon"    "Coca-Cola" "Microsoft"
##  [11,] "Apple" "Facebook" "Amazon"    "Coppel"    "BBVA"     
##  [12,] "Apple" "Facebook" "Amazon"    "Coppel"    "Coca-Cola"
##  [13,] "Apple" "Facebook" "Amazon"    "Coppel"    "Google"   
##  [14,] "Apple" "Facebook" "Amazon"    "Coppel"    "Liverpool"
##  [15,] "Apple" "Facebook" "Amazon"    "Coppel"    "Microsoft"
##  [16,] "Apple" "Facebook" "Amazon"    "Google"    "BBVA"     
##  [17,] "Apple" "Facebook" "Amazon"    "Google"    "Coca-Cola"
##  [18,] "Apple" "Facebook" "Amazon"    "Google"    "Coppel"   
##  [19,] "Apple" "Facebook" "Amazon"    "Google"    "Liverpool"
##  [20,] "Apple" "Facebook" "Amazon"    "Google"    "Microsoft"
##  [21,] "Apple" "Facebook" "Amazon"    "Liverpool" "BBVA"     
##  [22,] "Apple" "Facebook" "Amazon"    "Liverpool" "Coca-Cola"
##  [23,] "Apple" "Facebook" "Amazon"    "Liverpool" "Coppel"   
##  [24,] "Apple" "Facebook" "Amazon"    "Liverpool" "Google"   
##  [25,] "Apple" "Facebook" "Amazon"    "Liverpool" "Microsoft"
##  [26,] "Apple" "Facebook" "Amazon"    "Microsoft" "BBVA"     
##  [27,] "Apple" "Facebook" "Amazon"    "Microsoft" "Coca-Cola"
##  [28,] "Apple" "Facebook" "Amazon"    "Microsoft" "Coppel"   
##  [29,] "Apple" "Facebook" "Amazon"    "Microsoft" "Google"   
##  [30,] "Apple" "Facebook" "Amazon"    "Microsoft" "Liverpool"
##  [31,] "Apple" "Facebook" "BBVA"      "Amazon"    "Coca-Cola"
##  [32,] "Apple" "Facebook" "BBVA"      "Amazon"    "Coppel"   
##  [33,] "Apple" "Facebook" "BBVA"      "Amazon"    "Google"   
##  [34,] "Apple" "Facebook" "BBVA"      "Amazon"    "Liverpool"
##  [35,] "Apple" "Facebook" "BBVA"      "Amazon"    "Microsoft"
##  [36,] "Apple" "Facebook" "BBVA"      "Coca-Cola" "Amazon"   
##  [37,] "Apple" "Facebook" "BBVA"      "Coca-Cola" "Coppel"   
##  [38,] "Apple" "Facebook" "BBVA"      "Coca-Cola" "Google"   
##  [39,] "Apple" "Facebook" "BBVA"      "Coca-Cola" "Liverpool"
##  [40,] "Apple" "Facebook" "BBVA"      "Coca-Cola" "Microsoft"
##  [41,] "Apple" "Facebook" "BBVA"      "Coppel"    "Amazon"   
##  [42,] "Apple" "Facebook" "BBVA"      "Coppel"    "Coca-Cola"
##  [43,] "Apple" "Facebook" "BBVA"      "Coppel"    "Google"   
##  [44,] "Apple" "Facebook" "BBVA"      "Coppel"    "Liverpool"
##  [45,] "Apple" "Facebook" "BBVA"      "Coppel"    "Microsoft"
##  [46,] "Apple" "Facebook" "BBVA"      "Google"    "Amazon"   
##  [47,] "Apple" "Facebook" "BBVA"      "Google"    "Coca-Cola"
##  [48,] "Apple" "Facebook" "BBVA"      "Google"    "Coppel"   
##  [49,] "Apple" "Facebook" "BBVA"      "Google"    "Liverpool"
##  [50,] "Apple" "Facebook" "BBVA"      "Google"    "Microsoft"
##  [51,] "Apple" "Facebook" "BBVA"      "Liverpool" "Amazon"   
##  [52,] "Apple" "Facebook" "BBVA"      "Liverpool" "Coca-Cola"
##  [53,] "Apple" "Facebook" "BBVA"      "Liverpool" "Coppel"   
##  [54,] "Apple" "Facebook" "BBVA"      "Liverpool" "Google"   
##  [55,] "Apple" "Facebook" "BBVA"      "Liverpool" "Microsoft"
##  [56,] "Apple" "Facebook" "BBVA"      "Microsoft" "Amazon"   
##  [57,] "Apple" "Facebook" "BBVA"      "Microsoft" "Coca-Cola"
##  [58,] "Apple" "Facebook" "BBVA"      "Microsoft" "Coppel"   
##  [59,] "Apple" "Facebook" "BBVA"      "Microsoft" "Google"   
##  [60,] "Apple" "Facebook" "BBVA"      "Microsoft" "Liverpool"
##  [61,] "Apple" "Facebook" "Coca-Cola" "Amazon"    "BBVA"     
##  [62,] "Apple" "Facebook" "Coca-Cola" "Amazon"    "Coppel"   
##  [63,] "Apple" "Facebook" "Coca-Cola" "Amazon"    "Google"   
##  [64,] "Apple" "Facebook" "Coca-Cola" "Amazon"    "Liverpool"
##  [65,] "Apple" "Facebook" "Coca-Cola" "Amazon"    "Microsoft"
##  [66,] "Apple" "Facebook" "Coca-Cola" "BBVA"      "Amazon"   
##  [67,] "Apple" "Facebook" "Coca-Cola" "BBVA"      "Coppel"   
##  [68,] "Apple" "Facebook" "Coca-Cola" "BBVA"      "Google"   
##  [69,] "Apple" "Facebook" "Coca-Cola" "BBVA"      "Liverpool"
##  [70,] "Apple" "Facebook" "Coca-Cola" "BBVA"      "Microsoft"
##  [71,] "Apple" "Facebook" "Coca-Cola" "Coppel"    "Amazon"   
##  [72,] "Apple" "Facebook" "Coca-Cola" "Coppel"    "BBVA"     
##  [73,] "Apple" "Facebook" "Coca-Cola" "Coppel"    "Google"   
##  [74,] "Apple" "Facebook" "Coca-Cola" "Coppel"    "Liverpool"
##  [75,] "Apple" "Facebook" "Coca-Cola" "Coppel"    "Microsoft"
##  [76,] "Apple" "Facebook" "Coca-Cola" "Google"    "Amazon"   
##  [77,] "Apple" "Facebook" "Coca-Cola" "Google"    "BBVA"     
##  [78,] "Apple" "Facebook" "Coca-Cola" "Google"    "Coppel"   
##  [79,] "Apple" "Facebook" "Coca-Cola" "Google"    "Liverpool"
##  [80,] "Apple" "Facebook" "Coca-Cola" "Google"    "Microsoft"
##  [81,] "Apple" "Facebook" "Coca-Cola" "Liverpool" "Amazon"   
##  [82,] "Apple" "Facebook" "Coca-Cola" "Liverpool" "BBVA"     
##  [83,] "Apple" "Facebook" "Coca-Cola" "Liverpool" "Coppel"   
##  [84,] "Apple" "Facebook" "Coca-Cola" "Liverpool" "Google"   
##  [85,] "Apple" "Facebook" "Coca-Cola" "Liverpool" "Microsoft"
##  [86,] "Apple" "Facebook" "Coca-Cola" "Microsoft" "Amazon"   
##  [87,] "Apple" "Facebook" "Coca-Cola" "Microsoft" "BBVA"     
##  [88,] "Apple" "Facebook" "Coca-Cola" "Microsoft" "Coppel"   
##  [89,] "Apple" "Facebook" "Coca-Cola" "Microsoft" "Google"   
##  [90,] "Apple" "Facebook" "Coca-Cola" "Microsoft" "Liverpool"
##  [91,] "Apple" "Facebook" "Coppel"    "Amazon"    "BBVA"     
##  [92,] "Apple" "Facebook" "Coppel"    "Amazon"    "Coca-Cola"
##  [93,] "Apple" "Facebook" "Coppel"    "Amazon"    "Google"   
##  [94,] "Apple" "Facebook" "Coppel"    "Amazon"    "Liverpool"
##  [95,] "Apple" "Facebook" "Coppel"    "Amazon"    "Microsoft"
##  [96,] "Apple" "Facebook" "Coppel"    "BBVA"      "Amazon"   
##  [97,] "Apple" "Facebook" "Coppel"    "BBVA"      "Coca-Cola"
##  [98,] "Apple" "Facebook" "Coppel"    "BBVA"      "Google"   
##  [99,] "Apple" "Facebook" "Coppel"    "BBVA"      "Liverpool"
## [100,] "Apple" "Facebook" "Coppel"    "BBVA"      "Microsoft"
## [101,] "Apple" "Facebook" "Coppel"    "Coca-Cola" "Amazon"   
## [102,] "Apple" "Facebook" "Coppel"    "Coca-Cola" "BBVA"     
## [103,] "Apple" "Facebook" "Coppel"    "Coca-Cola" "Google"   
## [104,] "Apple" "Facebook" "Coppel"    "Coca-Cola" "Liverpool"
## [105,] "Apple" "Facebook" "Coppel"    "Coca-Cola" "Microsoft"
## [106,] "Apple" "Facebook" "Coppel"    "Google"    "Amazon"   
## [107,] "Apple" "Facebook" "Coppel"    "Google"    "BBVA"     
## [108,] "Apple" "Facebook" "Coppel"    "Google"    "Coca-Cola"
## [109,] "Apple" "Facebook" "Coppel"    "Google"    "Liverpool"
## [110,] "Apple" "Facebook" "Coppel"    "Google"    "Microsoft"
## [111,] "Apple" "Facebook" "Coppel"    "Liverpool" "Amazon"   
## [112,] "Apple" "Facebook" "Coppel"    "Liverpool" "BBVA"     
## [113,] "Apple" "Facebook" "Coppel"    "Liverpool" "Coca-Cola"
## [114,] "Apple" "Facebook" "Coppel"    "Liverpool" "Google"   
## [115,] "Apple" "Facebook" "Coppel"    "Liverpool" "Microsoft"
## [116,] "Apple" "Facebook" "Coppel"    "Microsoft" "Amazon"   
## [117,] "Apple" "Facebook" "Coppel"    "Microsoft" "BBVA"     
## [118,] "Apple" "Facebook" "Coppel"    "Microsoft" "Coca-Cola"
## [119,] "Apple" "Facebook" "Coppel"    "Microsoft" "Google"   
## [120,] "Apple" "Facebook" "Coppel"    "Microsoft" "Liverpool"
## [121,] "Apple" "Facebook" "Google"    "Amazon"    "BBVA"     
## [122,] "Apple" "Facebook" "Google"    "Amazon"    "Coca-Cola"
## [123,] "Apple" "Facebook" "Google"    "Amazon"    "Coppel"   
## [124,] "Apple" "Facebook" "Google"    "Amazon"    "Liverpool"
## [125,] "Apple" "Facebook" "Google"    "Amazon"    "Microsoft"
## [126,] "Apple" "Facebook" "Google"    "BBVA"      "Amazon"   
## [127,] "Apple" "Facebook" "Google"    "BBVA"      "Coca-Cola"
## [128,] "Apple" "Facebook" "Google"    "BBVA"      "Coppel"   
## [129,] "Apple" "Facebook" "Google"    "BBVA"      "Liverpool"
## [130,] "Apple" "Facebook" "Google"    "BBVA"      "Microsoft"
## [131,] "Apple" "Facebook" "Google"    "Coca-Cola" "Amazon"   
## [132,] "Apple" "Facebook" "Google"    "Coca-Cola" "BBVA"     
## [133,] "Apple" "Facebook" "Google"    "Coca-Cola" "Coppel"   
## [134,] "Apple" "Facebook" "Google"    "Coca-Cola" "Liverpool"
## [135,] "Apple" "Facebook" "Google"    "Coca-Cola" "Microsoft"
## [136,] "Apple" "Facebook" "Google"    "Coppel"    "Amazon"   
## [137,] "Apple" "Facebook" "Google"    "Coppel"    "BBVA"     
## [138,] "Apple" "Facebook" "Google"    "Coppel"    "Coca-Cola"
## [139,] "Apple" "Facebook" "Google"    "Coppel"    "Liverpool"
## [140,] "Apple" "Facebook" "Google"    "Coppel"    "Microsoft"
## [141,] "Apple" "Facebook" "Google"    "Liverpool" "Amazon"   
## [142,] "Apple" "Facebook" "Google"    "Liverpool" "BBVA"     
## [143,] "Apple" "Facebook" "Google"    "Liverpool" "Coca-Cola"
## [144,] "Apple" "Facebook" "Google"    "Liverpool" "Coppel"   
## [145,] "Apple" "Facebook" "Google"    "Liverpool" "Microsoft"
## [146,] "Apple" "Facebook" "Google"    "Microsoft" "Amazon"   
## [147,] "Apple" "Facebook" "Google"    "Microsoft" "BBVA"     
## [148,] "Apple" "Facebook" "Google"    "Microsoft" "Coca-Cola"
## [149,] "Apple" "Facebook" "Google"    "Microsoft" "Coppel"   
## [150,] "Apple" "Facebook" "Google"    "Microsoft" "Liverpool"
## [151,] "Apple" "Facebook" "Liverpool" "Amazon"    "BBVA"     
## [152,] "Apple" "Facebook" "Liverpool" "Amazon"    "Coca-Cola"
## [153,] "Apple" "Facebook" "Liverpool" "Amazon"    "Coppel"   
## [154,] "Apple" "Facebook" "Liverpool" "Amazon"    "Google"   
## [155,] "Apple" "Facebook" "Liverpool" "Amazon"    "Microsoft"
## [156,] "Apple" "Facebook" "Liverpool" "BBVA"      "Amazon"   
## [157,] "Apple" "Facebook" "Liverpool" "BBVA"      "Coca-Cola"
## [158,] "Apple" "Facebook" "Liverpool" "BBVA"      "Coppel"   
## [159,] "Apple" "Facebook" "Liverpool" "BBVA"      "Google"   
## [160,] "Apple" "Facebook" "Liverpool" "BBVA"      "Microsoft"
## [161,] "Apple" "Facebook" "Liverpool" "Coca-Cola" "Amazon"   
## [162,] "Apple" "Facebook" "Liverpool" "Coca-Cola" "BBVA"     
## [163,] "Apple" "Facebook" "Liverpool" "Coca-Cola" "Coppel"   
## [164,] "Apple" "Facebook" "Liverpool" "Coca-Cola" "Google"   
## [165,] "Apple" "Facebook" "Liverpool" "Coca-Cola" "Microsoft"
## [166,] "Apple" "Facebook" "Liverpool" "Coppel"    "Amazon"   
## [167,] "Apple" "Facebook" "Liverpool" "Coppel"    "BBVA"     
## [168,] "Apple" "Facebook" "Liverpool" "Coppel"    "Coca-Cola"
## [169,] "Apple" "Facebook" "Liverpool" "Coppel"    "Google"   
## [170,] "Apple" "Facebook" "Liverpool" "Coppel"    "Microsoft"
## [171,] "Apple" "Facebook" "Liverpool" "Google"    "Amazon"   
## [172,] "Apple" "Facebook" "Liverpool" "Google"    "BBVA"     
## [173,] "Apple" "Facebook" "Liverpool" "Google"    "Coca-Cola"
## [174,] "Apple" "Facebook" "Liverpool" "Google"    "Coppel"   
## [175,] "Apple" "Facebook" "Liverpool" "Google"    "Microsoft"
## [176,] "Apple" "Facebook" "Liverpool" "Microsoft" "Amazon"   
## [177,] "Apple" "Facebook" "Liverpool" "Microsoft" "BBVA"     
## [178,] "Apple" "Facebook" "Liverpool" "Microsoft" "Coca-Cola"
## [179,] "Apple" "Facebook" "Liverpool" "Microsoft" "Coppel"   
## [180,] "Apple" "Facebook" "Liverpool" "Microsoft" "Google"   
## [181,] "Apple" "Facebook" "Microsoft" "Amazon"    "BBVA"     
## [182,] "Apple" "Facebook" "Microsoft" "Amazon"    "Coca-Cola"
## [183,] "Apple" "Facebook" "Microsoft" "Amazon"    "Coppel"   
## [184,] "Apple" "Facebook" "Microsoft" "Amazon"    "Google"   
## [185,] "Apple" "Facebook" "Microsoft" "Amazon"    "Liverpool"
## [186,] "Apple" "Facebook" "Microsoft" "BBVA"      "Amazon"   
## [187,] "Apple" "Facebook" "Microsoft" "BBVA"      "Coca-Cola"
## [188,] "Apple" "Facebook" "Microsoft" "BBVA"      "Coppel"   
## [189,] "Apple" "Facebook" "Microsoft" "BBVA"      "Google"   
## [190,] "Apple" "Facebook" "Microsoft" "BBVA"      "Liverpool"
## [191,] "Apple" "Facebook" "Microsoft" "Coca-Cola" "Amazon"   
## [192,] "Apple" "Facebook" "Microsoft" "Coca-Cola" "BBVA"     
## [193,] "Apple" "Facebook" "Microsoft" "Coca-Cola" "Coppel"   
## [194,] "Apple" "Facebook" "Microsoft" "Coca-Cola" "Google"   
## [195,] "Apple" "Facebook" "Microsoft" "Coca-Cola" "Liverpool"
## [196,] "Apple" "Facebook" "Microsoft" "Coppel"    "Amazon"   
## [197,] "Apple" "Facebook" "Microsoft" "Coppel"    "BBVA"     
## [198,] "Apple" "Facebook" "Microsoft" "Coppel"    "Coca-Cola"
## [199,] "Apple" "Facebook" "Microsoft" "Coppel"    "Google"   
## [200,] "Apple" "Facebook" "Microsoft" "Coppel"    "Liverpool"
## [201,] "Apple" "Facebook" "Microsoft" "Google"    "Amazon"   
## [202,] "Apple" "Facebook" "Microsoft" "Google"    "BBVA"     
## [203,] "Apple" "Facebook" "Microsoft" "Google"    "Coca-Cola"
## [204,] "Apple" "Facebook" "Microsoft" "Google"    "Coppel"   
## [205,] "Apple" "Facebook" "Microsoft" "Google"    "Liverpool"
## [206,] "Apple" "Facebook" "Microsoft" "Liverpool" "Amazon"   
## [207,] "Apple" "Facebook" "Microsoft" "Liverpool" "BBVA"     
## [208,] "Apple" "Facebook" "Microsoft" "Liverpool" "Coca-Cola"
## [209,] "Apple" "Facebook" "Microsoft" "Liverpool" "Coppel"   
## [210,] "Apple" "Facebook" "Microsoft" "Liverpool" "Google"

En cuántas ocasiones aparece de manera contigua y en este orden los equipos de Google y Microsoft en primera y segunda columna respectivamente.

filtro <- subset(Pern.empresas, Pern.empresas[,1] == "Google" & Pern.empresas[,2]=="Facebook")
filtro

##        [,1]     [,2]       [,3]        [,4]        [,5]       
##   [1,] "Google" "Facebook" "Amazon"    "Apple"     "BBVA"     
##   [2,] "Google" "Facebook" "Amazon"    "Apple"     "Coca-Cola"
##   [3,] "Google" "Facebook" "Amazon"    "Apple"     "Coppel"   
##   [4,] "Google" "Facebook" "Amazon"    "Apple"     "Liverpool"
##   [5,] "Google" "Facebook" "Amazon"    "Apple"     "Microsoft"
##   [6,] "Google" "Facebook" "Amazon"    "BBVA"      "Apple"    
##   [7,] "Google" "Facebook" "Amazon"    "BBVA"      "Coca-Cola"
##   [8,] "Google" "Facebook" "Amazon"    "BBVA"      "Coppel"   
##   [9,] "Google" "Facebook" "Amazon"    "BBVA"      "Liverpool"
##  [10,] "Google" "Facebook" "Amazon"    "BBVA"      "Microsoft"
##  [11,] "Google" "Facebook" "Amazon"    "Coca-Cola" "Apple"    
##  [12,] "Google" "Facebook" "Amazon"    "Coca-Cola" "BBVA"     
##  [13,] "Google" "Facebook" "Amazon"    "Coca-Cola" "Coppel"   
##  [14,] "Google" "Facebook" "Amazon"    "Coca-Cola" "Liverpool"
##  [15,] "Google" "Facebook" "Amazon"    "Coca-Cola" "Microsoft"
##  [16,] "Google" "Facebook" "Amazon"    "Coppel"    "Apple"    
##  [17,] "Google" "Facebook" "Amazon"    "Coppel"    "BBVA"     
##  [18,] "Google" "Facebook" "Amazon"    "Coppel"    "Coca-Cola"
##  [19,] "Google" "Facebook" "Amazon"    "Coppel"    "Liverpool"
##  [20,] "Google" "Facebook" "Amazon"    "Coppel"    "Microsoft"
##  [21,] "Google" "Facebook" "Amazon"    "Liverpool" "Apple"    
##  [22,] "Google" "Facebook" "Amazon"    "Liverpool" "BBVA"     
##  [23,] "Google" "Facebook" "Amazon"    "Liverpool" "Coca-Cola"
##  [24,] "Google" "Facebook" "Amazon"    "Liverpool" "Coppel"   
##  [25,] "Google" "Facebook" "Amazon"    "Liverpool" "Microsoft"
##  [26,] "Google" "Facebook" "Amazon"    "Microsoft" "Apple"    
##  [27,] "Google" "Facebook" "Amazon"    "Microsoft" "BBVA"     
##  [28,] "Google" "Facebook" "Amazon"    "Microsoft" "Coca-Cola"
##  [29,] "Google" "Facebook" "Amazon"    "Microsoft" "Coppel"   
##  [30,] "Google" "Facebook" "Amazon"    "Microsoft" "Liverpool"
##  [31,] "Google" "Facebook" "Apple"     "Amazon"    "BBVA"     
##  [32,] "Google" "Facebook" "Apple"     "Amazon"    "Coca-Cola"
##  [33,] "Google" "Facebook" "Apple"     "Amazon"    "Coppel"   
##  [34,] "Google" "Facebook" "Apple"     "Amazon"    "Liverpool"
##  [35,] "Google" "Facebook" "Apple"     "Amazon"    "Microsoft"
##  [36,] "Google" "Facebook" "Apple"     "BBVA"      "Amazon"   
##  [37,] "Google" "Facebook" "Apple"     "BBVA"      "Coca-Cola"
##  [38,] "Google" "Facebook" "Apple"     "BBVA"      "Coppel"   
##  [39,] "Google" "Facebook" "Apple"     "BBVA"      "Liverpool"
##  [40,] "Google" "Facebook" "Apple"     "BBVA"      "Microsoft"
##  [41,] "Google" "Facebook" "Apple"     "Coca-Cola" "Amazon"   
##  [42,] "Google" "Facebook" "Apple"     "Coca-Cola" "BBVA"     
##  [43,] "Google" "Facebook" "Apple"     "Coca-Cola" "Coppel"   
##  [44,] "Google" "Facebook" "Apple"     "Coca-Cola" "Liverpool"
##  [45,] "Google" "Facebook" "Apple"     "Coca-Cola" "Microsoft"
##  [46,] "Google" "Facebook" "Apple"     "Coppel"    "Amazon"   
##  [47,] "Google" "Facebook" "Apple"     "Coppel"    "BBVA"     
##  [48,] "Google" "Facebook" "Apple"     "Coppel"    "Coca-Cola"
##  [49,] "Google" "Facebook" "Apple"     "Coppel"    "Liverpool"
##  [50,] "Google" "Facebook" "Apple"     "Coppel"    "Microsoft"
##  [51,] "Google" "Facebook" "Apple"     "Liverpool" "Amazon"   
##  [52,] "Google" "Facebook" "Apple"     "Liverpool" "BBVA"     
##  [53,] "Google" "Facebook" "Apple"     "Liverpool" "Coca-Cola"
##  [54,] "Google" "Facebook" "Apple"     "Liverpool" "Coppel"   
##  [55,] "Google" "Facebook" "Apple"     "Liverpool" "Microsoft"
##  [56,] "Google" "Facebook" "Apple"     "Microsoft" "Amazon"   
##  [57,] "Google" "Facebook" "Apple"     "Microsoft" "BBVA"     
##  [58,] "Google" "Facebook" "Apple"     "Microsoft" "Coca-Cola"
##  [59,] "Google" "Facebook" "Apple"     "Microsoft" "Coppel"   
##  [60,] "Google" "Facebook" "Apple"     "Microsoft" "Liverpool"
##  [61,] "Google" "Facebook" "BBVA"      "Amazon"    "Apple"    
##  [62,] "Google" "Facebook" "BBVA"      "Amazon"    "Coca-Cola"
##  [63,] "Google" "Facebook" "BBVA"      "Amazon"    "Coppel"   
##  [64,] "Google" "Facebook" "BBVA"      "Amazon"    "Liverpool"
##  [65,] "Google" "Facebook" "BBVA"      "Amazon"    "Microsoft"
##  [66,] "Google" "Facebook" "BBVA"      "Apple"     "Amazon"   
##  [67,] "Google" "Facebook" "BBVA"      "Apple"     "Coca-Cola"
##  [68,] "Google" "Facebook" "BBVA"      "Apple"     "Coppel"   
##  [69,] "Google" "Facebook" "BBVA"      "Apple"     "Liverpool"
##  [70,] "Google" "Facebook" "BBVA"      "Apple"     "Microsoft"
##  [71,] "Google" "Facebook" "BBVA"      "Coca-Cola" "Amazon"   
##  [72,] "Google" "Facebook" "BBVA"      "Coca-Cola" "Apple"    
##  [73,] "Google" "Facebook" "BBVA"      "Coca-Cola" "Coppel"   
##  [74,] "Google" "Facebook" "BBVA"      "Coca-Cola" "Liverpool"
##  [75,] "Google" "Facebook" "BBVA"      "Coca-Cola" "Microsoft"
##  [76,] "Google" "Facebook" "BBVA"      "Coppel"    "Amazon"   
##  [77,] "Google" "Facebook" "BBVA"      "Coppel"    "Apple"    
##  [78,] "Google" "Facebook" "BBVA"      "Coppel"    "Coca-Cola"
##  [79,] "Google" "Facebook" "BBVA"      "Coppel"    "Liverpool"
##  [80,] "Google" "Facebook" "BBVA"      "Coppel"    "Microsoft"
##  [81,] "Google" "Facebook" "BBVA"      "Liverpool" "Amazon"   
##  [82,] "Google" "Facebook" "BBVA"      "Liverpool" "Apple"    
##  [83,] "Google" "Facebook" "BBVA"      "Liverpool" "Coca-Cola"
##  [84,] "Google" "Facebook" "BBVA"      "Liverpool" "Coppel"   
##  [85,] "Google" "Facebook" "BBVA"      "Liverpool" "Microsoft"
##  [86,] "Google" "Facebook" "BBVA"      "Microsoft" "Amazon"   
##  [87,] "Google" "Facebook" "BBVA"      "Microsoft" "Apple"    
##  [88,] "Google" "Facebook" "BBVA"      "Microsoft" "Coca-Cola"
##  [89,] "Google" "Facebook" "BBVA"      "Microsoft" "Coppel"   
##  [90,] "Google" "Facebook" "BBVA"      "Microsoft" "Liverpool"
##  [91,] "Google" "Facebook" "Coca-Cola" "Amazon"    "Apple"    
##  [92,] "Google" "Facebook" "Coca-Cola" "Amazon"    "BBVA"     
##  [93,] "Google" "Facebook" "Coca-Cola" "Amazon"    "Coppel"   
##  [94,] "Google" "Facebook" "Coca-Cola" "Amazon"    "Liverpool"
##  [95,] "Google" "Facebook" "Coca-Cola" "Amazon"    "Microsoft"
##  [96,] "Google" "Facebook" "Coca-Cola" "Apple"     "Amazon"   
##  [97,] "Google" "Facebook" "Coca-Cola" "Apple"     "BBVA"     
##  [98,] "Google" "Facebook" "Coca-Cola" "Apple"     "Coppel"   
##  [99,] "Google" "Facebook" "Coca-Cola" "Apple"     "Liverpool"
## [100,] "Google" "Facebook" "Coca-Cola" "Apple"     "Microsoft"
## [101,] "Google" "Facebook" "Coca-Cola" "BBVA"      "Amazon"   
## [102,] "Google" "Facebook" "Coca-Cola" "BBVA"      "Apple"    
## [103,] "Google" "Facebook" "Coca-Cola" "BBVA"      "Coppel"   
## [104,] "Google" "Facebook" "Coca-Cola" "BBVA"      "Liverpool"
## [105,] "Google" "Facebook" "Coca-Cola" "BBVA"      "Microsoft"
## [106,] "Google" "Facebook" "Coca-Cola" "Coppel"    "Amazon"   
## [107,] "Google" "Facebook" "Coca-Cola" "Coppel"    "Apple"    
## [108,] "Google" "Facebook" "Coca-Cola" "Coppel"    "BBVA"     
## [109,] "Google" "Facebook" "Coca-Cola" "Coppel"    "Liverpool"
## [110,] "Google" "Facebook" "Coca-Cola" "Coppel"    "Microsoft"
## [111,] "Google" "Facebook" "Coca-Cola" "Liverpool" "Amazon"   
## [112,] "Google" "Facebook" "Coca-Cola" "Liverpool" "Apple"    
## [113,] "Google" "Facebook" "Coca-Cola" "Liverpool" "BBVA"     
## [114,] "Google" "Facebook" "Coca-Cola" "Liverpool" "Coppel"   
## [115,] "Google" "Facebook" "Coca-Cola" "Liverpool" "Microsoft"
## [116,] "Google" "Facebook" "Coca-Cola" "Microsoft" "Amazon"   
## [117,] "Google" "Facebook" "Coca-Cola" "Microsoft" "Apple"    
## [118,] "Google" "Facebook" "Coca-Cola" "Microsoft" "BBVA"     
## [119,] "Google" "Facebook" "Coca-Cola" "Microsoft" "Coppel"   
## [120,] "Google" "Facebook" "Coca-Cola" "Microsoft" "Liverpool"
## [121,] "Google" "Facebook" "Coppel"    "Amazon"    "Apple"    
## [122,] "Google" "Facebook" "Coppel"    "Amazon"    "BBVA"     
## [123,] "Google" "Facebook" "Coppel"    "Amazon"    "Coca-Cola"
## [124,] "Google" "Facebook" "Coppel"    "Amazon"    "Liverpool"
## [125,] "Google" "Facebook" "Coppel"    "Amazon"    "Microsoft"
## [126,] "Google" "Facebook" "Coppel"    "Apple"     "Amazon"   
## [127,] "Google" "Facebook" "Coppel"    "Apple"     "BBVA"     
## [128,] "Google" "Facebook" "Coppel"    "Apple"     "Coca-Cola"
## [129,] "Google" "Facebook" "Coppel"    "Apple"     "Liverpool"
## [130,] "Google" "Facebook" "Coppel"    "Apple"     "Microsoft"
## [131,] "Google" "Facebook" "Coppel"    "BBVA"      "Amazon"   
## [132,] "Google" "Facebook" "Coppel"    "BBVA"      "Apple"    
## [133,] "Google" "Facebook" "Coppel"    "BBVA"      "Coca-Cola"
## [134,] "Google" "Facebook" "Coppel"    "BBVA"      "Liverpool"
## [135,] "Google" "Facebook" "Coppel"    "BBVA"      "Microsoft"
## [136,] "Google" "Facebook" "Coppel"    "Coca-Cola" "Amazon"   
## [137,] "Google" "Facebook" "Coppel"    "Coca-Cola" "Apple"    
## [138,] "Google" "Facebook" "Coppel"    "Coca-Cola" "BBVA"     
## [139,] "Google" "Facebook" "Coppel"    "Coca-Cola" "Liverpool"
## [140,] "Google" "Facebook" "Coppel"    "Coca-Cola" "Microsoft"
## [141,] "Google" "Facebook" "Coppel"    "Liverpool" "Amazon"   
## [142,] "Google" "Facebook" "Coppel"    "Liverpool" "Apple"    
## [143,] "Google" "Facebook" "Coppel"    "Liverpool" "BBVA"     
## [144,] "Google" "Facebook" "Coppel"    "Liverpool" "Coca-Cola"
## [145,] "Google" "Facebook" "Coppel"    "Liverpool" "Microsoft"
## [146,] "Google" "Facebook" "Coppel"    "Microsoft" "Amazon"   
## [147,] "Google" "Facebook" "Coppel"    "Microsoft" "Apple"    
## [148,] "Google" "Facebook" "Coppel"    "Microsoft" "BBVA"     
## [149,] "Google" "Facebook" "Coppel"    "Microsoft" "Coca-Cola"
## [150,] "Google" "Facebook" "Coppel"    "Microsoft" "Liverpool"
## [151,] "Google" "Facebook" "Liverpool" "Amazon"    "Apple"    
## [152,] "Google" "Facebook" "Liverpool" "Amazon"    "BBVA"     
## [153,] "Google" "Facebook" "Liverpool" "Amazon"    "Coca-Cola"
## [154,] "Google" "Facebook" "Liverpool" "Amazon"    "Coppel"   
## [155,] "Google" "Facebook" "Liverpool" "Amazon"    "Microsoft"
## [156,] "Google" "Facebook" "Liverpool" "Apple"     "Amazon"   
## [157,] "Google" "Facebook" "Liverpool" "Apple"     "BBVA"     
## [158,] "Google" "Facebook" "Liverpool" "Apple"     "Coca-Cola"
## [159,] "Google" "Facebook" "Liverpool" "Apple"     "Coppel"   
## [160,] "Google" "Facebook" "Liverpool" "Apple"     "Microsoft"
## [161,] "Google" "Facebook" "Liverpool" "BBVA"      "Amazon"   
## [162,] "Google" "Facebook" "Liverpool" "BBVA"      "Apple"    
## [163,] "Google" "Facebook" "Liverpool" "BBVA"      "Coca-Cola"
## [164,] "Google" "Facebook" "Liverpool" "BBVA"      "Coppel"   
## [165,] "Google" "Facebook" "Liverpool" "BBVA"      "Microsoft"
## [166,] "Google" "Facebook" "Liverpool" "Coca-Cola" "Amazon"   
## [167,] "Google" "Facebook" "Liverpool" "Coca-Cola" "Apple"    
## [168,] "Google" "Facebook" "Liverpool" "Coca-Cola" "BBVA"     
## [169,] "Google" "Facebook" "Liverpool" "Coca-Cola" "Coppel"   
## [170,] "Google" "Facebook" "Liverpool" "Coca-Cola" "Microsoft"
## [171,] "Google" "Facebook" "Liverpool" "Coppel"    "Amazon"   
## [172,] "Google" "Facebook" "Liverpool" "Coppel"    "Apple"    
## [173,] "Google" "Facebook" "Liverpool" "Coppel"    "BBVA"     
## [174,] "Google" "Facebook" "Liverpool" "Coppel"    "Coca-Cola"
## [175,] "Google" "Facebook" "Liverpool" "Coppel"    "Microsoft"
## [176,] "Google" "Facebook" "Liverpool" "Microsoft" "Amazon"   
## [177,] "Google" "Facebook" "Liverpool" "Microsoft" "Apple"    
## [178,] "Google" "Facebook" "Liverpool" "Microsoft" "BBVA"     
## [179,] "Google" "Facebook" "Liverpool" "Microsoft" "Coca-Cola"
## [180,] "Google" "Facebook" "Liverpool" "Microsoft" "Coppel"   
## [181,] "Google" "Facebook" "Microsoft" "Amazon"    "Apple"    
## [182,] "Google" "Facebook" "Microsoft" "Amazon"    "BBVA"     
## [183,] "Google" "Facebook" "Microsoft" "Amazon"    "Coca-Cola"
## [184,] "Google" "Facebook" "Microsoft" "Amazon"    "Coppel"   
## [185,] "Google" "Facebook" "Microsoft" "Amazon"    "Liverpool"
## [186,] "Google" "Facebook" "Microsoft" "Apple"     "Amazon"   
## [187,] "Google" "Facebook" "Microsoft" "Apple"     "BBVA"     
## [188,] "Google" "Facebook" "Microsoft" "Apple"     "Coca-Cola"
## [189,] "Google" "Facebook" "Microsoft" "Apple"     "Coppel"   
## [190,] "Google" "Facebook" "Microsoft" "Apple"     "Liverpool"
## [191,] "Google" "Facebook" "Microsoft" "BBVA"      "Amazon"   
## [192,] "Google" "Facebook" "Microsoft" "BBVA"      "Apple"    
## [193,] "Google" "Facebook" "Microsoft" "BBVA"      "Coca-Cola"
## [194,] "Google" "Facebook" "Microsoft" "BBVA"      "Coppel"   
## [195,] "Google" "Facebook" "Microsoft" "BBVA"      "Liverpool"
## [196,] "Google" "Facebook" "Microsoft" "Coca-Cola" "Amazon"   
## [197,] "Google" "Facebook" "Microsoft" "Coca-Cola" "Apple"    
## [198,] "Google" "Facebook" "Microsoft" "Coca-Cola" "BBVA"     
## [199,] "Google" "Facebook" "Microsoft" "Coca-Cola" "Coppel"   
## [200,] "Google" "Facebook" "Microsoft" "Coca-Cola" "Liverpool"
## [201,] "Google" "Facebook" "Microsoft" "Coppel"    "Amazon"   
## [202,] "Google" "Facebook" "Microsoft" "Coppel"    "Apple"    
## [203,] "Google" "Facebook" "Microsoft" "Coppel"    "BBVA"     
## [204,] "Google" "Facebook" "Microsoft" "Coppel"    "Coca-Cola"
## [205,] "Google" "Facebook" "Microsoft" "Coppel"    "Liverpool"
## [206,] "Google" "Facebook" "Microsoft" "Liverpool" "Amazon"   
## [207,] "Google" "Facebook" "Microsoft" "Liverpool" "Apple"    
## [208,] "Google" "Facebook" "Microsoft" "Liverpool" "BBVA"     
## [209,] "Google" "Facebook" "Microsoft" "Liverpool" "Coca-Cola"
## [210,] "Google" "Facebook" "Microsoft" "Liverpool" "Coppel"

¿En cuántas ocasiones aparece de manera contigua y en este orden los equipos de Guadalajara y Mazatlán en cualquier columna uno y dos, dos y tres, tres y cuatro o cuatro y cinco?

filtro <- subset(Pern.empresas, (Pern.empresas[,1] == "Microsoft" & Pern.empresas[,2] == "Facebook") 
                 | (Pern.empresas[,2] == "Microsoft" & Pern.empresas[,3] == "Facebook") 
                 | 
                   (Pern.empresas[,3] == "Microsoft" & Pern.empresas[,4] == "Facebook") 
                 | (Pern.empresas[,4] == "Microsoft" & Pern.empresas[,5] == "Facebook"))
filtro

##        [,1]        [,2]        [,3]        [,4]        [,5]       
##   [1,] "Amazon"    "Apple"     "BBVA"      "Microsoft" "Facebook" 
##   [2,] "Amazon"    "Apple"     "Coca-Cola" "Microsoft" "Facebook" 
##   [3,] "Amazon"    "Apple"     "Coppel"    "Microsoft" "Facebook" 
##   [4,] "Amazon"    "Apple"     "Google"    "Microsoft" "Facebook" 
##   [5,] "Amazon"    "Apple"     "Liverpool" "Microsoft" "Facebook" 
##   [6,] "Amazon"    "Apple"     "Microsoft" "Facebook"  "BBVA"     
##   [7,] "Amazon"    "Apple"     "Microsoft" "Facebook"  "Coca-Cola"
##   [8,] "Amazon"    "Apple"     "Microsoft" "Facebook"  "Coppel"   
##   [9,] "Amazon"    "Apple"     "Microsoft" "Facebook"  "Google"   
##  [10,] "Amazon"    "Apple"     "Microsoft" "Facebook"  "Liverpool"
##  [11,] "Amazon"    "BBVA"      "Apple"     "Microsoft" "Facebook" 
##  [12,] "Amazon"    "BBVA"      "Coca-Cola" "Microsoft" "Facebook" 
##  [13,] "Amazon"    "BBVA"      "Coppel"    "Microsoft" "Facebook" 
##  [14,] "Amazon"    "BBVA"      "Google"    "Microsoft" "Facebook" 
##  [15,] "Amazon"    "BBVA"      "Liverpool" "Microsoft" "Facebook" 
##  [16,] "Amazon"    "BBVA"      "Microsoft" "Facebook"  "Apple"    
##  [17,] "Amazon"    "BBVA"      "Microsoft" "Facebook"  "Coca-Cola"
##  [18,] "Amazon"    "BBVA"      "Microsoft" "Facebook"  "Coppel"   
##  [19,] "Amazon"    "BBVA"      "Microsoft" "Facebook"  "Google"   
##  [20,] "Amazon"    "BBVA"      "Microsoft" "Facebook"  "Liverpool"
##  [21,] "Amazon"    "Coca-Cola" "Apple"     "Microsoft" "Facebook" 
##  [22,] "Amazon"    "Coca-Cola" "BBVA"      "Microsoft" "Facebook" 
##  [23,] "Amazon"    "Coca-Cola" "Coppel"    "Microsoft" "Facebook" 
##  [24,] "Amazon"    "Coca-Cola" "Google"    "Microsoft" "Facebook" 
##  [25,] "Amazon"    "Coca-Cola" "Liverpool" "Microsoft" "Facebook" 
##  [26,] "Amazon"    "Coca-Cola" "Microsoft" "Facebook"  "Apple"    
##  [27,] "Amazon"    "Coca-Cola" "Microsoft" "Facebook"  "BBVA"     
##  [28,] "Amazon"    "Coca-Cola" "Microsoft" "Facebook"  "Coppel"   
##  [29,] "Amazon"    "Coca-Cola" "Microsoft" "Facebook"  "Google"   
##  [30,] "Amazon"    "Coca-Cola" "Microsoft" "Facebook"  "Liverpool"
##  [31,] "Amazon"    "Coppel"    "Apple"     "Microsoft" "Facebook" 
##  [32,] "Amazon"    "Coppel"    "BBVA"      "Microsoft" "Facebook" 
##  [33,] "Amazon"    "Coppel"    "Coca-Cola" "Microsoft" "Facebook" 
##  [34,] "Amazon"    "Coppel"    "Google"    "Microsoft" "Facebook" 
##  [35,] "Amazon"    "Coppel"    "Liverpool" "Microsoft" "Facebook" 
##  [36,] "Amazon"    "Coppel"    "Microsoft" "Facebook"  "Apple"    
##  [37,] "Amazon"    "Coppel"    "Microsoft" "Facebook"  "BBVA"     
##  [38,] "Amazon"    "Coppel"    "Microsoft" "Facebook"  "Coca-Cola"
##  [39,] "Amazon"    "Coppel"    "Microsoft" "Facebook"  "Google"   
##  [40,] "Amazon"    "Coppel"    "Microsoft" "Facebook"  "Liverpool"
##  [41,] "Amazon"    "Google"    "Apple"     "Microsoft" "Facebook" 
##  [42,] "Amazon"    "Google"    "BBVA"      "Microsoft" "Facebook" 
##  [43,] "Amazon"    "Google"    "Coca-Cola" "Microsoft" "Facebook" 
##  [44,] "Amazon"    "Google"    "Coppel"    "Microsoft" "Facebook" 
##  [45,] "Amazon"    "Google"    "Liverpool" "Microsoft" "Facebook" 
##  [46,] "Amazon"    "Google"    "Microsoft" "Facebook"  "Apple"    
##  [47,] "Amazon"    "Google"    "Microsoft" "Facebook"  "BBVA"     
##  [48,] "Amazon"    "Google"    "Microsoft" "Facebook"  "Coca-Cola"
##  [49,] "Amazon"    "Google"    "Microsoft" "Facebook"  "Coppel"   
##  [50,] "Amazon"    "Google"    "Microsoft" "Facebook"  "Liverpool"
##  [51,] "Amazon"    "Liverpool" "Apple"     "Microsoft" "Facebook" 
##  [52,] "Amazon"    "Liverpool" "BBVA"      "Microsoft" "Facebook" 
##  [53,] "Amazon"    "Liverpool" "Coca-Cola" "Microsoft" "Facebook" 
##  [54,] "Amazon"    "Liverpool" "Coppel"    "Microsoft" "Facebook" 
##  [55,] "Amazon"    "Liverpool" "Google"    "Microsoft" "Facebook" 
##  [56,] "Amazon"    "Liverpool" "Microsoft" "Facebook"  "Apple"    
##  [57,] "Amazon"    "Liverpool" "Microsoft" "Facebook"  "BBVA"     
##  [58,] "Amazon"    "Liverpool" "Microsoft" "Facebook"  "Coca-Cola"
##  [59,] "Amazon"    "Liverpool" "Microsoft" "Facebook"  "Coppel"   
##  [60,] "Amazon"    "Liverpool" "Microsoft" "Facebook"  "Google"   
##  [61,] "Amazon"    "Microsoft" "Facebook"  "Apple"     "BBVA"     
##  [62,] "Amazon"    "Microsoft" "Facebook"  "Apple"     "Coca-Cola"
##  [63,] "Amazon"    "Microsoft" "Facebook"  "Apple"     "Coppel"   
##  [64,] "Amazon"    "Microsoft" "Facebook"  "Apple"     "Google"   
##  [65,] "Amazon"    "Microsoft" "Facebook"  "Apple"     "Liverpool"
##  [66,] "Amazon"    "Microsoft" "Facebook"  "BBVA"      "Apple"    
##  [67,] "Amazon"    "Microsoft" "Facebook"  "BBVA"      "Coca-Cola"
##  [68,] "Amazon"    "Microsoft" "Facebook"  "BBVA"      "Coppel"   
##  [69,] "Amazon"    "Microsoft" "Facebook"  "BBVA"      "Google"   
##  [70,] "Amazon"    "Microsoft" "Facebook"  "BBVA"      "Liverpool"
##  [71,] "Amazon"    "Microsoft" "Facebook"  "Coca-Cola" "Apple"    
##  [72,] "Amazon"    "Microsoft" "Facebook"  "Coca-Cola" "BBVA"     
##  [73,] "Amazon"    "Microsoft" "Facebook"  "Coca-Cola" "Coppel"   
##  [74,] "Amazon"    "Microsoft" "Facebook"  "Coca-Cola" "Google"   
##  [75,] "Amazon"    "Microsoft" "Facebook"  "Coca-Cola" "Liverpool"
##  [76,] "Amazon"    "Microsoft" "Facebook"  "Coppel"    "Apple"    
##  [77,] "Amazon"    "Microsoft" "Facebook"  "Coppel"    "BBVA"     
##  [78,] "Amazon"    "Microsoft" "Facebook"  "Coppel"    "Coca-Cola"
##  [79,] "Amazon"    "Microsoft" "Facebook"  "Coppel"    "Google"   
##  [80,] "Amazon"    "Microsoft" "Facebook"  "Coppel"    "Liverpool"
##  [81,] "Amazon"    "Microsoft" "Facebook"  "Google"    "Apple"    
##  [82,] "Amazon"    "Microsoft" "Facebook"  "Google"    "BBVA"     
##  [83,] "Amazon"    "Microsoft" "Facebook"  "Google"    "Coca-Cola"
##  [84,] "Amazon"    "Microsoft" "Facebook"  "Google"    "Coppel"   
##  [85,] "Amazon"    "Microsoft" "Facebook"  "Google"    "Liverpool"
##  [86,] "Amazon"    "Microsoft" "Facebook"  "Liverpool" "Apple"    
##  [87,] "Amazon"    "Microsoft" "Facebook"  "Liverpool" "BBVA"     
##  [88,] "Amazon"    "Microsoft" "Facebook"  "Liverpool" "Coca-Cola"
##  [89,] "Amazon"    "Microsoft" "Facebook"  "Liverpool" "Coppel"   
##  [90,] "Amazon"    "Microsoft" "Facebook"  "Liverpool" "Google"   
##  [91,] "Apple"     "Amazon"    "BBVA"      "Microsoft" "Facebook" 
##  [92,] "Apple"     "Amazon"    "Coca-Cola" "Microsoft" "Facebook" 
##  [93,] "Apple"     "Amazon"    "Coppel"    "Microsoft" "Facebook" 
##  [94,] "Apple"     "Amazon"    "Google"    "Microsoft" "Facebook" 
##  [95,] "Apple"     "Amazon"    "Liverpool" "Microsoft" "Facebook" 
##  [96,] "Apple"     "Amazon"    "Microsoft" "Facebook"  "BBVA"     
##  [97,] "Apple"     "Amazon"    "Microsoft" "Facebook"  "Coca-Cola"
##  [98,] "Apple"     "Amazon"    "Microsoft" "Facebook"  "Coppel"   
##  [99,] "Apple"     "Amazon"    "Microsoft" "Facebook"  "Google"   
## [100,] "Apple"     "Amazon"    "Microsoft" "Facebook"  "Liverpool"
## [101,] "Apple"     "BBVA"      "Amazon"    "Microsoft" "Facebook" 
## [102,] "Apple"     "BBVA"      "Coca-Cola" "Microsoft" "Facebook" 
## [103,] "Apple"     "BBVA"      "Coppel"    "Microsoft" "Facebook" 
## [104,] "Apple"     "BBVA"      "Google"    "Microsoft" "Facebook" 
## [105,] "Apple"     "BBVA"      "Liverpool" "Microsoft" "Facebook" 
## [106,] "Apple"     "BBVA"      "Microsoft" "Facebook"  "Amazon"   
## [107,] "Apple"     "BBVA"      "Microsoft" "Facebook"  "Coca-Cola"
## [108,] "Apple"     "BBVA"      "Microsoft" "Facebook"  "Coppel"   
## [109,] "Apple"     "BBVA"      "Microsoft" "Facebook"  "Google"   
## [110,] "Apple"     "BBVA"      "Microsoft" "Facebook"  "Liverpool"
## [111,] "Apple"     "Coca-Cola" "Amazon"    "Microsoft" "Facebook" 
## [112,] "Apple"     "Coca-Cola" "BBVA"      "Microsoft" "Facebook" 
## [113,] "Apple"     "Coca-Cola" "Coppel"    "Microsoft" "Facebook" 
## [114,] "Apple"     "Coca-Cola" "Google"    "Microsoft" "Facebook" 
## [115,] "Apple"     "Coca-Cola" "Liverpool" "Microsoft" "Facebook" 
## [116,] "Apple"     "Coca-Cola" "Microsoft" "Facebook"  "Amazon"   
## [117,] "Apple"     "Coca-Cola" "Microsoft" "Facebook"  "BBVA"     
## [118,] "Apple"     "Coca-Cola" "Microsoft" "Facebook"  "Coppel"   
## [119,] "Apple"     "Coca-Cola" "Microsoft" "Facebook"  "Google"   
## [120,] "Apple"     "Coca-Cola" "Microsoft" "Facebook"  "Liverpool"
## [121,] "Apple"     "Coppel"    "Amazon"    "Microsoft" "Facebook" 
## [122,] "Apple"     "Coppel"    "BBVA"      "Microsoft" "Facebook" 
## [123,] "Apple"     "Coppel"    "Coca-Cola" "Microsoft" "Facebook" 
## [124,] "Apple"     "Coppel"    "Google"    "Microsoft" "Facebook" 
## [125,] "Apple"     "Coppel"    "Liverpool" "Microsoft" "Facebook" 
## [126,] "Apple"     "Coppel"    "Microsoft" "Facebook"  "Amazon"   
## [127,] "Apple"     "Coppel"    "Microsoft" "Facebook"  "BBVA"     
## [128,] "Apple"     "Coppel"    "Microsoft" "Facebook"  "Coca-Cola"
## [129,] "Apple"     "Coppel"    "Microsoft" "Facebook"  "Google"   
## [130,] "Apple"     "Coppel"    "Microsoft" "Facebook"  "Liverpool"
## [131,] "Apple"     "Google"    "Amazon"    "Microsoft" "Facebook" 
## [132,] "Apple"     "Google"    "BBVA"      "Microsoft" "Facebook" 
## [133,] "Apple"     "Google"    "Coca-Cola" "Microsoft" "Facebook" 
## [134,] "Apple"     "Google"    "Coppel"    "Microsoft" "Facebook" 
## [135,] "Apple"     "Google"    "Liverpool" "Microsoft" "Facebook" 
## [136,] "Apple"     "Google"    "Microsoft" "Facebook"  "Amazon"   
## [137,] "Apple"     "Google"    "Microsoft" "Facebook"  "BBVA"     
## [138,] "Apple"     "Google"    "Microsoft" "Facebook"  "Coca-Cola"
## [139,] "Apple"     "Google"    "Microsoft" "Facebook"  "Coppel"   
## [140,] "Apple"     "Google"    "Microsoft" "Facebook"  "Liverpool"
## [141,] "Apple"     "Liverpool" "Amazon"    "Microsoft" "Facebook" 
## [142,] "Apple"     "Liverpool" "BBVA"      "Microsoft" "Facebook" 
## [143,] "Apple"     "Liverpool" "Coca-Cola" "Microsoft" "Facebook" 
## [144,] "Apple"     "Liverpool" "Coppel"    "Microsoft" "Facebook" 
## [145,] "Apple"     "Liverpool" "Google"    "Microsoft" "Facebook" 
## [146,] "Apple"     "Liverpool" "Microsoft" "Facebook"  "Amazon"   
## [147,] "Apple"     "Liverpool" "Microsoft" "Facebook"  "BBVA"     
## [148,] "Apple"     "Liverpool" "Microsoft" "Facebook"  "Coca-Cola"
## [149,] "Apple"     "Liverpool" "Microsoft" "Facebook"  "Coppel"   
## [150,] "Apple"     "Liverpool" "Microsoft" "Facebook"  "Google"   
## [151,] "Apple"     "Microsoft" "Facebook"  "Amazon"    "BBVA"     
## [152,] "Apple"     "Microsoft" "Facebook"  "Amazon"    "Coca-Cola"
## [153,] "Apple"     "Microsoft" "Facebook"  "Amazon"    "Coppel"   
## [154,] "Apple"     "Microsoft" "Facebook"  "Amazon"    "Google"   
## [155,] "Apple"     "Microsoft" "Facebook"  "Amazon"    "Liverpool"
## [156,] "Apple"     "Microsoft" "Facebook"  "BBVA"      "Amazon"   
## [157,] "Apple"     "Microsoft" "Facebook"  "BBVA"      "Coca-Cola"
## [158,] "Apple"     "Microsoft" "Facebook"  "BBVA"      "Coppel"   
## [159,] "Apple"     "Microsoft" "Facebook"  "BBVA"      "Google"   
## [160,] "Apple"     "Microsoft" "Facebook"  "BBVA"      "Liverpool"
## [161,] "Apple"     "Microsoft" "Facebook"  "Coca-Cola" "Amazon"   
## [162,] "Apple"     "Microsoft" "Facebook"  "Coca-Cola" "BBVA"     
## [163,] "Apple"     "Microsoft" "Facebook"  "Coca-Cola" "Coppel"   
## [164,] "Apple"     "Microsoft" "Facebook"  "Coca-Cola" "Google"   
## [165,] "Apple"     "Microsoft" "Facebook"  "Coca-Cola" "Liverpool"
## [166,] "Apple"     "Microsoft" "Facebook"  "Coppel"    "Amazon"   
## [167,] "Apple"     "Microsoft" "Facebook"  "Coppel"    "BBVA"     
## [168,] "Apple"     "Microsoft" "Facebook"  "Coppel"    "Coca-Cola"
## [169,] "Apple"     "Microsoft" "Facebook"  "Coppel"    "Google"   
## [170,] "Apple"     "Microsoft" "Facebook"  "Coppel"    "Liverpool"
## [171,] "Apple"     "Microsoft" "Facebook"  "Google"    "Amazon"   
## [172,] "Apple"     "Microsoft" "Facebook"  "Google"    "BBVA"     
## [173,] "Apple"     "Microsoft" "Facebook"  "Google"    "Coca-Cola"
## [174,] "Apple"     "Microsoft" "Facebook"  "Google"    "Coppel"   
## [175,] "Apple"     "Microsoft" "Facebook"  "Google"    "Liverpool"
## [176,] "Apple"     "Microsoft" "Facebook"  "Liverpool" "Amazon"   
## [177,] "Apple"     "Microsoft" "Facebook"  "Liverpool" "BBVA"     
## [178,] "Apple"     "Microsoft" "Facebook"  "Liverpool" "Coca-Cola"
## [179,] "Apple"     "Microsoft" "Facebook"  "Liverpool" "Coppel"   
## [180,] "Apple"     "Microsoft" "Facebook"  "Liverpool" "Google"   
## [181,] "BBVA"      "Amazon"    "Apple"     "Microsoft" "Facebook" 
## [182,] "BBVA"      "Amazon"    "Coca-Cola" "Microsoft" "Facebook" 
## [183,] "BBVA"      "Amazon"    "Coppel"    "Microsoft" "Facebook" 
## [184,] "BBVA"      "Amazon"    "Google"    "Microsoft" "Facebook" 
## [185,] "BBVA"      "Amazon"    "Liverpool" "Microsoft" "Facebook" 
## [186,] "BBVA"      "Amazon"    "Microsoft" "Facebook"  "Apple"    
## [187,] "BBVA"      "Amazon"    "Microsoft" "Facebook"  "Coca-Cola"
## [188,] "BBVA"      "Amazon"    "Microsoft" "Facebook"  "Coppel"   
## [189,] "BBVA"      "Amazon"    "Microsoft" "Facebook"  "Google"   
## [190,] "BBVA"      "Amazon"    "Microsoft" "Facebook"  "Liverpool"
## [191,] "BBVA"      "Apple"     "Amazon"    "Microsoft" "Facebook" 
## [192,] "BBVA"      "Apple"     "Coca-Cola" "Microsoft" "Facebook" 
## [193,] "BBVA"      "Apple"     "Coppel"    "Microsoft" "Facebook" 
## [194,] "BBVA"      "Apple"     "Google"    "Microsoft" "Facebook" 
## [195,] "BBVA"      "Apple"     "Liverpool" "Microsoft" "Facebook" 
## [196,] "BBVA"      "Apple"     "Microsoft" "Facebook"  "Amazon"   
## [197,] "BBVA"      "Apple"     "Microsoft" "Facebook"  "Coca-Cola"
## [198,] "BBVA"      "Apple"     "Microsoft" "Facebook"  "Coppel"   
## [199,] "BBVA"      "Apple"     "Microsoft" "Facebook"  "Google"   
## [200,] "BBVA"      "Apple"     "Microsoft" "Facebook"  "Liverpool"
## [201,] "BBVA"      "Coca-Cola" "Amazon"    "Microsoft" "Facebook" 
## [202,] "BBVA"      "Coca-Cola" "Apple"     "Microsoft" "Facebook" 
## [203,] "BBVA"      "Coca-Cola" "Coppel"    "Microsoft" "Facebook" 
## [204,] "BBVA"      "Coca-Cola" "Google"    "Microsoft" "Facebook" 
## [205,] "BBVA"      "Coca-Cola" "Liverpool" "Microsoft" "Facebook" 
## [206,] "BBVA"      "Coca-Cola" "Microsoft" "Facebook"  "Amazon"   
## [207,] "BBVA"      "Coca-Cola" "Microsoft" "Facebook"  "Apple"    
## [208,] "BBVA"      "Coca-Cola" "Microsoft" "Facebook"  "Coppel"   
## [209,] "BBVA"      "Coca-Cola" "Microsoft" "Facebook"  "Google"   
## [210,] "BBVA"      "Coca-Cola" "Microsoft" "Facebook"  "Liverpool"
## [211,] "BBVA"      "Coppel"    "Amazon"    "Microsoft" "Facebook" 
## [212,] "BBVA"      "Coppel"    "Apple"     "Microsoft" "Facebook" 
## [213,] "BBVA"      "Coppel"    "Coca-Cola" "Microsoft" "Facebook" 
## [214,] "BBVA"      "Coppel"    "Google"    "Microsoft" "Facebook" 
## [215,] "BBVA"      "Coppel"    "Liverpool" "Microsoft" "Facebook" 
## [216,] "BBVA"      "Coppel"    "Microsoft" "Facebook"  "Amazon"   
## [217,] "BBVA"      "Coppel"    "Microsoft" "Facebook"  "Apple"    
## [218,] "BBVA"      "Coppel"    "Microsoft" "Facebook"  "Coca-Cola"
## [219,] "BBVA"      "Coppel"    "Microsoft" "Facebook"  "Google"   
## [220,] "BBVA"      "Coppel"    "Microsoft" "Facebook"  "Liverpool"
## [221,] "BBVA"      "Google"    "Amazon"    "Microsoft" "Facebook" 
## [222,] "BBVA"      "Google"    "Apple"     "Microsoft" "Facebook" 
## [223,] "BBVA"      "Google"    "Coca-Cola" "Microsoft" "Facebook" 
## [224,] "BBVA"      "Google"    "Coppel"    "Microsoft" "Facebook" 
## [225,] "BBVA"      "Google"    "Liverpool" "Microsoft" "Facebook" 
## [226,] "BBVA"      "Google"    "Microsoft" "Facebook"  "Amazon"   
## [227,] "BBVA"      "Google"    "Microsoft" "Facebook"  "Apple"    
## [228,] "BBVA"      "Google"    "Microsoft" "Facebook"  "Coca-Cola"
## [229,] "BBVA"      "Google"    "Microsoft" "Facebook"  "Coppel"   
## [230,] "BBVA"      "Google"    "Microsoft" "Facebook"  "Liverpool"
## [231,] "BBVA"      "Liverpool" "Amazon"    "Microsoft" "Facebook" 
## [232,] "BBVA"      "Liverpool" "Apple"     "Microsoft" "Facebook" 
## [233,] "BBVA"      "Liverpool" "Coca-Cola" "Microsoft" "Facebook" 
## [234,] "BBVA"      "Liverpool" "Coppel"    "Microsoft" "Facebook" 
## [235,] "BBVA"      "Liverpool" "Google"    "Microsoft" "Facebook" 
## [236,] "BBVA"      "Liverpool" "Microsoft" "Facebook"  "Amazon"   
## [237,] "BBVA"      "Liverpool" "Microsoft" "Facebook"  "Apple"    
## [238,] "BBVA"      "Liverpool" "Microsoft" "Facebook"  "Coca-Cola"
## [239,] "BBVA"      "Liverpool" "Microsoft" "Facebook"  "Coppel"   
## [240,] "BBVA"      "Liverpool" "Microsoft" "Facebook"  "Google"   
## [241,] "BBVA"      "Microsoft" "Facebook"  "Amazon"    "Apple"    
## [242,] "BBVA"      "Microsoft" "Facebook"  "Amazon"    "Coca-Cola"
## [243,] "BBVA"      "Microsoft" "Facebook"  "Amazon"    "Coppel"   
## [244,] "BBVA"      "Microsoft" "Facebook"  "Amazon"    "Google"   
## [245,] "BBVA"      "Microsoft" "Facebook"  "Amazon"    "Liverpool"
## [246,] "BBVA"      "Microsoft" "Facebook"  "Apple"     "Amazon"   
## [247,] "BBVA"      "Microsoft" "Facebook"  "Apple"     "Coca-Cola"
## [248,] "BBVA"      "Microsoft" "Facebook"  "Apple"     "Coppel"   
## [249,] "BBVA"      "Microsoft" "Facebook"  "Apple"     "Google"   
## [250,] "BBVA"      "Microsoft" "Facebook"  "Apple"     "Liverpool"
## [251,] "BBVA"      "Microsoft" "Facebook"  "Coca-Cola" "Amazon"   
## [252,] "BBVA"      "Microsoft" "Facebook"  "Coca-Cola" "Apple"    
## [253,] "BBVA"      "Microsoft" "Facebook"  "Coca-Cola" "Coppel"   
## [254,] "BBVA"      "Microsoft" "Facebook"  "Coca-Cola" "Google"   
## [255,] "BBVA"      "Microsoft" "Facebook"  "Coca-Cola" "Liverpool"
## [256,] "BBVA"      "Microsoft" "Facebook"  "Coppel"    "Amazon"   
## [257,] "BBVA"      "Microsoft" "Facebook"  "Coppel"    "Apple"    
## [258,] "BBVA"      "Microsoft" "Facebook"  "Coppel"    "Coca-Cola"
## [259,] "BBVA"      "Microsoft" "Facebook"  "Coppel"    "Google"   
## [260,] "BBVA"      "Microsoft" "Facebook"  "Coppel"    "Liverpool"
## [261,] "BBVA"      "Microsoft" "Facebook"  "Google"    "Amazon"   
## [262,] "BBVA"      "Microsoft" "Facebook"  "Google"    "Apple"    
## [263,] "BBVA"      "Microsoft" "Facebook"  "Google"    "Coca-Cola"
## [264,] "BBVA"      "Microsoft" "Facebook"  "Google"    "Coppel"   
## [265,] "BBVA"      "Microsoft" "Facebook"  "Google"    "Liverpool"
## [266,] "BBVA"      "Microsoft" "Facebook"  "Liverpool" "Amazon"   
## [267,] "BBVA"      "Microsoft" "Facebook"  "Liverpool" "Apple"    
## [268,] "BBVA"      "Microsoft" "Facebook"  "Liverpool" "Coca-Cola"
## [269,] "BBVA"      "Microsoft" "Facebook"  "Liverpool" "Coppel"   
## [270,] "BBVA"      "Microsoft" "Facebook"  "Liverpool" "Google"   
## [271,] "Coca-Cola" "Amazon"    "Apple"     "Microsoft" "Facebook" 
## [272,] "Coca-Cola" "Amazon"    "BBVA"      "Microsoft" "Facebook" 
## [273,] "Coca-Cola" "Amazon"    "Coppel"    "Microsoft" "Facebook" 
## [274,] "Coca-Cola" "Amazon"    "Google"    "Microsoft" "Facebook" 
## [275,] "Coca-Cola" "Amazon"    "Liverpool" "Microsoft" "Facebook" 
## [276,] "Coca-Cola" "Amazon"    "Microsoft" "Facebook"  "Apple"    
## [277,] "Coca-Cola" "Amazon"    "Microsoft" "Facebook"  "BBVA"     
## [278,] "Coca-Cola" "Amazon"    "Microsoft" "Facebook"  "Coppel"   
## [279,] "Coca-Cola" "Amazon"    "Microsoft" "Facebook"  "Google"   
## [280,] "Coca-Cola" "Amazon"    "Microsoft" "Facebook"  "Liverpool"
## [281,] "Coca-Cola" "Apple"     "Amazon"    "Microsoft" "Facebook" 
## [282,] "Coca-Cola" "Apple"     "BBVA"      "Microsoft" "Facebook" 
## [283,] "Coca-Cola" "Apple"     "Coppel"    "Microsoft" "Facebook" 
## [284,] "Coca-Cola" "Apple"     "Google"    "Microsoft" "Facebook" 
## [285,] "Coca-Cola" "Apple"     "Liverpool" "Microsoft" "Facebook" 
## [286,] "Coca-Cola" "Apple"     "Microsoft" "Facebook"  "Amazon"   
## [287,] "Coca-Cola" "Apple"     "Microsoft" "Facebook"  "BBVA"     
## [288,] "Coca-Cola" "Apple"     "Microsoft" "Facebook"  "Coppel"   
## [289,] "Coca-Cola" "Apple"     "Microsoft" "Facebook"  "Google"   
## [290,] "Coca-Cola" "Apple"     "Microsoft" "Facebook"  "Liverpool"
## [291,] "Coca-Cola" "BBVA"      "Amazon"    "Microsoft" "Facebook" 
## [292,] "Coca-Cola" "BBVA"      "Apple"     "Microsoft" "Facebook" 
## [293,] "Coca-Cola" "BBVA"      "Coppel"    "Microsoft" "Facebook" 
## [294,] "Coca-Cola" "BBVA"      "Google"    "Microsoft" "Facebook" 
## [295,] "Coca-Cola" "BBVA"      "Liverpool" "Microsoft" "Facebook" 
## [296,] "Coca-Cola" "BBVA"      "Microsoft" "Facebook"  "Amazon"   
## [297,] "Coca-Cola" "BBVA"      "Microsoft" "Facebook"  "Apple"    
## [298,] "Coca-Cola" "BBVA"      "Microsoft" "Facebook"  "Coppel"   
## [299,] "Coca-Cola" "BBVA"      "Microsoft" "Facebook"  "Google"   
## [300,] "Coca-Cola" "BBVA"      "Microsoft" "Facebook"  "Liverpool"
## [301,] "Coca-Cola" "Coppel"    "Amazon"    "Microsoft" "Facebook" 
## [302,] "Coca-Cola" "Coppel"    "Apple"     "Microsoft" "Facebook" 
## [303,] "Coca-Cola" "Coppel"    "BBVA"      "Microsoft" "Facebook" 
## [304,] "Coca-Cola" "Coppel"    "Google"    "Microsoft" "Facebook" 
## [305,] "Coca-Cola" "Coppel"    "Liverpool" "Microsoft" "Facebook" 
## [306,] "Coca-Cola" "Coppel"    "Microsoft" "Facebook"  "Amazon"   
## [307,] "Coca-Cola" "Coppel"    "Microsoft" "Facebook"  "Apple"    
## [308,] "Coca-Cola" "Coppel"    "Microsoft" "Facebook"  "BBVA"     
## [309,] "Coca-Cola" "Coppel"    "Microsoft" "Facebook"  "Google"   
## [310,] "Coca-Cola" "Coppel"    "Microsoft" "Facebook"  "Liverpool"
## [311,] "Coca-Cola" "Google"    "Amazon"    "Microsoft" "Facebook" 
## [312,] "Coca-Cola" "Google"    "Apple"     "Microsoft" "Facebook" 
## [313,] "Coca-Cola" "Google"    "BBVA"      "Microsoft" "Facebook" 
## [314,] "Coca-Cola" "Google"    "Coppel"    "Microsoft" "Facebook" 
## [315,] "Coca-Cola" "Google"    "Liverpool" "Microsoft" "Facebook" 
## [316,] "Coca-Cola" "Google"    "Microsoft" "Facebook"  "Amazon"   
## [317,] "Coca-Cola" "Google"    "Microsoft" "Facebook"  "Apple"    
## [318,] "Coca-Cola" "Google"    "Microsoft" "Facebook"  "BBVA"     
## [319,] "Coca-Cola" "Google"    "Microsoft" "Facebook"  "Coppel"   
## [320,] "Coca-Cola" "Google"    "Microsoft" "Facebook"  "Liverpool"
## [321,] "Coca-Cola" "Liverpool" "Amazon"    "Microsoft" "Facebook" 
## [322,] "Coca-Cola" "Liverpool" "Apple"     "Microsoft" "Facebook" 
## [323,] "Coca-Cola" "Liverpool" "BBVA"      "Microsoft" "Facebook" 
## [324,] "Coca-Cola" "Liverpool" "Coppel"    "Microsoft" "Facebook" 
## [325,] "Coca-Cola" "Liverpool" "Google"    "Microsoft" "Facebook" 
## [326,] "Coca-Cola" "Liverpool" "Microsoft" "Facebook"  "Amazon"   
## [327,] "Coca-Cola" "Liverpool" "Microsoft" "Facebook"  "Apple"    
## [328,] "Coca-Cola" "Liverpool" "Microsoft" "Facebook"  "BBVA"     
## [329,] "Coca-Cola" "Liverpool" "Microsoft" "Facebook"  "Coppel"   
## [330,] "Coca-Cola" "Liverpool" "Microsoft" "Facebook"  "Google"   
## [331,] "Coca-Cola" "Microsoft" "Facebook"  "Amazon"    "Apple"    
## [332,] "Coca-Cola" "Microsoft" "Facebook"  "Amazon"    "BBVA"     
## [333,] "Coca-Cola" "Microsoft" "Facebook"  "Amazon"    "Coppel"   
## [334,] "Coca-Cola" "Microsoft" "Facebook"  "Amazon"    "Google"   
## [335,] "Coca-Cola" "Microsoft" "Facebook"  "Amazon"    "Liverpool"
## [336,] "Coca-Cola" "Microsoft" "Facebook"  "Apple"     "Amazon"   
## [337,] "Coca-Cola" "Microsoft" "Facebook"  "Apple"     "BBVA"     
## [338,] "Coca-Cola" "Microsoft" "Facebook"  "Apple"     "Coppel"   
## [339,] "Coca-Cola" "Microsoft" "Facebook"  "Apple"     "Google"   
## [340,] "Coca-Cola" "Microsoft" "Facebook"  "Apple"     "Liverpool"
## [341,] "Coca-Cola" "Microsoft" "Facebook"  "BBVA"      "Amazon"   
## [342,] "Coca-Cola" "Microsoft" "Facebook"  "BBVA"      "Apple"    
## [343,] "Coca-Cola" "Microsoft" "Facebook"  "BBVA"      "Coppel"   
## [344,] "Coca-Cola" "Microsoft" "Facebook"  "BBVA"      "Google"   
## [345,] "Coca-Cola" "Microsoft" "Facebook"  "BBVA"      "Liverpool"
## [346,] "Coca-Cola" "Microsoft" "Facebook"  "Coppel"    "Amazon"   
## [347,] "Coca-Cola" "Microsoft" "Facebook"  "Coppel"    "Apple"    
## [348,] "Coca-Cola" "Microsoft" "Facebook"  "Coppel"    "BBVA"     
## [349,] "Coca-Cola" "Microsoft" "Facebook"  "Coppel"    "Google"   
## [350,] "Coca-Cola" "Microsoft" "Facebook"  "Coppel"    "Liverpool"
## [351,] "Coca-Cola" "Microsoft" "Facebook"  "Google"    "Amazon"   
## [352,] "Coca-Cola" "Microsoft" "Facebook"  "Google"    "Apple"    
## [353,] "Coca-Cola" "Microsoft" "Facebook"  "Google"    "BBVA"     
## [354,] "Coca-Cola" "Microsoft" "Facebook"  "Google"    "Coppel"   
## [355,] "Coca-Cola" "Microsoft" "Facebook"  "Google"    "Liverpool"
## [356,] "Coca-Cola" "Microsoft" "Facebook"  "Liverpool" "Amazon"   
## [357,] "Coca-Cola" "Microsoft" "Facebook"  "Liverpool" "Apple"    
## [358,] "Coca-Cola" "Microsoft" "Facebook"  "Liverpool" "BBVA"     
## [359,] "Coca-Cola" "Microsoft" "Facebook"  "Liverpool" "Coppel"   
## [360,] "Coca-Cola" "Microsoft" "Facebook"  "Liverpool" "Google"   
## [361,] "Coppel"    "Amazon"    "Apple"     "Microsoft" "Facebook" 
## [362,] "Coppel"    "Amazon"    "BBVA"      "Microsoft" "Facebook" 
## [363,] "Coppel"    "Amazon"    "Coca-Cola" "Microsoft" "Facebook" 
## [364,] "Coppel"    "Amazon"    "Google"    "Microsoft" "Facebook" 
## [365,] "Coppel"    "Amazon"    "Liverpool" "Microsoft" "Facebook" 
## [366,] "Coppel"    "Amazon"    "Microsoft" "Facebook"  "Apple"    
## [367,] "Coppel"    "Amazon"    "Microsoft" "Facebook"  "BBVA"     
## [368,] "Coppel"    "Amazon"    "Microsoft" "Facebook"  "Coca-Cola"
## [369,] "Coppel"    "Amazon"    "Microsoft" "Facebook"  "Google"   
## [370,] "Coppel"    "Amazon"    "Microsoft" "Facebook"  "Liverpool"
## [371,] "Coppel"    "Apple"     "Amazon"    "Microsoft" "Facebook" 
## [372,] "Coppel"    "Apple"     "BBVA"      "Microsoft" "Facebook" 
## [373,] "Coppel"    "Apple"     "Coca-Cola" "Microsoft" "Facebook" 
## [374,] "Coppel"    "Apple"     "Google"    "Microsoft" "Facebook" 
## [375,] "Coppel"    "Apple"     "Liverpool" "Microsoft" "Facebook" 
## [376,] "Coppel"    "Apple"     "Microsoft" "Facebook"  "Amazon"   
## [377,] "Coppel"    "Apple"     "Microsoft" "Facebook"  "BBVA"     
## [378,] "Coppel"    "Apple"     "Microsoft" "Facebook"  "Coca-Cola"
## [379,] "Coppel"    "Apple"     "Microsoft" "Facebook"  "Google"   
## [380,] "Coppel"    "Apple"     "Microsoft" "Facebook"  "Liverpool"
## [381,] "Coppel"    "BBVA"      "Amazon"    "Microsoft" "Facebook" 
## [382,] "Coppel"    "BBVA"      "Apple"     "Microsoft" "Facebook" 
## [383,] "Coppel"    "BBVA"      "Coca-Cola" "Microsoft" "Facebook" 
## [384,] "Coppel"    "BBVA"      "Google"    "Microsoft" "Facebook" 
## [385,] "Coppel"    "BBVA"      "Liverpool" "Microsoft" "Facebook" 
## [386,] "Coppel"    "BBVA"      "Microsoft" "Facebook"  "Amazon"   
## [387,] "Coppel"    "BBVA"      "Microsoft" "Facebook"  "Apple"    
## [388,] "Coppel"    "BBVA"      "Microsoft" "Facebook"  "Coca-Cola"
## [389,] "Coppel"    "BBVA"      "Microsoft" "Facebook"  "Google"   
## [390,] "Coppel"    "BBVA"      "Microsoft" "Facebook"  "Liverpool"
## [391,] "Coppel"    "Coca-Cola" "Amazon"    "Microsoft" "Facebook" 
## [392,] "Coppel"    "Coca-Cola" "Apple"     "Microsoft" "Facebook" 
## [393,] "Coppel"    "Coca-Cola" "BBVA"      "Microsoft" "Facebook" 
## [394,] "Coppel"    "Coca-Cola" "Google"    "Microsoft" "Facebook" 
## [395,] "Coppel"    "Coca-Cola" "Liverpool" "Microsoft" "Facebook" 
## [396,] "Coppel"    "Coca-Cola" "Microsoft" "Facebook"  "Amazon"   
## [397,] "Coppel"    "Coca-Cola" "Microsoft" "Facebook"  "Apple"    
## [398,] "Coppel"    "Coca-Cola" "Microsoft" "Facebook"  "BBVA"     
## [399,] "Coppel"    "Coca-Cola" "Microsoft" "Facebook"  "Google"   
## [400,] "Coppel"    "Coca-Cola" "Microsoft" "Facebook"  "Liverpool"
## [401,] "Coppel"    "Google"    "Amazon"    "Microsoft" "Facebook" 
## [402,] "Coppel"    "Google"    "Apple"     "Microsoft" "Facebook" 
## [403,] "Coppel"    "Google"    "BBVA"      "Microsoft" "Facebook" 
## [404,] "Coppel"    "Google"    "Coca-Cola" "Microsoft" "Facebook" 
## [405,] "Coppel"    "Google"    "Liverpool" "Microsoft" "Facebook" 
## [406,] "Coppel"    "Google"    "Microsoft" "Facebook"  "Amazon"   
## [407,] "Coppel"    "Google"    "Microsoft" "Facebook"  "Apple"    
## [408,] "Coppel"    "Google"    "Microsoft" "Facebook"  "BBVA"     
## [409,] "Coppel"    "Google"    "Microsoft" "Facebook"  "Coca-Cola"
## [410,] "Coppel"    "Google"    "Microsoft" "Facebook"  "Liverpool"
## [411,] "Coppel"    "Liverpool" "Amazon"    "Microsoft" "Facebook" 
## [412,] "Coppel"    "Liverpool" "Apple"     "Microsoft" "Facebook" 
## [413,] "Coppel"    "Liverpool" "BBVA"      "Microsoft" "Facebook" 
## [414,] "Coppel"    "Liverpool" "Coca-Cola" "Microsoft" "Facebook" 
## [415,] "Coppel"    "Liverpool" "Google"    "Microsoft" "Facebook" 
## [416,] "Coppel"    "Liverpool" "Microsoft" "Facebook"  "Amazon"   
## [417,] "Coppel"    "Liverpool" "Microsoft" "Facebook"  "Apple"    
## [418,] "Coppel"    "Liverpool" "Microsoft" "Facebook"  "BBVA"     
## [419,] "Coppel"    "Liverpool" "Microsoft" "Facebook"  "Coca-Cola"
## [420,] "Coppel"    "Liverpool" "Microsoft" "Facebook"  "Google"   
## [421,] "Coppel"    "Microsoft" "Facebook"  "Amazon"    "Apple"    
## [422,] "Coppel"    "Microsoft" "Facebook"  "Amazon"    "BBVA"     
## [423,] "Coppel"    "Microsoft" "Facebook"  "Amazon"    "Coca-Cola"
## [424,] "Coppel"    "Microsoft" "Facebook"  "Amazon"    "Google"   
## [425,] "Coppel"    "Microsoft" "Facebook"  "Amazon"    "Liverpool"
## [426,] "Coppel"    "Microsoft" "Facebook"  "Apple"     "Amazon"   
## [427,] "Coppel"    "Microsoft" "Facebook"  "Apple"     "BBVA"     
## [428,] "Coppel"    "Microsoft" "Facebook"  "Apple"     "Coca-Cola"
## [429,] "Coppel"    "Microsoft" "Facebook"  "Apple"     "Google"   
## [430,] "Coppel"    "Microsoft" "Facebook"  "Apple"     "Liverpool"
## [431,] "Coppel"    "Microsoft" "Facebook"  "BBVA"      "Amazon"   
## [432,] "Coppel"    "Microsoft" "Facebook"  "BBVA"      "Apple"    
## [433,] "Coppel"    "Microsoft" "Facebook"  "BBVA"      "Coca-Cola"
## [434,] "Coppel"    "Microsoft" "Facebook"  "BBVA"      "Google"   
## [435,] "Coppel"    "Microsoft" "Facebook"  "BBVA"      "Liverpool"
## [436,] "Coppel"    "Microsoft" "Facebook"  "Coca-Cola" "Amazon"   
## [437,] "Coppel"    "Microsoft" "Facebook"  "Coca-Cola" "Apple"    
## [438,] "Coppel"    "Microsoft" "Facebook"  "Coca-Cola" "BBVA"     
## [439,] "Coppel"    "Microsoft" "Facebook"  "Coca-Cola" "Google"   
## [440,] "Coppel"    "Microsoft" "Facebook"  "Coca-Cola" "Liverpool"
## [441,] "Coppel"    "Microsoft" "Facebook"  "Google"    "Amazon"   
## [442,] "Coppel"    "Microsoft" "Facebook"  "Google"    "Apple"    
## [443,] "Coppel"    "Microsoft" "Facebook"  "Google"    "BBVA"     
## [444,] "Coppel"    "Microsoft" "Facebook"  "Google"    "Coca-Cola"
## [445,] "Coppel"    "Microsoft" "Facebook"  "Google"    "Liverpool"
## [446,] "Coppel"    "Microsoft" "Facebook"  "Liverpool" "Amazon"   
## [447,] "Coppel"    "Microsoft" "Facebook"  "Liverpool" "Apple"    
## [448,] "Coppel"    "Microsoft" "Facebook"  "Liverpool" "BBVA"     
## [449,] "Coppel"    "Microsoft" "Facebook"  "Liverpool" "Coca-Cola"
## [450,] "Coppel"    "Microsoft" "Facebook"  "Liverpool" "Google"   
## [451,] "Google"    "Amazon"    "Apple"     "Microsoft" "Facebook" 
## [452,] "Google"    "Amazon"    "BBVA"      "Microsoft" "Facebook" 
## [453,] "Google"    "Amazon"    "Coca-Cola" "Microsoft" "Facebook" 
## [454,] "Google"    "Amazon"    "Coppel"    "Microsoft" "Facebook" 
## [455,] "Google"    "Amazon"    "Liverpool" "Microsoft" "Facebook" 
## [456,] "Google"    "Amazon"    "Microsoft" "Facebook"  "Apple"    
## [457,] "Google"    "Amazon"    "Microsoft" "Facebook"  "BBVA"     
## [458,] "Google"    "Amazon"    "Microsoft" "Facebook"  "Coca-Cola"
## [459,] "Google"    "Amazon"    "Microsoft" "Facebook"  "Coppel"   
## [460,] "Google"    "Amazon"    "Microsoft" "Facebook"  "Liverpool"
## [461,] "Google"    "Apple"     "Amazon"    "Microsoft" "Facebook" 
## [462,] "Google"    "Apple"     "BBVA"      "Microsoft" "Facebook" 
## [463,] "Google"    "Apple"     "Coca-Cola" "Microsoft" "Facebook" 
## [464,] "Google"    "Apple"     "Coppel"    "Microsoft" "Facebook" 
## [465,] "Google"    "Apple"     "Liverpool" "Microsoft" "Facebook" 
## [466,] "Google"    "Apple"     "Microsoft" "Facebook"  "Amazon"   
## [467,] "Google"    "Apple"     "Microsoft" "Facebook"  "BBVA"     
## [468,] "Google"    "Apple"     "Microsoft" "Facebook"  "Coca-Cola"
## [469,] "Google"    "Apple"     "Microsoft" "Facebook"  "Coppel"   
## [470,] "Google"    "Apple"     "Microsoft" "Facebook"  "Liverpool"
## [471,] "Google"    "BBVA"      "Amazon"    "Microsoft" "Facebook" 
## [472,] "Google"    "BBVA"      "Apple"     "Microsoft" "Facebook" 
## [473,] "Google"    "BBVA"      "Coca-Cola" "Microsoft" "Facebook" 
## [474,] "Google"    "BBVA"      "Coppel"    "Microsoft" "Facebook" 
## [475,] "Google"    "BBVA"      "Liverpool" "Microsoft" "Facebook" 
## [476,] "Google"    "BBVA"      "Microsoft" "Facebook"  "Amazon"   
## [477,] "Google"    "BBVA"      "Microsoft" "Facebook"  "Apple"    
## [478,] "Google"    "BBVA"      "Microsoft" "Facebook"  "Coca-Cola"
## [479,] "Google"    "BBVA"      "Microsoft" "Facebook"  "Coppel"   
## [480,] "Google"    "BBVA"      "Microsoft" "Facebook"  "Liverpool"
## [481,] "Google"    "Coca-Cola" "Amazon"    "Microsoft" "Facebook" 
## [482,] "Google"    "Coca-Cola" "Apple"     "Microsoft" "Facebook" 
## [483,] "Google"    "Coca-Cola" "BBVA"      "Microsoft" "Facebook" 
## [484,] "Google"    "Coca-Cola" "Coppel"    "Microsoft" "Facebook" 
## [485,] "Google"    "Coca-Cola" "Liverpool" "Microsoft" "Facebook" 
## [486,] "Google"    "Coca-Cola" "Microsoft" "Facebook"  "Amazon"   
## [487,] "Google"    "Coca-Cola" "Microsoft" "Facebook"  "Apple"    
## [488,] "Google"    "Coca-Cola" "Microsoft" "Facebook"  "BBVA"     
## [489,] "Google"    "Coca-Cola" "Microsoft" "Facebook"  "Coppel"   
## [490,] "Google"    "Coca-Cola" "Microsoft" "Facebook"  "Liverpool"
## [491,] "Google"    "Coppel"    "Amazon"    "Microsoft" "Facebook" 
## [492,] "Google"    "Coppel"    "Apple"     "Microsoft" "Facebook" 
## [493,] "Google"    "Coppel"    "BBVA"      "Microsoft" "Facebook" 
## [494,] "Google"    "Coppel"    "Coca-Cola" "Microsoft" "Facebook" 
## [495,] "Google"    "Coppel"    "Liverpool" "Microsoft" "Facebook" 
## [496,] "Google"    "Coppel"    "Microsoft" "Facebook"  "Amazon"   
## [497,] "Google"    "Coppel"    "Microsoft" "Facebook"  "Apple"    
## [498,] "Google"    "Coppel"    "Microsoft" "Facebook"  "BBVA"     
## [499,] "Google"    "Coppel"    "Microsoft" "Facebook"  "Coca-Cola"
## [500,] "Google"    "Coppel"    "Microsoft" "Facebook"  "Liverpool"
## [501,] "Google"    "Liverpool" "Amazon"    "Microsoft" "Facebook" 
## [502,] "Google"    "Liverpool" "Apple"     "Microsoft" "Facebook" 
## [503,] "Google"    "Liverpool" "BBVA"      "Microsoft" "Facebook" 
## [504,] "Google"    "Liverpool" "Coca-Cola" "Microsoft" "Facebook" 
## [505,] "Google"    "Liverpool" "Coppel"    "Microsoft" "Facebook" 
## [506,] "Google"    "Liverpool" "Microsoft" "Facebook"  "Amazon"   
## [507,] "Google"    "Liverpool" "Microsoft" "Facebook"  "Apple"    
## [508,] "Google"    "Liverpool" "Microsoft" "Facebook"  "BBVA"     
## [509,] "Google"    "Liverpool" "Microsoft" "Facebook"  "Coca-Cola"
## [510,] "Google"    "Liverpool" "Microsoft" "Facebook"  "Coppel"   
## [511,] "Google"    "Microsoft" "Facebook"  "Amazon"    "Apple"    
## [512,] "Google"    "Microsoft" "Facebook"  "Amazon"    "BBVA"     
## [513,] "Google"    "Microsoft" "Facebook"  "Amazon"    "Coca-Cola"
## [514,] "Google"    "Microsoft" "Facebook"  "Amazon"    "Coppel"   
## [515,] "Google"    "Microsoft" "Facebook"  "Amazon"    "Liverpool"
## [516,] "Google"    "Microsoft" "Facebook"  "Apple"     "Amazon"   
## [517,] "Google"    "Microsoft" "Facebook"  "Apple"     "BBVA"     
## [518,] "Google"    "Microsoft" "Facebook"  "Apple"     "Coca-Cola"
## [519,] "Google"    "Microsoft" "Facebook"  "Apple"     "Coppel"   
## [520,] "Google"    "Microsoft" "Facebook"  "Apple"     "Liverpool"
## [521,] "Google"    "Microsoft" "Facebook"  "BBVA"      "Amazon"   
## [522,] "Google"    "Microsoft" "Facebook"  "BBVA"      "Apple"    
## [523,] "Google"    "Microsoft" "Facebook"  "BBVA"      "Coca-Cola"
## [524,] "Google"    "Microsoft" "Facebook"  "BBVA"      "Coppel"   
## [525,] "Google"    "Microsoft" "Facebook"  "BBVA"      "Liverpool"
## [526,] "Google"    "Microsoft" "Facebook"  "Coca-Cola" "Amazon"   
## [527,] "Google"    "Microsoft" "Facebook"  "Coca-Cola" "Apple"    
## [528,] "Google"    "Microsoft" "Facebook"  "Coca-Cola" "BBVA"     
## [529,] "Google"    "Microsoft" "Facebook"  "Coca-Cola" "Coppel"   
## [530,] "Google"    "Microsoft" "Facebook"  "Coca-Cola" "Liverpool"
## [531,] "Google"    "Microsoft" "Facebook"  "Coppel"    "Amazon"   
## [532,] "Google"    "Microsoft" "Facebook"  "Coppel"    "Apple"    
## [533,] "Google"    "Microsoft" "Facebook"  "Coppel"    "BBVA"     
## [534,] "Google"    "Microsoft" "Facebook"  "Coppel"    "Coca-Cola"
## [535,] "Google"    "Microsoft" "Facebook"  "Coppel"    "Liverpool"
## [536,] "Google"    "Microsoft" "Facebook"  "Liverpool" "Amazon"   
## [537,] "Google"    "Microsoft" "Facebook"  "Liverpool" "Apple"    
## [538,] "Google"    "Microsoft" "Facebook"  "Liverpool" "BBVA"     
## [539,] "Google"    "Microsoft" "Facebook"  "Liverpool" "Coca-Cola"
## [540,] "Google"    "Microsoft" "Facebook"  "Liverpool" "Coppel"   
## [541,] "Liverpool" "Amazon"    "Apple"     "Microsoft" "Facebook" 
## [542,] "Liverpool" "Amazon"    "BBVA"      "Microsoft" "Facebook" 
## [543,] "Liverpool" "Amazon"    "Coca-Cola" "Microsoft" "Facebook" 
## [544,] "Liverpool" "Amazon"    "Coppel"    "Microsoft" "Facebook" 
## [545,] "Liverpool" "Amazon"    "Google"    "Microsoft" "Facebook" 
## [546,] "Liverpool" "Amazon"    "Microsoft" "Facebook"  "Apple"    
## [547,] "Liverpool" "Amazon"    "Microsoft" "Facebook"  "BBVA"     
## [548,] "Liverpool" "Amazon"    "Microsoft" "Facebook"  "Coca-Cola"
## [549,] "Liverpool" "Amazon"    "Microsoft" "Facebook"  "Coppel"   
## [550,] "Liverpool" "Amazon"    "Microsoft" "Facebook"  "Google"   
## [551,] "Liverpool" "Apple"     "Amazon"    "Microsoft" "Facebook" 
## [552,] "Liverpool" "Apple"     "BBVA"      "Microsoft" "Facebook" 
## [553,] "Liverpool" "Apple"     "Coca-Cola" "Microsoft" "Facebook" 
## [554,] "Liverpool" "Apple"     "Coppel"    "Microsoft" "Facebook" 
## [555,] "Liverpool" "Apple"     "Google"    "Microsoft" "Facebook" 
## [556,] "Liverpool" "Apple"     "Microsoft" "Facebook"  "Amazon"   
## [557,] "Liverpool" "Apple"     "Microsoft" "Facebook"  "BBVA"     
## [558,] "Liverpool" "Apple"     "Microsoft" "Facebook"  "Coca-Cola"
## [559,] "Liverpool" "Apple"     "Microsoft" "Facebook"  "Coppel"   
## [560,] "Liverpool" "Apple"     "Microsoft" "Facebook"  "Google"   
## [561,] "Liverpool" "BBVA"      "Amazon"    "Microsoft" "Facebook" 
## [562,] "Liverpool" "BBVA"      "Apple"     "Microsoft" "Facebook" 
## [563,] "Liverpool" "BBVA"      "Coca-Cola" "Microsoft" "Facebook" 
## [564,] "Liverpool" "BBVA"      "Coppel"    "Microsoft" "Facebook" 
## [565,] "Liverpool" "BBVA"      "Google"    "Microsoft" "Facebook" 
## [566,] "Liverpool" "BBVA"      "Microsoft" "Facebook"  "Amazon"   
## [567,] "Liverpool" "BBVA"      "Microsoft" "Facebook"  "Apple"    
## [568,] "Liverpool" "BBVA"      "Microsoft" "Facebook"  "Coca-Cola"
## [569,] "Liverpool" "BBVA"      "Microsoft" "Facebook"  "Coppel"   
## [570,] "Liverpool" "BBVA"      "Microsoft" "Facebook"  "Google"   
## [571,] "Liverpool" "Coca-Cola" "Amazon"    "Microsoft" "Facebook" 
## [572,] "Liverpool" "Coca-Cola" "Apple"     "Microsoft" "Facebook" 
## [573,] "Liverpool" "Coca-Cola" "BBVA"      "Microsoft" "Facebook" 
## [574,] "Liverpool" "Coca-Cola" "Coppel"    "Microsoft" "Facebook" 
## [575,] "Liverpool" "Coca-Cola" "Google"    "Microsoft" "Facebook" 
## [576,] "Liverpool" "Coca-Cola" "Microsoft" "Facebook"  "Amazon"   
## [577,] "Liverpool" "Coca-Cola" "Microsoft" "Facebook"  "Apple"    
## [578,] "Liverpool" "Coca-Cola" "Microsoft" "Facebook"  "BBVA"     
## [579,] "Liverpool" "Coca-Cola" "Microsoft" "Facebook"  "Coppel"   
## [580,] "Liverpool" "Coca-Cola" "Microsoft" "Facebook"  "Google"   
## [581,] "Liverpool" "Coppel"    "Amazon"    "Microsoft" "Facebook" 
## [582,] "Liverpool" "Coppel"    "Apple"     "Microsoft" "Facebook" 
## [583,] "Liverpool" "Coppel"    "BBVA"      "Microsoft" "Facebook" 
## [584,] "Liverpool" "Coppel"    "Coca-Cola" "Microsoft" "Facebook" 
## [585,] "Liverpool" "Coppel"    "Google"    "Microsoft" "Facebook" 
## [586,] "Liverpool" "Coppel"    "Microsoft" "Facebook"  "Amazon"   
## [587,] "Liverpool" "Coppel"    "Microsoft" "Facebook"  "Apple"    
## [588,] "Liverpool" "Coppel"    "Microsoft" "Facebook"  "BBVA"     
## [589,] "Liverpool" "Coppel"    "Microsoft" "Facebook"  "Coca-Cola"
## [590,] "Liverpool" "Coppel"    "Microsoft" "Facebook"  "Google"   
## [591,] "Liverpool" "Google"    "Amazon"    "Microsoft" "Facebook" 
## [592,] "Liverpool" "Google"    "Apple"     "Microsoft" "Facebook" 
## [593,] "Liverpool" "Google"    "BBVA"      "Microsoft" "Facebook" 
## [594,] "Liverpool" "Google"    "Coca-Cola" "Microsoft" "Facebook" 
## [595,] "Liverpool" "Google"    "Coppel"    "Microsoft" "Facebook" 
## [596,] "Liverpool" "Google"    "Microsoft" "Facebook"  "Amazon"   
## [597,] "Liverpool" "Google"    "Microsoft" "Facebook"  "Apple"    
## [598,] "Liverpool" "Google"    "Microsoft" "Facebook"  "BBVA"     
## [599,] "Liverpool" "Google"    "Microsoft" "Facebook"  "Coca-Cola"
## [600,] "Liverpool" "Google"    "Microsoft" "Facebook"  "Coppel"   
## [601,] "Liverpool" "Microsoft" "Facebook"  "Amazon"    "Apple"    
## [602,] "Liverpool" "Microsoft" "Facebook"  "Amazon"    "BBVA"     
## [603,] "Liverpool" "Microsoft" "Facebook"  "Amazon"    "Coca-Cola"
## [604,] "Liverpool" "Microsoft" "Facebook"  "Amazon"    "Coppel"   
## [605,] "Liverpool" "Microsoft" "Facebook"  "Amazon"    "Google"   
## [606,] "Liverpool" "Microsoft" "Facebook"  "Apple"     "Amazon"   
## [607,] "Liverpool" "Microsoft" "Facebook"  "Apple"     "BBVA"     
## [608,] "Liverpool" "Microsoft" "Facebook"  "Apple"     "Coca-Cola"
## [609,] "Liverpool" "Microsoft" "Facebook"  "Apple"     "Coppel"   
## [610,] "Liverpool" "Microsoft" "Facebook"  "Apple"     "Google"   
## [611,] "Liverpool" "Microsoft" "Facebook"  "BBVA"      "Amazon"   
## [612,] "Liverpool" "Microsoft" "Facebook"  "BBVA"      "Apple"    
## [613,] "Liverpool" "Microsoft" "Facebook"  "BBVA"      "Coca-Cola"
## [614,] "Liverpool" "Microsoft" "Facebook"  "BBVA"      "Coppel"   
## [615,] "Liverpool" "Microsoft" "Facebook"  "BBVA"      "Google"   
## [616,] "Liverpool" "Microsoft" "Facebook"  "Coca-Cola" "Amazon"   
## [617,] "Liverpool" "Microsoft" "Facebook"  "Coca-Cola" "Apple"    
## [618,] "Liverpool" "Microsoft" "Facebook"  "Coca-Cola" "BBVA"     
## [619,] "Liverpool" "Microsoft" "Facebook"  "Coca-Cola" "Coppel"   
## [620,] "Liverpool" "Microsoft" "Facebook"  "Coca-Cola" "Google"   
## [621,] "Liverpool" "Microsoft" "Facebook"  "Coppel"    "Amazon"   
## [622,] "Liverpool" "Microsoft" "Facebook"  "Coppel"    "Apple"    
## [623,] "Liverpool" "Microsoft" "Facebook"  "Coppel"    "BBVA"     
## [624,] "Liverpool" "Microsoft" "Facebook"  "Coppel"    "Coca-Cola"
## [625,] "Liverpool" "Microsoft" "Facebook"  "Coppel"    "Google"   
## [626,] "Liverpool" "Microsoft" "Facebook"  "Google"    "Amazon"   
## [627,] "Liverpool" "Microsoft" "Facebook"  "Google"    "Apple"    
## [628,] "Liverpool" "Microsoft" "Facebook"  "Google"    "BBVA"     
## [629,] "Liverpool" "Microsoft" "Facebook"  "Google"    "Coca-Cola"
## [630,] "Liverpool" "Microsoft" "Facebook"  "Google"    "Coppel"   
## [631,] "Microsoft" "Facebook"  "Amazon"    "Apple"     "BBVA"     
## [632,] "Microsoft" "Facebook"  "Amazon"    "Apple"     "Coca-Cola"
## [633,] "Microsoft" "Facebook"  "Amazon"    "Apple"     "Coppel"   
## [634,] "Microsoft" "Facebook"  "Amazon"    "Apple"     "Google"   
## [635,] "Microsoft" "Facebook"  "Amazon"    "Apple"     "Liverpool"
## [636,] "Microsoft" "Facebook"  "Amazon"    "BBVA"      "Apple"    
## [637,] "Microsoft" "Facebook"  "Amazon"    "BBVA"      "Coca-Cola"
## [638,] "Microsoft" "Facebook"  "Amazon"    "BBVA"      "Coppel"   
## [639,] "Microsoft" "Facebook"  "Amazon"    "BBVA"      "Google"   
## [640,] "Microsoft" "Facebook"  "Amazon"    "BBVA"      "Liverpool"
## [641,] "Microsoft" "Facebook"  "Amazon"    "Coca-Cola" "Apple"    
## [642,] "Microsoft" "Facebook"  "Amazon"    "Coca-Cola" "BBVA"     
## [643,] "Microsoft" "Facebook"  "Amazon"    "Coca-Cola" "Coppel"   
## [644,] "Microsoft" "Facebook"  "Amazon"    "Coca-Cola" "Google"   
## [645,] "Microsoft" "Facebook"  "Amazon"    "Coca-Cola" "Liverpool"
## [646,] "Microsoft" "Facebook"  "Amazon"    "Coppel"    "Apple"    
## [647,] "Microsoft" "Facebook"  "Amazon"    "Coppel"    "BBVA"     
## [648,] "Microsoft" "Facebook"  "Amazon"    "Coppel"    "Coca-Cola"
## [649,] "Microsoft" "Facebook"  "Amazon"    "Coppel"    "Google"   
## [650,] "Microsoft" "Facebook"  "Amazon"    "Coppel"    "Liverpool"
## [651,] "Microsoft" "Facebook"  "Amazon"    "Google"    "Apple"    
## [652,] "Microsoft" "Facebook"  "Amazon"    "Google"    "BBVA"     
## [653,] "Microsoft" "Facebook"  "Amazon"    "Google"    "Coca-Cola"
## [654,] "Microsoft" "Facebook"  "Amazon"    "Google"    "Coppel"   
## [655,] "Microsoft" "Facebook"  "Amazon"    "Google"    "Liverpool"
## [656,] "Microsoft" "Facebook"  "Amazon"    "Liverpool" "Apple"    
## [657,] "Microsoft" "Facebook"  "Amazon"    "Liverpool" "BBVA"     
## [658,] "Microsoft" "Facebook"  "Amazon"    "Liverpool" "Coca-Cola"
## [659,] "Microsoft" "Facebook"  "Amazon"    "Liverpool" "Coppel"   
## [660,] "Microsoft" "Facebook"  "Amazon"    "Liverpool" "Google"   
## [661,] "Microsoft" "Facebook"  "Apple"     "Amazon"    "BBVA"     
## [662,] "Microsoft" "Facebook"  "Apple"     "Amazon"    "Coca-Cola"
## [663,] "Microsoft" "Facebook"  "Apple"     "Amazon"    "Coppel"   
## [664,] "Microsoft" "Facebook"  "Apple"     "Amazon"    "Google"   
## [665,] "Microsoft" "Facebook"  "Apple"     "Amazon"    "Liverpool"
## [666,] "Microsoft" "Facebook"  "Apple"     "BBVA"      "Amazon"   
## [667,] "Microsoft" "Facebook"  "Apple"     "BBVA"      "Coca-Cola"
## [668,] "Microsoft" "Facebook"  "Apple"     "BBVA"      "Coppel"   
## [669,] "Microsoft" "Facebook"  "Apple"     "BBVA"      "Google"   
## [670,] "Microsoft" "Facebook"  "Apple"     "BBVA"      "Liverpool"
## [671,] "Microsoft" "Facebook"  "Apple"     "Coca-Cola" "Amazon"   
## [672,] "Microsoft" "Facebook"  "Apple"     "Coca-Cola" "BBVA"     
## [673,] "Microsoft" "Facebook"  "Apple"     "Coca-Cola" "Coppel"   
## [674,] "Microsoft" "Facebook"  "Apple"     "Coca-Cola" "Google"   
## [675,] "Microsoft" "Facebook"  "Apple"     "Coca-Cola" "Liverpool"
## [676,] "Microsoft" "Facebook"  "Apple"     "Coppel"    "Amazon"   
## [677,] "Microsoft" "Facebook"  "Apple"     "Coppel"    "BBVA"     
## [678,] "Microsoft" "Facebook"  "Apple"     "Coppel"    "Coca-Cola"
## [679,] "Microsoft" "Facebook"  "Apple"     "Coppel"    "Google"   
## [680,] "Microsoft" "Facebook"  "Apple"     "Coppel"    "Liverpool"
## [681,] "Microsoft" "Facebook"  "Apple"     "Google"    "Amazon"   
## [682,] "Microsoft" "Facebook"  "Apple"     "Google"    "BBVA"     
## [683,] "Microsoft" "Facebook"  "Apple"     "Google"    "Coca-Cola"
## [684,] "Microsoft" "Facebook"  "Apple"     "Google"    "Coppel"   
## [685,] "Microsoft" "Facebook"  "Apple"     "Google"    "Liverpool"
## [686,] "Microsoft" "Facebook"  "Apple"     "Liverpool" "Amazon"   
## [687,] "Microsoft" "Facebook"  "Apple"     "Liverpool" "BBVA"     
## [688,] "Microsoft" "Facebook"  "Apple"     "Liverpool" "Coca-Cola"
## [689,] "Microsoft" "Facebook"  "Apple"     "Liverpool" "Coppel"   
## [690,] "Microsoft" "Facebook"  "Apple"     "Liverpool" "Google"   
## [691,] "Microsoft" "Facebook"  "BBVA"      "Amazon"    "Apple"    
## [692,] "Microsoft" "Facebook"  "BBVA"      "Amazon"    "Coca-Cola"
## [693,] "Microsoft" "Facebook"  "BBVA"      "Amazon"    "Coppel"   
## [694,] "Microsoft" "Facebook"  "BBVA"      "Amazon"    "Google"   
## [695,] "Microsoft" "Facebook"  "BBVA"      "Amazon"    "Liverpool"
## [696,] "Microsoft" "Facebook"  "BBVA"      "Apple"     "Amazon"   
## [697,] "Microsoft" "Facebook"  "BBVA"      "Apple"     "Coca-Cola"
## [698,] "Microsoft" "Facebook"  "BBVA"      "Apple"     "Coppel"   
## [699,] "Microsoft" "Facebook"  "BBVA"      "Apple"     "Google"   
## [700,] "Microsoft" "Facebook"  "BBVA"      "Apple"     "Liverpool"
## [701,] "Microsoft" "Facebook"  "BBVA"      "Coca-Cola" "Amazon"   
## [702,] "Microsoft" "Facebook"  "BBVA"      "Coca-Cola" "Apple"    
## [703,] "Microsoft" "Facebook"  "BBVA"      "Coca-Cola" "Coppel"   
## [704,] "Microsoft" "Facebook"  "BBVA"      "Coca-Cola" "Google"   
## [705,] "Microsoft" "Facebook"  "BBVA"      "Coca-Cola" "Liverpool"
## [706,] "Microsoft" "Facebook"  "BBVA"      "Coppel"    "Amazon"   
## [707,] "Microsoft" "Facebook"  "BBVA"      "Coppel"    "Apple"    
## [708,] "Microsoft" "Facebook"  "BBVA"      "Coppel"    "Coca-Cola"
## [709,] "Microsoft" "Facebook"  "BBVA"      "Coppel"    "Google"   
## [710,] "Microsoft" "Facebook"  "BBVA"      "Coppel"    "Liverpool"
## [711,] "Microsoft" "Facebook"  "BBVA"      "Google"    "Amazon"   
## [712,] "Microsoft" "Facebook"  "BBVA"      "Google"    "Apple"    
## [713,] "Microsoft" "Facebook"  "BBVA"      "Google"    "Coca-Cola"
## [714,] "Microsoft" "Facebook"  "BBVA"      "Google"    "Coppel"   
## [715,] "Microsoft" "Facebook"  "BBVA"      "Google"    "Liverpool"
## [716,] "Microsoft" "Facebook"  "BBVA"      "Liverpool" "Amazon"   
## [717,] "Microsoft" "Facebook"  "BBVA"      "Liverpool" "Apple"    
## [718,] "Microsoft" "Facebook"  "BBVA"      "Liverpool" "Coca-Cola"
## [719,] "Microsoft" "Facebook"  "BBVA"      "Liverpool" "Coppel"   
## [720,] "Microsoft" "Facebook"  "BBVA"      "Liverpool" "Google"   
## [721,] "Microsoft" "Facebook"  "Coca-Cola" "Amazon"    "Apple"    
## [722,] "Microsoft" "Facebook"  "Coca-Cola" "Amazon"    "BBVA"     
## [723,] "Microsoft" "Facebook"  "Coca-Cola" "Amazon"    "Coppel"   
## [724,] "Microsoft" "Facebook"  "Coca-Cola" "Amazon"    "Google"   
## [725,] "Microsoft" "Facebook"  "Coca-Cola" "Amazon"    "Liverpool"
## [726,] "Microsoft" "Facebook"  "Coca-Cola" "Apple"     "Amazon"   
## [727,] "Microsoft" "Facebook"  "Coca-Cola" "Apple"     "BBVA"     
## [728,] "Microsoft" "Facebook"  "Coca-Cola" "Apple"     "Coppel"   
## [729,] "Microsoft" "Facebook"  "Coca-Cola" "Apple"     "Google"   
## [730,] "Microsoft" "Facebook"  "Coca-Cola" "Apple"     "Liverpool"
## [731,] "Microsoft" "Facebook"  "Coca-Cola" "BBVA"      "Amazon"   
## [732,] "Microsoft" "Facebook"  "Coca-Cola" "BBVA"      "Apple"    
## [733,] "Microsoft" "Facebook"  "Coca-Cola" "BBVA"      "Coppel"   
## [734,] "Microsoft" "Facebook"  "Coca-Cola" "BBVA"      "Google"   
## [735,] "Microsoft" "Facebook"  "Coca-Cola" "BBVA"      "Liverpool"
## [736,] "Microsoft" "Facebook"  "Coca-Cola" "Coppel"    "Amazon"   
## [737,] "Microsoft" "Facebook"  "Coca-Cola" "Coppel"    "Apple"    
## [738,] "Microsoft" "Facebook"  "Coca-Cola" "Coppel"    "BBVA"     
## [739,] "Microsoft" "Facebook"  "Coca-Cola" "Coppel"    "Google"   
## [740,] "Microsoft" "Facebook"  "Coca-Cola" "Coppel"    "Liverpool"
## [741,] "Microsoft" "Facebook"  "Coca-Cola" "Google"    "Amazon"   
## [742,] "Microsoft" "Facebook"  "Coca-Cola" "Google"    "Apple"    
## [743,] "Microsoft" "Facebook"  "Coca-Cola" "Google"    "BBVA"     
## [744,] "Microsoft" "Facebook"  "Coca-Cola" "Google"    "Coppel"   
## [745,] "Microsoft" "Facebook"  "Coca-Cola" "Google"    "Liverpool"
## [746,] "Microsoft" "Facebook"  "Coca-Cola" "Liverpool" "Amazon"   
## [747,] "Microsoft" "Facebook"  "Coca-Cola" "Liverpool" "Apple"    
## [748,] "Microsoft" "Facebook"  "Coca-Cola" "Liverpool" "BBVA"     
## [749,] "Microsoft" "Facebook"  "Coca-Cola" "Liverpool" "Coppel"   
## [750,] "Microsoft" "Facebook"  "Coca-Cola" "Liverpool" "Google"   
## [751,] "Microsoft" "Facebook"  "Coppel"    "Amazon"    "Apple"    
## [752,] "Microsoft" "Facebook"  "Coppel"    "Amazon"    "BBVA"     
## [753,] "Microsoft" "Facebook"  "Coppel"    "Amazon"    "Coca-Cola"
## [754,] "Microsoft" "Facebook"  "Coppel"    "Amazon"    "Google"   
## [755,] "Microsoft" "Facebook"  "Coppel"    "Amazon"    "Liverpool"
## [756,] "Microsoft" "Facebook"  "Coppel"    "Apple"     "Amazon"   
## [757,] "Microsoft" "Facebook"  "Coppel"    "Apple"     "BBVA"     
## [758,] "Microsoft" "Facebook"  "Coppel"    "Apple"     "Coca-Cola"
## [759,] "Microsoft" "Facebook"  "Coppel"    "Apple"     "Google"   
## [760,] "Microsoft" "Facebook"  "Coppel"    "Apple"     "Liverpool"
## [761,] "Microsoft" "Facebook"  "Coppel"    "BBVA"      "Amazon"   
## [762,] "Microsoft" "Facebook"  "Coppel"    "BBVA"      "Apple"    
## [763,] "Microsoft" "Facebook"  "Coppel"    "BBVA"      "Coca-Cola"
## [764,] "Microsoft" "Facebook"  "Coppel"    "BBVA"      "Google"   
## [765,] "Microsoft" "Facebook"  "Coppel"    "BBVA"      "Liverpool"
## [766,] "Microsoft" "Facebook"  "Coppel"    "Coca-Cola" "Amazon"   
## [767,] "Microsoft" "Facebook"  "Coppel"    "Coca-Cola" "Apple"    
## [768,] "Microsoft" "Facebook"  "Coppel"    "Coca-Cola" "BBVA"     
## [769,] "Microsoft" "Facebook"  "Coppel"    "Coca-Cola" "Google"   
## [770,] "Microsoft" "Facebook"  "Coppel"    "Coca-Cola" "Liverpool"
## [771,] "Microsoft" "Facebook"  "Coppel"    "Google"    "Amazon"   
## [772,] "Microsoft" "Facebook"  "Coppel"    "Google"    "Apple"    
## [773,] "Microsoft" "Facebook"  "Coppel"    "Google"    "BBVA"     
## [774,] "Microsoft" "Facebook"  "Coppel"    "Google"    "Coca-Cola"
## [775,] "Microsoft" "Facebook"  "Coppel"    "Google"    "Liverpool"
## [776,] "Microsoft" "Facebook"  "Coppel"    "Liverpool" "Amazon"   
## [777,] "Microsoft" "Facebook"  "Coppel"    "Liverpool" "Apple"    
## [778,] "Microsoft" "Facebook"  "Coppel"    "Liverpool" "BBVA"     
## [779,] "Microsoft" "Facebook"  "Coppel"    "Liverpool" "Coca-Cola"
## [780,] "Microsoft" "Facebook"  "Coppel"    "Liverpool" "Google"   
## [781,] "Microsoft" "Facebook"  "Google"    "Amazon"    "Apple"    
## [782,] "Microsoft" "Facebook"  "Google"    "Amazon"    "BBVA"     
## [783,] "Microsoft" "Facebook"  "Google"    "Amazon"    "Coca-Cola"
## [784,] "Microsoft" "Facebook"  "Google"    "Amazon"    "Coppel"   
## [785,] "Microsoft" "Facebook"  "Google"    "Amazon"    "Liverpool"
## [786,] "Microsoft" "Facebook"  "Google"    "Apple"     "Amazon"   
## [787,] "Microsoft" "Facebook"  "Google"    "Apple"     "BBVA"     
## [788,] "Microsoft" "Facebook"  "Google"    "Apple"     "Coca-Cola"
## [789,] "Microsoft" "Facebook"  "Google"    "Apple"     "Coppel"   
## [790,] "Microsoft" "Facebook"  "Google"    "Apple"     "Liverpool"
## [791,] "Microsoft" "Facebook"  "Google"    "BBVA"      "Amazon"   
## [792,] "Microsoft" "Facebook"  "Google"    "BBVA"      "Apple"    
## [793,] "Microsoft" "Facebook"  "Google"    "BBVA"      "Coca-Cola"
## [794,] "Microsoft" "Facebook"  "Google"    "BBVA"      "Coppel"   
## [795,] "Microsoft" "Facebook"  "Google"    "BBVA"      "Liverpool"
## [796,] "Microsoft" "Facebook"  "Google"    "Coca-Cola" "Amazon"   
## [797,] "Microsoft" "Facebook"  "Google"    "Coca-Cola" "Apple"    
## [798,] "Microsoft" "Facebook"  "Google"    "Coca-Cola" "BBVA"     
## [799,] "Microsoft" "Facebook"  "Google"    "Coca-Cola" "Coppel"   
## [800,] "Microsoft" "Facebook"  "Google"    "Coca-Cola" "Liverpool"
## [801,] "Microsoft" "Facebook"  "Google"    "Coppel"    "Amazon"   
## [802,] "Microsoft" "Facebook"  "Google"    "Coppel"    "Apple"    
## [803,] "Microsoft" "Facebook"  "Google"    "Coppel"    "BBVA"     
## [804,] "Microsoft" "Facebook"  "Google"    "Coppel"    "Coca-Cola"
## [805,] "Microsoft" "Facebook"  "Google"    "Coppel"    "Liverpool"
## [806,] "Microsoft" "Facebook"  "Google"    "Liverpool" "Amazon"   
## [807,] "Microsoft" "Facebook"  "Google"    "Liverpool" "Apple"    
## [808,] "Microsoft" "Facebook"  "Google"    "Liverpool" "BBVA"     
## [809,] "Microsoft" "Facebook"  "Google"    "Liverpool" "Coca-Cola"
## [810,] "Microsoft" "Facebook"  "Google"    "Liverpool" "Coppel"   
## [811,] "Microsoft" "Facebook"  "Liverpool" "Amazon"    "Apple"    
## [812,] "Microsoft" "Facebook"  "Liverpool" "Amazon"    "BBVA"     
## [813,] "Microsoft" "Facebook"  "Liverpool" "Amazon"    "Coca-Cola"
## [814,] "Microsoft" "Facebook"  "Liverpool" "Amazon"    "Coppel"   
## [815,] "Microsoft" "Facebook"  "Liverpool" "Amazon"    "Google"   
## [816,] "Microsoft" "Facebook"  "Liverpool" "Apple"     "Amazon"   
## [817,] "Microsoft" "Facebook"  "Liverpool" "Apple"     "BBVA"     
## [818,] "Microsoft" "Facebook"  "Liverpool" "Apple"     "Coca-Cola"
## [819,] "Microsoft" "Facebook"  "Liverpool" "Apple"     "Coppel"   
## [820,] "Microsoft" "Facebook"  "Liverpool" "Apple"     "Google"   
## [821,] "Microsoft" "Facebook"  "Liverpool" "BBVA"      "Amazon"   
## [822,] "Microsoft" "Facebook"  "Liverpool" "BBVA"      "Apple"    
## [823,] "Microsoft" "Facebook"  "Liverpool" "BBVA"      "Coca-Cola"
## [824,] "Microsoft" "Facebook"  "Liverpool" "BBVA"      "Coppel"   
## [825,] "Microsoft" "Facebook"  "Liverpool" "BBVA"      "Google"   
## [826,] "Microsoft" "Facebook"  "Liverpool" "Coca-Cola" "Amazon"   
## [827,] "Microsoft" "Facebook"  "Liverpool" "Coca-Cola" "Apple"    
## [828,] "Microsoft" "Facebook"  "Liverpool" "Coca-Cola" "BBVA"     
## [829,] "Microsoft" "Facebook"  "Liverpool" "Coca-Cola" "Coppel"   
## [830,] "Microsoft" "Facebook"  "Liverpool" "Coca-Cola" "Google"   
## [831,] "Microsoft" "Facebook"  "Liverpool" "Coppel"    "Amazon"   
## [832,] "Microsoft" "Facebook"  "Liverpool" "Coppel"    "Apple"    
## [833,] "Microsoft" "Facebook"  "Liverpool" "Coppel"    "BBVA"     
## [834,] "Microsoft" "Facebook"  "Liverpool" "Coppel"    "Coca-Cola"
## [835,] "Microsoft" "Facebook"  "Liverpool" "Coppel"    "Google"   
## [836,] "Microsoft" "Facebook"  "Liverpool" "Google"    "Amazon"   
## [837,] "Microsoft" "Facebook"  "Liverpool" "Google"    "Apple"    
## [838,] "Microsoft" "Facebook"  "Liverpool" "Google"    "BBVA"     
## [839,] "Microsoft" "Facebook"  "Liverpool" "Google"    "Coca-Cola"
## [840,] "Microsoft" "Facebook"  "Liverpool" "Google"    "Coppel"

frecuencia <- nrow(filtro)
paste("Existen ", frecuencia, " aparece de manera contigua y en este orden los equipos de Microsoft y Facebook en cualquier columna , de un total de ", nrow(Pern.empresas), " representan ", round(frecuencia / nrow(Pern.empresas) * 100, 2), "%")

## [1] "Existen  840  aparece de manera contigua y en este orden los equipos de Microsoft y Facebook en cualquier columna , de un total de  15120  representan  5.56 %"

Caso 08 Permutaciones

Paola Itzel Bonilla Bautista

2023-03-01

Objetivo

Descripción

Cargar librerías

Marco conceptual

Factorial

Permutaciones

Fórmula de permutaciones

Ejemplo 1. Nombres de personas

Ejemplo 2. Nombres de equipos de fútbol en México.

Desarrollo

Permutaciones

Nombres de personas

Nombres de empresas.

Interpretación

Preguntas sobre espacio muestral nombres

Preguntas sobre espacio muestral empresas