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", "Axell", "Roy", "Fatima","Myriam", "Victoria", "Luz", "Marisol", "Diana", "Ingrid", "Valeria", "Talylor", "Adriana", "Michelle", "Alondra", "Alexa", "Nicole")
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  600  posibles permutaciones del total de  25  nombres   en grupos de  2  en  2"

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

Se trata de hacer combinaciones con los nombres de seis equipos de fútbol: “Atlas”, “Guadalajara”, “Monterrey”, “América”, “Cruz Azul”, “Santos” en grupos de 5. Entonces \(n=9\), porque hay seis equipos o elementos y \(r=5\) porque se trata de agrupar de tres en tres.

¿Cuántas permutaciones deberá haber?

empresas <- c("Nike", "Rebook", "Under", "Puma", "Aero", "Levi", "Chanele", "Pull & bear", "Gap")
n <- length(empresas)
r <- 5 # ¿cómo agrupar?

Pn <- factorial(n) / factorial(n-r)

paste("Existen ", Pn , " posibles permutaciones del total de ", n , " equipos ", " en grupos de ", r ," en ", r)

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

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"    
##  [7] "Lucy"     "Alberto"  "Juan"     "Axell"    "Roy"      "Fatima"  
## [13] "Myriam"   "Victoria" "Luz"      "Marisol"  "Diana"    "Ingrid"  
## [19] "Valeria"  "Talylor"  "Adriana"  "Michelle" "Alondra"  "Alexa"   
## [25] "Nicole"

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

