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", "Santa", "Fani", "Marco", "Candy", "Sebastián")
n <- length(nombres)
r <- 2 # ¿cómo agrupar o permutar?
Pn <- factorial(n) / factorial(n-r)
paste("Existen ", Pn , " posibles permutaciones del total de ", n , " nombres ", " en grupos de ", r ," en ", r)

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

3.4 Ejemplo 2. Nombres de empresas de tecnologia.

Se trata de hacer combinaciones con los nombres de seis empresas de tecnologia: “Huawei”, “Samsung”, “Apple”, “Asus”, “Lenovo”, “Alcatel” en grupos de 5. Entonces \(n=9\), porque hay seis empresas o elementos y \(r=5\) porque se trata de agrupar de tres en tres.

¿Cuántas permutaciones deberá haber?

empresas <- c("Huawei", "Samsung", "Apple", "Asus", "Lenovo", "Alcatel", "HP", "Dell", "Acer")
n <- length(empresas)
r <- 5 # ¿cómo agrupar?
Pn <- factorial(n) / factorial(n-r)
paste("Existen ", Pn , " posibles permutaciones del total de ", n , " empresas ", " en grupos de ", r ," en ", r)

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

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"      "Santa"     "Fani"      "Marco"    
## [13] "Candy"     "Sebastián"

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

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

4.1.2 Nombres de empresas de tecnologia

Se muestran las posibles combinaciones de los nombres de empresas de tecnologia.

empresas

## [1] "Huawei"  "Samsung" "Apple"   "Asus"    "Lenovo"  "Alcatel" "HP"     
## [8] "Dell"    "Acer"

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

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

head(Pern.empresas)

##      [,1]   [,2]      [,3]    [,4]   [,5]     
## [1,] "Acer" "Alcatel" "Apple" "Asus" "Dell"   
## [2,] "Acer" "Alcatel" "Apple" "Asus" "HP"     
## [3,] "Acer" "Alcatel" "Apple" "Asus" "Huawei" 
## [4,] "Acer" "Alcatel" "Apple" "Asus" "Lenovo" 
## [5,] "Acer" "Alcatel" "Apple" "Asus" "Samsung"
## [6,] "Acer" "Alcatel" "Apple" "Dell" "Asus"

tail(Pern.empresas)

##          [,1]      [,2]     [,3]     [,4]   [,5]     
## [15115,] "Samsung" "Lenovo" "Huawei" "Dell" "HP"     
## [15116,] "Samsung" "Lenovo" "Huawei" "HP"   "Acer"   
## [15117,] "Samsung" "Lenovo" "Huawei" "HP"   "Alcatel"
## [15118,] "Samsung" "Lenovo" "Huawei" "HP"   "Apple"  
## [15119,] "Samsung" "Lenovo" "Huawei" "HP"   "Asus"   
## [15120,] "Samsung" "Lenovo" "Huawei" "HP"   "Dell"

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

resultado = subset(Pern.nombres, Pern.nombres[,1] == "Laura" |
                     Pern.nombres[,2] == "Laura")
resultado

##       [,1]        [,2]       
##  [1,] "Alberto"   "Laura"    
##  [2,] "Candy"     "Laura"    
##  [3,] "Fani"      "Laura"    
##  [4,] "Juan"      "Laura"    
##  [5,] "Laura"     "Alberto"  
##  [6,] "Laura"     "Candy"    
##  [7,] "Laura"     "Fani"     
##  [8,] "Laura"     "Juan"     
##  [9,] "Laura"     "Lucy"     
## [10,] "Laura"     "Luis"     
## [11,] "Laura"     "Marco"    
## [12,] "Laura"     "Oscar"    
## [13,] "Laura"     "Paco"     
## [14,] "Laura"     "Paty"     
## [15,] "Laura"     "Rubén"    
## [16,] "Laura"     "Santa"    
## [17,] "Laura"     "Sebastián"
## [18,] "Lucy"      "Laura"    
## [19,] "Luis"      "Laura"    
## [20,] "Marco"     "Laura"    
## [21,] "Oscar"     "Laura"    
## [22,] "Paco"      "Laura"    
## [23,] "Paty"      "Laura"    
## [24,] "Rubén"     "Laura"    
## [25,] "Santa"     "Laura"    
## [26,] "Sebastián" "Laura"

