1 Objetivo

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

2 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

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

3 Marco conceptual

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

3.1 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\)

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

3.2.1 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} \]

3.3 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", "Daniel", "Marco", "Enrique", "Ivan", "Andres")
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"

3.4 Ejemplo 2. Nombres de equipos de empresas.

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

¿Cuántas permutaciones deberá haber?

empresas <- c("Apple", "Bimbo", "Microsoft", "Huawei", "Samsung", "Adidas", "Nike", "Champion", "Logitech")
n <- length(empresas)
r <- 9 # ¿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  362880  posibles permutaciones del total de  9  empresas   en grupos de  9  en  9"

4 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

4.1 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

4.1.1 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"    "Lucy"   
##  [8] "Alberto" "Juan"    "Daniel"  "Marco"   "Enrique" "Ivan"    "Andres"

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

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

4.1.2 Nombres de equipos de fútbol

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

empresas

## [1] "Apple"     "Bimbo"     "Microsoft" "Huawei"    "Samsung"   "Adidas"   
## [7] "Nike"      "Champion"  "Logitech"

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,] "Adidas" "Apple" "Bimbo" "Champion" "Huawei"   
## [2,] "Adidas" "Apple" "Bimbo" "Champion" "Logitech" 
## [3,] "Adidas" "Apple" "Bimbo" "Champion" "Microsoft"
## [4,] "Adidas" "Apple" "Bimbo" "Champion" "Nike"     
## [5,] "Adidas" "Apple" "Bimbo" "Champion" "Samsung"  
## [6,] "Adidas" "Apple" "Bimbo" "Huawei"   "Champion"

tail(Pern.empresas)

##          [,1]      [,2]   [,3]        [,4]       [,5]      
## [15115,] "Samsung" "Nike" "Microsoft" "Huawei"   "Logitech"
## [15116,] "Samsung" "Nike" "Microsoft" "Logitech" "Adidas"  
## [15117,] "Samsung" "Nike" "Microsoft" "Logitech" "Apple"   
## [15118,] "Samsung" "Nike" "Microsoft" "Logitech" "Bimbo"   
## [15119,] "Samsung" "Nike" "Microsoft" "Logitech" "Champion"
## [15120,] "Samsung" "Nike" "Microsoft" "Logitech" "Huawei"

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

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

5.1 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" "Andres" 
##  [3,] "Oscar" "Daniel" 
##  [4,] "Oscar" "Enrique"
##  [5,] "Oscar" "Ivan"   
##  [6,] "Oscar" "Juan"   
##  [7,] "Oscar" "Laura"  
##  [8,] "Oscar" "Lucy"   
##  [9,] "Oscar" "Luis"   
## [10,] "Oscar" "Marco"  
## [11,] "Oscar" "Paco"   
## [12,] "Oscar" "Paty"   
## [13,] "Oscar" "Rubén"

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 %"

5.2 Preguntas sobre espacio muestral empresas

En cuántas ocasiones aparece de manera contigua y en este orden las empresasa de nike y adidas en primera y segunda columna respectivamente.

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

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

frecuencia <- nrow(filtro)
paste("Existen ", frecuencia, " aparece de manera contigua y en este orden las empresas de Nike y adidas en la primera y segunda columna respectivamente , de un total de ", nrow(Pern.empresas), " representan ", round(frecuencia / nrow(Pern.empresas) * 100, 2), "%")

## [1] "Existen  210  aparece de manera contigua y en este orden las empresas de Nike y adidas en la primera y segunda columna respectivamente , de un total de  15120  representan  1.39 %"

En cuántas ocasiones aparece de manera contigua y en este orden las empresas de Huawei y Samsung en primera y segunda columna respectivamente.

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

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

frecuencia <- nrow(filtro)
paste("Existen ", frecuencia, " aparece de manera contigua y en este orden las empresas de Huawei y Samsung en la primera y segunda columna respectivamente , de un total de ", nrow(Pern.empresas), " representan ", round(frecuencia / nrow(Pern.empresas) * 100, 2), "%")

## [1] "Existen  210  aparece de manera contigua y en este orden las empresas de Huawei y Samsung en la primera y segunda columna respectivamente , de un total de  15120  representan  1.39 %"

¿En cuántas ocasiones aparece de manera contigua y en este orden las empresas de Apple y Bimbo en cualquier columna uno y dos, dos y tres, tres y cuatro o cuatro y cinco?

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

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

frecuencia <- nrow(filtro)
paste("Existen ", frecuencia, " aparece de manera contigua y en este orden las empresas de Apple y bimbo 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 las empresas de Apple y bimbo en cualquier columna , de un total de  15120  representan  5.56 %"

Caso8_Permutaciones

Daniel Ibrahim Rosales Gamboa

2023-02-28