##        [,1]       [,2]      
##   [1,] "Adriana"  "Alberto" 
##   [2,] "Adriana"  "Alexa"   
##   [3,] "Adriana"  "Alondra" 
##   [4,] "Adriana"  "Axell"   
##   [5,] "Adriana"  "Diana"   
##   [6,] "Adriana"  "Fatima"  
##   [7,] "Adriana"  "Ingrid"  
##   [8,] "Adriana"  "Juan"    
##   [9,] "Adriana"  "Laura"   
##  [10,] "Adriana"  "Lucy"    
##  [11,] "Adriana"  "Luis"    
##  [12,] "Adriana"  "Luz"     
##  [13,] "Adriana"  "Marisol" 
##  [14,] "Adriana"  "Michelle"
##  [15,] "Adriana"  "Myriam"  
##  [16,] "Adriana"  "Nicole"  
##  [17,] "Adriana"  "Oscar"   
##  [18,] "Adriana"  "Paco"    
##  [19,] "Adriana"  "Paty"    
##  [20,] "Adriana"  "Roy"     
##  [21,] "Adriana"  "Rubén"   
##  [22,] "Adriana"  "Talylor" 
##  [23,] "Adriana"  "Valeria" 
##  [24,] "Adriana"  "Victoria"
##  [25,] "Alberto"  "Adriana" 
##  [26,] "Alberto"  "Alexa"   
##  [27,] "Alberto"  "Alondra" 
##  [28,] "Alberto"  "Axell"   
##  [29,] "Alberto"  "Diana"   
##  [30,] "Alberto"  "Fatima"  
##  [31,] "Alberto"  "Ingrid"  
##  [32,] "Alberto"  "Juan"    
##  [33,] "Alberto"  "Laura"   
##  [34,] "Alberto"  "Lucy"    
##  [35,] "Alberto"  "Luis"    
##  [36,] "Alberto"  "Luz"     
##  [37,] "Alberto"  "Marisol" 
##  [38,] "Alberto"  "Michelle"
##  [39,] "Alberto"  "Myriam"  
##  [40,] "Alberto"  "Nicole"  
##  [41,] "Alberto"  "Oscar"   
##  [42,] "Alberto"  "Paco"    
##  [43,] "Alberto"  "Paty"    
##  [44,] "Alberto"  "Roy"     
##  [45,] "Alberto"  "Rubén"   
##  [46,] "Alberto"  "Talylor" 
##  [47,] "Alberto"  "Valeria" 
##  [48,] "Alberto"  "Victoria"
##  [49,] "Alexa"    "Adriana" 
##  [50,] "Alexa"    "Alberto" 
##  [51,] "Alexa"    "Alondra" 
##  [52,] "Alexa"    "Axell"   
##  [53,] "Alexa"    "Diana"   
##  [54,] "Alexa"    "Fatima"  
##  [55,] "Alexa"    "Ingrid"  
##  [56,] "Alexa"    "Juan"    
##  [57,] "Alexa"    "Laura"   
##  [58,] "Alexa"    "Lucy"    
##  [59,] "Alexa"    "Luis"    
##  [60,] "Alexa"    "Luz"     
##  [61,] "Alexa"    "Marisol" 
##  [62,] "Alexa"    "Michelle"
##  [63,] "Alexa"    "Myriam"  
##  [64,] "Alexa"    "Nicole"  
##  [65,] "Alexa"    "Oscar"   
##  [66,] "Alexa"    "Paco"    
##  [67,] "Alexa"    "Paty"    
##  [68,] "Alexa"    "Roy"     
##  [69,] "Alexa"    "Rubén"   
##  [70,] "Alexa"    "Talylor" 
##  [71,] "Alexa"    "Valeria" 
##  [72,] "Alexa"    "Victoria"
##  [73,] "Alondra"  "Adriana" 
##  [74,] "Alondra"  "Alberto" 
##  [75,] "Alondra"  "Alexa"   
##  [76,] "Alondra"  "Axell"   
##  [77,] "Alondra"  "Diana"   
##  [78,] "Alondra"  "Fatima"  
##  [79,] "Alondra"  "Ingrid"  
##  [80,] "Alondra"  "Juan"    
##  [81,] "Alondra"  "Laura"   
##  [82,] "Alondra"  "Lucy"    
##  [83,] "Alondra"  "Luis"    
##  [84,] "Alondra"  "Luz"     
##  [85,] "Alondra"  "Marisol" 
##  [86,] "Alondra"  "Michelle"
##  [87,] "Alondra"  "Myriam"  
##  [88,] "Alondra"  "Nicole"  
##  [89,] "Alondra"  "Oscar"   
##  [90,] "Alondra"  "Paco"    
##  [91,] "Alondra"  "Paty"    
##  [92,] "Alondra"  "Roy"     
##  [93,] "Alondra"  "Rubén"   
##  [94,] "Alondra"  "Talylor" 
##  [95,] "Alondra"  "Valeria" 
##  [96,] "Alondra"  "Victoria"
##  [97,] "Axell"    "Adriana" 
##  [98,] "Axell"    "Alberto" 
##  [99,] "Axell"    "Alexa"   
## [100,] "Axell"    "Alondra" 
## [101,] "Axell"    "Diana"   
## [102,] "Axell"    "Fatima"  
## [103,] "Axell"    "Ingrid"  
## [104,] "Axell"    "Juan"    
## [105,] "Axell"    "Laura"   
## [106,] "Axell"    "Lucy"    
## [107,] "Axell"    "Luis"    
## [108,] "Axell"    "Luz"     
## [109,] "Axell"    "Marisol" 
## [110,] "Axell"    "Michelle"
## [111,] "Axell"    "Myriam"  
## [112,] "Axell"    "Nicole"  
## [113,] "Axell"    "Oscar"   
## [114,] "Axell"    "Paco"    
## [115,] "Axell"    "Paty"    
## [116,] "Axell"    "Roy"     
## [117,] "Axell"    "Rubén"   
## [118,] "Axell"    "Talylor" 
## [119,] "Axell"    "Valeria" 
## [120,] "Axell"    "Victoria"
## [121,] "Diana"    "Adriana" 
## [122,] "Diana"    "Alberto" 
## [123,] "Diana"    "Alexa"   
## [124,] "Diana"    "Alondra" 
## [125,] "Diana"    "Axell"   
## [126,] "Diana"    "Fatima"  
## [127,] "Diana"    "Ingrid"  
## [128,] "Diana"    "Juan"    
## [129,] "Diana"    "Laura"   
## [130,] "Diana"    "Lucy"    
## [131,] "Diana"    "Luis"    
## [132,] "Diana"    "Luz"     
## [133,] "Diana"    "Marisol" 
## [134,] "Diana"    "Michelle"
## [135,] "Diana"    "Myriam"  
## [136,] "Diana"    "Nicole"  
## [137,] "Diana"    "Oscar"   
## [138,] "Diana"    "Paco"    
## [139,] "Diana"    "Paty"    
## [140,] "Diana"    "Roy"     
## [141,] "Diana"    "Rubén"   
## [142,] "Diana"    "Talylor" 
## [143,] "Diana"    "Valeria" 
## [144,] "Diana"    "Victoria"
## [145,] "Fatima"   "Adriana" 
## [146,] "Fatima"   "Alberto" 
## [147,] "Fatima"   "Alexa"   
## [148,] "Fatima"   "Alondra" 
## [149,] "Fatima"   "Axell"   
## [150,] "Fatima"   "Diana"   
## [151,] "Fatima"   "Ingrid"  
## [152,] "Fatima"   "Juan"    
## [153,] "Fatima"   "Laura"   
## [154,] "Fatima"   "Lucy"    
## [155,] "Fatima"   "Luis"    
## [156,] "Fatima"   "Luz"     
## [157,] "Fatima"   "Marisol" 
## [158,] "Fatima"   "Michelle"
## [159,] "Fatima"   "Myriam"  
## [160,] "Fatima"   "Nicole"  
## [161,] "Fatima"   "Oscar"   
## [162,] "Fatima"   "Paco"    
## [163,] "Fatima"   "Paty"    
## [164,] "Fatima"   "Roy"     
## [165,] "Fatima"   "Rubén"   
## [166,] "Fatima"   "Talylor" 
## [167,] "Fatima"   "Valeria" 
## [168,] "Fatima"   "Victoria"
## [169,] "Ingrid"   "Adriana" 
## [170,] "Ingrid"   "Alberto" 
## [171,] "Ingrid"   "Alexa"   
## [172,] "Ingrid"   "Alondra" 
## [173,] "Ingrid"   "Axell"   
## [174,] "Ingrid"   "Diana"   
## [175,] "Ingrid"   "Fatima"  
## [176,] "Ingrid"   "Juan"    
## [177,] "Ingrid"   "Laura"   
## [178,] "Ingrid"   "Lucy"    
## [179,] "Ingrid"   "Luis"    
## [180,] "Ingrid"   "Luz"     
## [181,] "Ingrid"   "Marisol" 
## [182,] "Ingrid"   "Michelle"
## [183,] "Ingrid"   "Myriam"  
## [184,] "Ingrid"   "Nicole"  
## [185,] "Ingrid"   "Oscar"   
## [186,] "Ingrid"   "Paco"    
## [187,] "Ingrid"   "Paty"    
## [188,] "Ingrid"   "Roy"     
## [189,] "Ingrid"   "Rubén"   
## [190,] "Ingrid"   "Talylor" 
## [191,] "Ingrid"   "Valeria" 
## [192,] "Ingrid"   "Victoria"
## [193,] "Juan"     "Adriana" 
## [194,] "Juan"     "Alberto" 
## [195,] "Juan"     "Alexa"   
## [196,] "Juan"     "Alondra" 
## [197,] "Juan"     "Axell"   
## [198,] "Juan"     "Diana"   
## [199,] "Juan"     "Fatima"  
## [200,] "Juan"     "Ingrid"  
## [201,] "Juan"     "Laura"   
## [202,] "Juan"     "Lucy"    
## [203,] "Juan"     "Luis"    
## [204,] "Juan"     "Luz"     
## [205,] "Juan"     "Marisol" 
## [206,] "Juan"     "Michelle"
## [207,] "Juan"     "Myriam"  
## [208,] "Juan"     "Nicole"  
## [209,] "Juan"     "Oscar"   
## [210,] "Juan"     "Paco"    
## [211,] "Juan"     "Paty"    
## [212,] "Juan"     "Roy"     
## [213,] "Juan"     "Rubén"   
## [214,] "Juan"     "Talylor" 
## [215,] "Juan"     "Valeria" 
## [216,] "Juan"     "Victoria"
## [217,] "Laura"    "Adriana" 
## [218,] "Laura"    "Alberto" 
## [219,] "Laura"    "Alexa"   
## [220,] "Laura"    "Alondra" 
## [221,] "Laura"    "Axell"   
## [222,] "Laura"    "Diana"   
## [223,] "Laura"    "Fatima"  
## [224,] "Laura"    "Ingrid"  
## [225,] "Laura"    "Juan"    
## [226,] "Laura"    "Lucy"    
## [227,] "Laura"    "Luis"    
## [228,] "Laura"    "Luz"     
## [229,] "Laura"    "Marisol" 
## [230,] "Laura"    "Michelle"
## [231,] "Laura"    "Myriam"  
## [232,] "Laura"    "Nicole"  
## [233,] "Laura"    "Oscar"   
## [234,] "Laura"    "Paco"    
## [235,] "Laura"    "Paty"    
## [236,] "Laura"    "Roy"     
## [237,] "Laura"    "Rubén"   
## [238,] "Laura"    "Talylor" 
## [239,] "Laura"    "Valeria" 
## [240,] "Laura"    "Victoria"
## [241,] "Lucy"     "Adriana" 
## [242,] "Lucy"     "Alberto" 
## [243,] "Lucy"     "Alexa"   
## [244,] "Lucy"     "Alondra" 
## [245,] "Lucy"     "Axell"   
## [246,] "Lucy"     "Diana"   
## [247,] "Lucy"     "Fatima"  
## [248,] "Lucy"     "Ingrid"  
## [249,] "Lucy"     "Juan"    
## [250,] "Lucy"     "Laura"   
## [251,] "Lucy"     "Luis"    
## [252,] "Lucy"     "Luz"     
## [253,] "Lucy"     "Marisol" 
## [254,] "Lucy"     "Michelle"
## [255,] "Lucy"     "Myriam"  
## [256,] "Lucy"     "Nicole"  
## [257,] "Lucy"     "Oscar"   
## [258,] "Lucy"     "Paco"    
## [259,] "Lucy"     "Paty"    
## [260,] "Lucy"     "Roy"     
## [261,] "Lucy"     "Rubén"   
## [262,] "Lucy"     "Talylor" 
## [263,] "Lucy"     "Valeria" 
## [264,] "Lucy"     "Victoria"
## [265,] "Luis"     "Adriana" 
## [266,] "Luis"     "Alberto" 
## [267,] "Luis"     "Alexa"   
## [268,] "Luis"     "Alondra" 
## [269,] "Luis"     "Axell"   
## [270,] "Luis"     "Diana"   
## [271,] "Luis"     "Fatima"  
## [272,] "Luis"     "Ingrid"  
## [273,] "Luis"     "Juan"    
## [274,] "Luis"     "Laura"   
## [275,] "Luis"     "Lucy"    
## [276,] "Luis"     "Luz"     
## [277,] "Luis"     "Marisol" 
## [278,] "Luis"     "Michelle"
## [279,] "Luis"     "Myriam"  
## [280,] "Luis"     "Nicole"  
## [281,] "Luis"     "Oscar"   
## [282,] "Luis"     "Paco"    
## [283,] "Luis"     "Paty"    
## [284,] "Luis"     "Roy"     
## [285,] "Luis"     "Rubén"   
## [286,] "Luis"     "Talylor" 
## [287,] "Luis"     "Valeria" 
## [288,] "Luis"     "Victoria"
## [289,] "Luz"      "Adriana" 
## [290,] "Luz"      "Alberto" 
## [291,] "Luz"      "Alexa"   
## [292,] "Luz"      "Alondra" 
## [293,] "Luz"      "Axell"   
## [294,] "Luz"      "Diana"   
## [295,] "Luz"      "Fatima"  
## [296,] "Luz"      "Ingrid"  
## [297,] "Luz"      "Juan"    
## [298,] "Luz"      "Laura"   
## [299,] "Luz"      "Lucy"    
## [300,] "Luz"      "Luis"    
## [301,] "Luz"      "Marisol" 
## [302,] "Luz"      "Michelle"
## [303,] "Luz"      "Myriam"  
## [304,] "Luz"      "Nicole"  
## [305,] "Luz"      "Oscar"   
## [306,] "Luz"      "Paco"    
## [307,] "Luz"      "Paty"    
## [308,] "Luz"      "Roy"     
## [309,] "Luz"      "Rubén"   
## [310,] "Luz"      "Talylor" 
## [311,] "Luz"      "Valeria" 
## [312,] "Luz"      "Victoria"
## [313,] "Marisol"  "Adriana" 
## [314,] "Marisol"  "Alberto" 
## [315,] "Marisol"  "Alexa"   
## [316,] "Marisol"  "Alondra" 
## [317,] "Marisol"  "Axell"   
## [318,] "Marisol"  "Diana"   
## [319,] "Marisol"  "Fatima"  
## [320,] "Marisol"  "Ingrid"  
## [321,] "Marisol"  "Juan"    
## [322,] "Marisol"  "Laura"   
## [323,] "Marisol"  "Lucy"    
## [324,] "Marisol"  "Luis"    
## [325,] "Marisol"  "Luz"     
## [326,] "Marisol"  "Michelle"
## [327,] "Marisol"  "Myriam"  
## [328,] "Marisol"  "Nicole"  
## [329,] "Marisol"  "Oscar"   
## [330,] "Marisol"  "Paco"    
## [331,] "Marisol"  "Paty"    
## [332,] "Marisol"  "Roy"     
## [333,] "Marisol"  "Rubén"   
## [334,] "Marisol"  "Talylor" 
## [335,] "Marisol"  "Valeria" 
## [336,] "Marisol"  "Victoria"
## [337,] "Michelle" "Adriana" 
## [338,] "Michelle" "Alberto" 
## [339,] "Michelle" "Alexa"   
## [340,] "Michelle" "Alondra" 
## [341,] "Michelle" "Axell"   
## [342,] "Michelle" "Diana"   
## [343,] "Michelle" "Fatima"  
## [344,] "Michelle" "Ingrid"  
## [345,] "Michelle" "Juan"    
## [346,] "Michelle" "Laura"   
## [347,] "Michelle" "Lucy"    
## [348,] "Michelle" "Luis"    
## [349,] "Michelle" "Luz"     
## [350,] "Michelle" "Marisol" 
## [351,] "Michelle" "Myriam"  
## [352,] "Michelle" "Nicole"  
## [353,] "Michelle" "Oscar"   
## [354,] "Michelle" "Paco"    
## [355,] "Michelle" "Paty"    
## [356,] "Michelle" "Roy"     
## [357,] "Michelle" "Rubén"   
## [358,] "Michelle" "Talylor" 
## [359,] "Michelle" "Valeria" 
## [360,] "Michelle" "Victoria"
## [361,] "Myriam"   "Adriana" 
## [362,] "Myriam"   "Alberto" 
## [363,] "Myriam"   "Alexa"   
## [364,] "Myriam"   "Alondra" 
## [365,] "Myriam"   "Axell"   
## [366,] "Myriam"   "Diana"   
## [367,] "Myriam"   "Fatima"  
## [368,] "Myriam"   "Ingrid"  
## [369,] "Myriam"   "Juan"    
## [370,] "Myriam"   "Laura"   
## [371,] "Myriam"   "Lucy"    
## [372,] "Myriam"   "Luis"    
## [373,] "Myriam"   "Luz"     
## [374,] "Myriam"   "Marisol" 
## [375,] "Myriam"   "Michelle"
## [376,] "Myriam"   "Nicole"  
## [377,] "Myriam"   "Oscar"   
## [378,] "Myriam"   "Paco"    
## [379,] "Myriam"   "Paty"    
## [380,] "Myriam"   "Roy"     
## [381,] "Myriam"   "Rubén"   
## [382,] "Myriam"   "Talylor" 
## [383,] "Myriam"   "Valeria" 
## [384,] "Myriam"   "Victoria"
## [385,] "Nicole"   "Adriana" 
## [386,] "Nicole"   "Alberto" 
## [387,] "Nicole"   "Alexa"   
## [388,] "Nicole"   "Alondra" 
## [389,] "Nicole"   "Axell"   
## [390,] "Nicole"   "Diana"   
## [391,] "Nicole"   "Fatima"  
## [392,] "Nicole"   "Ingrid"  
## [393,] "Nicole"   "Juan"    
## [394,] "Nicole"   "Laura"   
## [395,] "Nicole"   "Lucy"    
## [396,] "Nicole"   "Luis"    
## [397,] "Nicole"   "Luz"     
## [398,] "Nicole"   "Marisol" 
## [399,] "Nicole"   "Michelle"
## [400,] "Nicole"   "Myriam"  
## [401,] "Nicole"   "Oscar"   
## [402,] "Nicole"   "Paco"    
## [403,] "Nicole"   "Paty"    
## [404,] "Nicole"   "Roy"     
## [405,] "Nicole"   "Rubén"   
## [406,] "Nicole"   "Talylor" 
## [407,] "Nicole"   "Valeria" 
## [408,] "Nicole"   "Victoria"
## [409,] "Oscar"    "Adriana" 
## [410,] "Oscar"    "Alberto" 
## [411,] "Oscar"    "Alexa"   
## [412,] "Oscar"    "Alondra" 
## [413,] "Oscar"    "Axell"   
## [414,] "Oscar"    "Diana"   
## [415,] "Oscar"    "Fatima"  
## [416,] "Oscar"    "Ingrid"  
## [417,] "Oscar"    "Juan"    
## [418,] "Oscar"    "Laura"   
## [419,] "Oscar"    "Lucy"    
## [420,] "Oscar"    "Luis"    
## [421,] "Oscar"    "Luz"     
## [422,] "Oscar"    "Marisol" 
## [423,] "Oscar"    "Michelle"
## [424,] "Oscar"    "Myriam"  
## [425,] "Oscar"    "Nicole"  
## [426,] "Oscar"    "Paco"    
## [427,] "Oscar"    "Paty"    
## [428,] "Oscar"    "Roy"     
## [429,] "Oscar"    "Rubén"   
## [430,] "Oscar"    "Talylor" 
## [431,] "Oscar"    "Valeria" 
## [432,] "Oscar"    "Victoria"
## [433,] "Paco"     "Adriana" 
## [434,] "Paco"     "Alberto" 
## [435,] "Paco"     "Alexa"   
## [436,] "Paco"     "Alondra" 
## [437,] "Paco"     "Axell"   
## [438,] "Paco"     "Diana"   
## [439,] "Paco"     "Fatima"  
## [440,] "Paco"     "Ingrid"  
## [441,] "Paco"     "Juan"    
## [442,] "Paco"     "Laura"   
## [443,] "Paco"     "Lucy"    
## [444,] "Paco"     "Luis"    
## [445,] "Paco"     "Luz"     
## [446,] "Paco"     "Marisol" 
## [447,] "Paco"     "Michelle"
## [448,] "Paco"     "Myriam"  
## [449,] "Paco"     "Nicole"  
## [450,] "Paco"     "Oscar"   
## [451,] "Paco"     "Paty"    
## [452,] "Paco"     "Roy"     
## [453,] "Paco"     "Rubén"   
## [454,] "Paco"     "Talylor" 
## [455,] "Paco"     "Valeria" 
## [456,] "Paco"     "Victoria"
## [457,] "Paty"     "Adriana" 
## [458,] "Paty"     "Alberto" 
## [459,] "Paty"     "Alexa"   
## [460,] "Paty"     "Alondra" 
## [461,] "Paty"     "Axell"   
## [462,] "Paty"     "Diana"   
## [463,] "Paty"     "Fatima"  
## [464,] "Paty"     "Ingrid"  
## [465,] "Paty"     "Juan"    
## [466,] "Paty"     "Laura"   
## [467,] "Paty"     "Lucy"    
## [468,] "Paty"     "Luis"    
## [469,] "Paty"     "Luz"     
## [470,] "Paty"     "Marisol" 
## [471,] "Paty"     "Michelle"
## [472,] "Paty"     "Myriam"  
## [473,] "Paty"     "Nicole"  
## [474,] "Paty"     "Oscar"   
## [475,] "Paty"     "Paco"    
## [476,] "Paty"     "Roy"     
## [477,] "Paty"     "Rubén"   
## [478,] "Paty"     "Talylor" 
## [479,] "Paty"     "Valeria" 
## [480,] "Paty"     "Victoria"
## [481,] "Roy"      "Adriana" 
## [482,] "Roy"      "Alberto" 
## [483,] "Roy"      "Alexa"   
## [484,] "Roy"      "Alondra" 
## [485,] "Roy"      "Axell"   
## [486,] "Roy"      "Diana"   
## [487,] "Roy"      "Fatima"  
## [488,] "Roy"      "Ingrid"  
## [489,] "Roy"      "Juan"    
## [490,] "Roy"      "Laura"   
## [491,] "Roy"      "Lucy"    
## [492,] "Roy"      "Luis"    
## [493,] "Roy"      "Luz"     
## [494,] "Roy"      "Marisol" 
## [495,] "Roy"      "Michelle"
## [496,] "Roy"      "Myriam"  
## [497,] "Roy"      "Nicole"  
## [498,] "Roy"      "Oscar"   
## [499,] "Roy"      "Paco"    
## [500,] "Roy"      "Paty"    
## [501,] "Roy"      "Rubén"   
## [502,] "Roy"      "Talylor" 
## [503,] "Roy"      "Valeria" 
## [504,] "Roy"      "Victoria"
## [505,] "Rubén"    "Adriana" 
## [506,] "Rubén"    "Alberto" 
## [507,] "Rubén"    "Alexa"   
## [508,] "Rubén"    "Alondra" 
## [509,] "Rubén"    "Axell"   
## [510,] "Rubén"    "Diana"   
## [511,] "Rubén"    "Fatima"  
## [512,] "Rubén"    "Ingrid"  
## [513,] "Rubén"    "Juan"    
## [514,] "Rubén"    "Laura"   
## [515,] "Rubén"    "Lucy"    
## [516,] "Rubén"    "Luis"    
## [517,] "Rubén"    "Luz"     
## [518,] "Rubén"    "Marisol" 
## [519,] "Rubén"    "Michelle"
## [520,] "Rubén"    "Myriam"  
## [521,] "Rubén"    "Nicole"  
## [522,] "Rubén"    "Oscar"   
## [523,] "Rubén"    "Paco"    
## [524,] "Rubén"    "Paty"    
## [525,] "Rubén"    "Roy"     
## [526,] "Rubén"    "Talylor" 
## [527,] "Rubén"    "Valeria" 
## [528,] "Rubén"    "Victoria"
## [529,] "Talylor"  "Adriana" 
## [530,] "Talylor"  "Alberto" 
## [531,] "Talylor"  "Alexa"   
## [532,] "Talylor"  "Alondra" 
## [533,] "Talylor"  "Axell"   
## [534,] "Talylor"  "Diana"   
## [535,] "Talylor"  "Fatima"  
## [536,] "Talylor"  "Ingrid"  
## [537,] "Talylor"  "Juan"    
## [538,] "Talylor"  "Laura"   
## [539,] "Talylor"  "Lucy"    
## [540,] "Talylor"  "Luis"    
## [541,] "Talylor"  "Luz"     
## [542,] "Talylor"  "Marisol" 
## [543,] "Talylor"  "Michelle"
## [544,] "Talylor"  "Myriam"  
## [545,] "Talylor"  "Nicole"  
## [546,] "Talylor"  "Oscar"   
## [547,] "Talylor"  "Paco"    
## [548,] "Talylor"  "Paty"    
## [549,] "Talylor"  "Roy"     
## [550,] "Talylor"  "Rubén"   
## [551,] "Talylor"  "Valeria" 
## [552,] "Talylor"  "Victoria"
## [553,] "Valeria"  "Adriana" 
## [554,] "Valeria"  "Alberto" 
## [555,] "Valeria"  "Alexa"   
## [556,] "Valeria"  "Alondra" 
## [557,] "Valeria"  "Axell"   
## [558,] "Valeria"  "Diana"   
## [559,] "Valeria"  "Fatima"  
## [560,] "Valeria"  "Ingrid"  
## [561,] "Valeria"  "Juan"    
## [562,] "Valeria"  "Laura"   
## [563,] "Valeria"  "Lucy"    
## [564,] "Valeria"  "Luis"    
## [565,] "Valeria"  "Luz"     
## [566,] "Valeria"  "Marisol" 
## [567,] "Valeria"  "Michelle"
## [568,] "Valeria"  "Myriam"  
## [569,] "Valeria"  "Nicole"  
## [570,] "Valeria"  "Oscar"   
## [571,] "Valeria"  "Paco"    
## [572,] "Valeria"  "Paty"    
## [573,] "Valeria"  "Roy"     
## [574,] "Valeria"  "Rubén"   
## [575,] "Valeria"  "Talylor" 
## [576,] "Valeria"  "Victoria"
## [577,] "Victoria" "Adriana" 
## [578,] "Victoria" "Alberto" 
## [579,] "Victoria" "Alexa"   
## [580,] "Victoria" "Alondra" 
## [581,] "Victoria" "Axell"   
## [582,] "Victoria" "Diana"   
## [583,] "Victoria" "Fatima"  
## [584,] "Victoria" "Ingrid"  
## [585,] "Victoria" "Juan"    
## [586,] "Victoria" "Laura"   
## [587,] "Victoria" "Lucy"    
## [588,] "Victoria" "Luis"    
## [589,] "Victoria" "Luz"     
## [590,] "Victoria" "Marisol" 
## [591,] "Victoria" "Michelle"
## [592,] "Victoria" "Myriam"  
## [593,] "Victoria" "Nicole"  
## [594,] "Victoria" "Oscar"   
## [595,] "Victoria" "Paco"    
## [596,] "Victoria" "Paty"    
## [597,] "Victoria" "Roy"     
## [598,] "Victoria" "Rubén"   
## [599,] "Victoria" "Talylor" 
## [600,] "Victoria" "Valeria"