frecuencia = nrow(resultado)

paste("Aparece ",frecuencia,"ocasiones")

## [1] "Aparece  26 ocasiones"

¿En cuántas ocasiones aparece el nombre de Oscar en las combinaciones de dos en dos?

resultado = subset(Pern.nombres, Pern.nombres[,1] == "Oscar" |
                     Pern.nombres[,2] == "Oscar")
resultado

##       [,1]        [,2]       
##  [1,] "Alberto"   "Oscar"    
##  [2,] "Candy"     "Oscar"    
##  [3,] "Fani"      "Oscar"    
##  [4,] "Juan"      "Oscar"    
##  [5,] "Laura"     "Oscar"    
##  [6,] "Lucy"      "Oscar"    
##  [7,] "Luis"      "Oscar"    
##  [8,] "Marco"     "Oscar"    
##  [9,] "Oscar"     "Alberto"  
## [10,] "Oscar"     "Candy"    
## [11,] "Oscar"     "Fani"     
## [12,] "Oscar"     "Juan"     
## [13,] "Oscar"     "Laura"    
## [14,] "Oscar"     "Lucy"     
## [15,] "Oscar"     "Luis"     
## [16,] "Oscar"     "Marco"    
## [17,] "Oscar"     "Paco"     
## [18,] "Oscar"     "Paty"     
## [19,] "Oscar"     "Rubén"    
## [20,] "Oscar"     "Santa"    
## [21,] "Oscar"     "Sebastián"
## [22,] "Paco"      "Oscar"    
## [23,] "Paty"      "Oscar"    
## [24,] "Rubén"     "Oscar"    
## [25,] "Santa"     "Oscar"    
## [26,] "Sebastián" "Oscar"

frecuencia = nrow(resultado)

paste("Aparece ",frecuencia,"ocasiones")

## [1] "Aparece  26 ocasiones"

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

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

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

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

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

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

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

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

##       [,1]    [,2]       
##  [1,] "Oscar" "Alberto"  
##  [2,] "Oscar" "Candy"    
##  [3,] "Oscar" "Fani"     
##  [4,] "Oscar" "Juan"     
##  [5,] "Oscar" "Laura"    
##  [6,] "Oscar" "Lucy"     
##  [7,] "Oscar" "Luis"     
##  [8,] "Oscar" "Marco"    
##  [9,] "Oscar" "Paco"     
## [10,] "Oscar" "Paty"     
## [11,] "Oscar" "Rubén"    
## [12,] "Oscar" "Santa"    
## [13,] "Oscar" "Sebastián"

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

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

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

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

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

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

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

5.2 Preguntas sobre espacio muestral empresas

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

resultado = subset(Pern.empresas,
                   Pern.empresas[,1] == "Apple" &
                     Pern.empresas[,2] == "HP")
resultado

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

frecuencia = nrow(resultado)

paste("En la primer y segunda columna aparecen las empresas Apple y Hp estas ocasiones ", frecuencia, "veces de un total de", nrow(Pern.empresas), ", lo que representa el",round(frecuencia * 100 / nrow(Pern.empresas), 2), "%")

## [1] "En la primer y segunda columna aparecen las empresas Apple y Hp estas ocasiones  210 veces de un total de 15120 , lo que representa el 1.39 %"

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

resultado = subset(Pern.empresas,
                   Pern.empresas[,1] == "Alcatel" &
                     Pern.empresas[,2] == "Asus")
resultado

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

frecuencia = nrow(resultado)

paste("En la primer y segunda columna aparecen las empresas Alcatel y Asus estas ocasiones ", frecuencia, "veces de un total de", nrow(Pern.empresas), ", lo que representa el",round(frecuencia * 100 / nrow(Pern.empresas), 2), "%")

## [1] "En la primer y segunda columna aparecen las empresas Alcatel y Asus estas ocasiones  210 veces de un total de 15120 , lo que representa el 1.39 %"

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

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

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

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

Caso 8. Permutaciones

2023-02-26