4.1.2 Nombres de equipos de fútbol

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

empresas

## [1] "Nike"        "Rebook"      "Under"       "Puma"        "Aero"       
## [6] "Levi"        "Chanele"     "Pull & bear" "Gap"

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,] "Aero" "Chanele" "Gap" "Levi" "Nike"       
## [2,] "Aero" "Chanele" "Gap" "Levi" "Pull & bear"
## [3,] "Aero" "Chanele" "Gap" "Levi" "Puma"       
## [4,] "Aero" "Chanele" "Gap" "Levi" "Rebook"     
## [5,] "Aero" "Chanele" "Gap" "Levi" "Under"      
## [6,] "Aero" "Chanele" "Gap" "Nike" "Levi"

tail(Pern.empresas)

##          [,1]    [,2]     [,3]   [,4]          [,5]         
## [15115,] "Under" "Rebook" "Puma" "Nike"        "Pull & bear"
## [15116,] "Under" "Rebook" "Puma" "Pull & bear" "Aero"       
## [15117,] "Under" "Rebook" "Puma" "Pull & bear" "Chanele"    
## [15118,] "Under" "Rebook" "Puma" "Pull & bear" "Gap"        
## [15119,] "Under" "Rebook" "Puma" "Pull & bear" "Levi"       
## [15120,] "Under" "Rebook" "Puma" "Pull & bear" "Nike"

¿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 Victoria y Alexa 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] == "Victoria" & Pern.nombres[,2] == "Alexa")
filtro

##      [,1]       [,2]   
## [1,] "Victoria" "Alexa"

frecuencia <- nrow(filtro)

paste("Existen ", frecuencia, " ocasiones en que se encuentran Victoria y Alexa 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 Victoria y Alexa juntos en ese orden, de un total de  600  representan  0.17 %"

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

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

##       [,1]     [,2]      
##  [1,] "Nicole" "Adriana" 
##  [2,] "Nicole" "Alberto" 
##  [3,] "Nicole" "Alexa"   
##  [4,] "Nicole" "Alondra" 
##  [5,] "Nicole" "Axell"   
##  [6,] "Nicole" "Diana"   
##  [7,] "Nicole" "Fatima"  
##  [8,] "Nicole" "Ingrid"  
##  [9,] "Nicole" "Juan"    
## [10,] "Nicole" "Laura"   
## [11,] "Nicole" "Lucy"    
## [12,] "Nicole" "Luis"    
## [13,] "Nicole" "Luz"     
## [14,] "Nicole" "Marisol" 
## [15,] "Nicole" "Michelle"
## [16,] "Nicole" "Myriam"  
## [17,] "Nicole" "Oscar"   
## [18,] "Nicole" "Paco"    
## [19,] "Nicole" "Paty"    
## [20,] "Nicole" "Roy"     
## [21,] "Nicole" "Rubén"   
## [22,] "Nicole" "Talylor" 
## [23,] "Nicole" "Valeria" 
## [24,] "Nicole" "Victoria"

frecuencia <- nrow(filtro)

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

## [1] "Existen  24  ocasiones en que se encuentran Nicole en la primer columna  , de un total de  600  representan  4 %"

En cuántas ocasiones aparece en primera columna Luz y Marisol o Ingrid en segunda columna

filtro <- subset(Pern.nombres, Pern.nombres[,1] == "Luz" & (Pern.nombres[,2] == "Marisol" | Pern.nombres[,2] == "Ingrid"))
filtro

##      [,1]  [,2]     
## [1,] "Luz" "Ingrid" 
## [2,] "Luz" "Marisol"

frecuencia <- nrow(filtro)

paste("Existen ", frecuencia, " ocasiones en que se encuentran aparece en primera columna Luz y Marisol o Ingrid 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 Luz y Marisol o Ingrid en segunda columna, de un total de  600  representan  0.33 %"

5.2 Preguntas sobre espacio muestral empresas

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

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

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

frecuencia <- nrow(filtro)

paste("Existen ", frecuencia, " ocasiones en que se encuentran aparece en primera columna Nike y Puma en segunda columna, de un total de ", nrow(Pern.empresas), " representan ", round(frecuencia / nrow(Pern.empresas) * 100, 2), "%")

## [1] "Existen  210  ocasiones en que se encuentran aparece en primera columna Nike y Puma en segunda columna, de un total de  15120  representan  1.39 %"

En cuántas ocasiones aparece de manera contigua y en este orden las empresas de Rebook y Gap en primera y segunda columna respectivamente

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

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

frecuencia <- nrow(filtro)

paste("Existen ", frecuencia, " ocasiones en que se encuentran aparece en primera columna Rebook y Gap en segunda columna, de un total de ", nrow(Pern.empresas), " representan ", round(frecuencia / nrow(Pern.empresas) * 100, 2), "%")

## [1] "Existen  210  ocasiones en que se encuentran aparece en primera columna Rebook y Gap en segunda columna, de un total de  15120  representan  1.39 %"

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

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

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

frecuencia <- nrow(filtro)

paste("Existen ", frecuencia, " aparece de manera contigua y en este orden los equipos de Chanele y Pull & bear en cualquier columna , de un total de ", nrow(Pern.empresas), " representan ", round(frecuencia / nrow(Pern.empresas) * 100, 2), "%")

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

caso8

Romo Bernal Axell Roy

2023-02-27