Aplicar técnicas de conteo con diversos datos utilizando permutaciones y combinaciones para su adecuada interpretación.
Se aplican las técnicas de permutaciones y combinaciones con un conjunto de nombres de personas.
Se inicializa el vector de nombres y se generan el espacio muestral, rimero con permutaciones y luego con combinaciones.
Se muestra el conjunto del espacio muestral S y sus elementos.
pendiente
Cargar librerías, en caso necesario
Construir los datos
Realizar permutaciones
Realizar combinaciones
Interpretar el caso
Las librerías fueron previamente instaladas con install.packages(“gtools”) e install.packages(“knitr”). La librería gtools permite generar combinaciones y permutaciones y la librería knitr a parte de importar imágenes visualiza los conjuntos de datos de manera amigable.
library(gtools)
library(knitr)
library(dplyr)El vector personas son los nombres de personas que participan en las combinaciones y permutaciones. Se utiliza el vector personas.agregadas para incluir a más personas como elementos del conjunto de datos pesonas.
personas <- c("Ricardo", "Natalia", "Raul", "Patricio", "Guillermo")
personas.agregadas <- c("Laura", "Melissa", "Renato", "Fabricio", "Amanda")
personas <- c(personas,personas.agregadas)
personas## [1] "Ricardo" "Natalia" "Raul" "Patricio" "Guillermo" "Laura"
## [7] "Melissa" "Renato" "Fabricio" "Amanda"n <- length(personas) # debe ser 10
n## [1] 10Para las permutaciones al igual que las combinaciones se utiliza la variable S para identificar a todos los elementos del espacio muestral. Siendo entonce S todos las combinaciones o permutaciones posibles según sea el caso a partir de los nombres de personas.
Se generan permutaciones en grupos de 3 en 3 a partir de los 10 nombres de personas.
El espacio muestral se almacena en la variable \(S\) y se utilizan las funciones head() y tail() para no mostrar todos los registros, y solo los primeros y últimos diez del espacio muestral.
grupos <- 3
S <- permutations(n = n,r = grupos, v=personas)
nrow(S)## [1] 720head(S, 10)## [,1] [,2] [,3]
## [1,] "Amanda" "Fabricio" "Guillermo"
## [2,] "Amanda" "Fabricio" "Laura"
## [3,] "Amanda" "Fabricio" "Melissa"
## [4,] "Amanda" "Fabricio" "Natalia"
## [5,] "Amanda" "Fabricio" "Patricio"
## [6,] "Amanda" "Fabricio" "Raul"
## [7,] "Amanda" "Fabricio" "Renato"
## [8,] "Amanda" "Fabricio" "Ricardo"
## [9,] "Amanda" "Guillermo" "Fabricio"
## [10,] "Amanda" "Guillermo" "Laura"tail(S, 10)## [,1] [,2] [,3]
## [711,] "Ricardo" "Raul" "Patricio"
## [712,] "Ricardo" "Raul" "Renato"
## [713,] "Ricardo" "Renato" "Amanda"
## [714,] "Ricardo" "Renato" "Fabricio"
## [715,] "Ricardo" "Renato" "Guillermo"
## [716,] "Ricardo" "Renato" "Laura"
## [717,] "Ricardo" "Renato" "Melissa"
## [718,] "Ricardo" "Renato" "Natalia"
## [719,] "Ricardo" "Renato" "Patricio"
## [720,] "Ricardo" "Renato" "Raul"Para responder a las preguntas en permutaciones de grupos de 3, se utiliza la función filter() de la librería dplyr.
Antes de utilizar filter(), se debe convertir a data.frame el espacio muestral S. S <- data.frame(S).
Se le pone nombre a las columnas por medio de la función names() para mejor comprensión de las expresiones, names(S) <- c(“C1,” “C2,” “C3”).
S <- data.frame(S)
names(S) <- c("C1", "C2", "C3")
paste("¿En cuántos casos sale el nombre de “Ricardo” en la primera posición, en la primera columna [,1]?", nrow(filter(S, C1 == "Ricardo")))## [1] "¿En cuántos casos sale el nombre de “Ricardo” en la primera posición, en la primera columna [,1]? 72"paste("¿Cuántas ocasiones aparece “Fabricio” en segundo lugar?, en la segunda columna [,2]?", nrow(filter(S, C2 == "Fabricio")))## [1] "¿Cuántas ocasiones aparece “Fabricio” en segundo lugar?, en la segunda columna [,2]? 72"paste("¿Cuántas permutaciones se generan?, nrow(), o cuántas observciones?, el último registro del espacio muestral.", nrow(S))## [1] "¿Cuántas permutaciones se generan?, nrow(), o cuántas observciones?, el último registro del espacio muestral. 720"Se pudo haber usado la función which() combinado con la función length()
paste("¿En cuántos casos sale el nombre de “Ricardo” en la primera posición, en la primera columna [,1]?", length(which(S[,1] == "Ricardo")))## [1] "¿En cuántos casos sale el nombre de “Ricardo” en la primera posición, en la primera columna [,1]? 72"paste("¿Cuántas ocasiones aparece “Fabricio” en segundo lugar?, en la segunda columna [,2]?", length(which(S[,2] == "Fabricio")))## [1] "¿Cuántas ocasiones aparece “Fabricio” en segundo lugar?, en la segunda columna [,2]? 72"paste("¿Cuántas permutaciones se generan?, nrow(), o cuántas observciones?, el último registro del espacio muestral.", nrow(S))## [1] "¿Cuántas permutaciones se generan?, nrow(), o cuántas observciones?, el último registro del espacio muestral. 720"También se puede usar la función subset() para filtrar y responder a las preguntas.
paste("¿En cuántos casos sale el nombre de “Ricardo” en la primera posición, en la primera columna [,1]?", nrow(subset(S, C1 == "Ricardo")))## [1] "¿En cuántos casos sale el nombre de “Ricardo” en la primera posición, en la primera columna [,1]? 72"paste("¿Cuántas ocasiones aparece “Fabricio” en segundo lugar?, en la segunda columna [,2]?", nrow(subset(S, C2 == "Fabricio")))## [1] "¿Cuántas ocasiones aparece “Fabricio” en segundo lugar?, en la segunda columna [,2]? 72"paste("¿Cuántas permutaciones se generan?, nrow(), o cuántas observciones?, el último registro del espacio muestral.", nrow(S))## [1] "¿Cuántas permutaciones se generan?, nrow(), o cuántas observciones?, el último registro del espacio muestral. 720"Para responder a las preguntas de la interpretación que más adelante se hacen de este caso, se puede usar los bloques de código anteriores, se puede resolver las preguntas ya sea por medio de filter() o por medio de which() o por medio de subset(). Será decisión del lector usar alguna de ellas.
4.3.1.3 Permutaciones de 5
grupos <- 5
S <- permutations(n = n,r = grupos, v=personas)
nrow(S)## [1] 30240head(S, 10)## [,1] [,2] [,3] [,4] [,5]
## [1,] "Amanda" "Fabricio" "Guillermo" "Laura" "Melissa"
## [2,] "Amanda" "Fabricio" "Guillermo" "Laura" "Natalia"
## [3,] "Amanda" "Fabricio" "Guillermo" "Laura" "Patricio"
## [4,] "Amanda" "Fabricio" "Guillermo" "Laura" "Raul"
## [5,] "Amanda" "Fabricio" "Guillermo" "Laura" "Renato"
## [6,] "Amanda" "Fabricio" "Guillermo" "Laura" "Ricardo"
## [7,] "Amanda" "Fabricio" "Guillermo" "Melissa" "Laura"
## [8,] "Amanda" "Fabricio" "Guillermo" "Melissa" "Natalia"
## [9,] "Amanda" "Fabricio" "Guillermo" "Melissa" "Patricio"
## [10,] "Amanda" "Fabricio" "Guillermo" "Melissa" "Raul"tail(S, 10)## [,1] [,2] [,3] [,4] [,5]
## [30231,] "Ricardo" "Renato" "Raul" "Natalia" "Guillermo"
## [30232,] "Ricardo" "Renato" "Raul" "Natalia" "Laura"
## [30233,] "Ricardo" "Renato" "Raul" "Natalia" "Melissa"
## [30234,] "Ricardo" "Renato" "Raul" "Natalia" "Patricio"
## [30235,] "Ricardo" "Renato" "Raul" "Patricio" "Amanda"
## [30236,] "Ricardo" "Renato" "Raul" "Patricio" "Fabricio"
## [30237,] "Ricardo" "Renato" "Raul" "Patricio" "Guillermo"
## [30238,] "Ricardo" "Renato" "Raul" "Patricio" "Laura"
## [30239,] "Ricardo" "Renato" "Raul" "Patricio" "Melissa"
## [30240,] "Ricardo" "Renato" "Raul" "Patricio" "Natalia"grupos <- 7
S <- permutations(n = n,r = grupos, v=personas)
nrow(S)## [1] 604800head(S, 10)## [,1] [,2] [,3] [,4] [,5] [,6] [,7]
## [1,] "Amanda" "Fabricio" "Guillermo" "Laura" "Melissa" "Natalia" "Patricio"
## [2,] "Amanda" "Fabricio" "Guillermo" "Laura" "Melissa" "Natalia" "Raul"
## [3,] "Amanda" "Fabricio" "Guillermo" "Laura" "Melissa" "Natalia" "Renato"
## [4,] "Amanda" "Fabricio" "Guillermo" "Laura" "Melissa" "Natalia" "Ricardo"
## [5,] "Amanda" "Fabricio" "Guillermo" "Laura" "Melissa" "Patricio" "Natalia"
## [6,] "Amanda" "Fabricio" "Guillermo" "Laura" "Melissa" "Patricio" "Raul"
## [7,] "Amanda" "Fabricio" "Guillermo" "Laura" "Melissa" "Patricio" "Renato"
## [8,] "Amanda" "Fabricio" "Guillermo" "Laura" "Melissa" "Patricio" "Ricardo"
## [9,] "Amanda" "Fabricio" "Guillermo" "Laura" "Melissa" "Raul" "Natalia"
## [10,] "Amanda" "Fabricio" "Guillermo" "Laura" "Melissa" "Raul" "Patricio"tail(S, 10)## [,1] [,2] [,3] [,4] [,5] [,6]
## [604791,] "Ricardo" "Renato" "Raul" "Patricio" "Natalia" "Guillermo"
## [604792,] "Ricardo" "Renato" "Raul" "Patricio" "Natalia" "Guillermo"
## [604793,] "Ricardo" "Renato" "Raul" "Patricio" "Natalia" "Laura"
## [604794,] "Ricardo" "Renato" "Raul" "Patricio" "Natalia" "Laura"
## [604795,] "Ricardo" "Renato" "Raul" "Patricio" "Natalia" "Laura"
## [604796,] "Ricardo" "Renato" "Raul" "Patricio" "Natalia" "Laura"
## [604797,] "Ricardo" "Renato" "Raul" "Patricio" "Natalia" "Melissa"
## [604798,] "Ricardo" "Renato" "Raul" "Patricio" "Natalia" "Melissa"
## [604799,] "Ricardo" "Renato" "Raul" "Patricio" "Natalia" "Melissa"
## [604800,] "Ricardo" "Renato" "Raul" "Patricio" "Natalia" "Melissa"
## [,7]
## [604791,] "Laura"
## [604792,] "Melissa"
## [604793,] "Amanda"
## [604794,] "Fabricio"
## [604795,] "Guillermo"
## [604796,] "Melissa"
## [604797,] "Amanda"
## [604798,] "Fabricio"
## [604799,] "Guillermo"
## [604800,] "Laura"Se utiliza también la variable S para identificar al especio meustral o experimentos posibles en las combinaciones.
grupos <- 4
S <- combinations(n = n,r = grupos, personas)
head(S,10)## [,1] [,2] [,3] [,4]
## [1,] "Amanda" "Fabricio" "Guillermo" "Laura"
## [2,] "Amanda" "Fabricio" "Guillermo" "Melissa"
## [3,] "Amanda" "Fabricio" "Guillermo" "Natalia"
## [4,] "Amanda" "Fabricio" "Guillermo" "Patricio"
## [5,] "Amanda" "Fabricio" "Guillermo" "Raul"
## [6,] "Amanda" "Fabricio" "Guillermo" "Renato"
## [7,] "Amanda" "Fabricio" "Guillermo" "Ricardo"
## [8,] "Amanda" "Fabricio" "Laura" "Melissa"
## [9,] "Amanda" "Fabricio" "Laura" "Natalia"
## [10,] "Amanda" "Fabricio" "Laura" "Patricio"tail(S,10)## [,1] [,2] [,3] [,4]
## [201,] "Melissa" "Natalia" "Renato" "Ricardo"
## [202,] "Melissa" "Patricio" "Raul" "Renato"
## [203,] "Melissa" "Patricio" "Raul" "Ricardo"
## [204,] "Melissa" "Patricio" "Renato" "Ricardo"
## [205,] "Melissa" "Raul" "Renato" "Ricardo"
## [206,] "Natalia" "Patricio" "Raul" "Renato"
## [207,] "Natalia" "Patricio" "Raul" "Ricardo"
## [208,] "Natalia" "Patricio" "Renato" "Ricardo"
## [209,] "Natalia" "Raul" "Renato" "Ricardo"
## [210,] "Patricio" "Raul" "Renato" "Ricardo"Como en las permutaciones primero se convierte a data.frame el espacio muestral y se le incorpora nombres a las columnas para su mejor procesamiento y comprensión. names(S) <- c(“C1,” “C2,” “C3,” “C4”).
S <- data.frame(S)
names(S) <- c("C1", "C2", "C3", "C4")
res <- filter(S, (C1 == "Ricardo" & C2 == "Fabricio") | (C2 == "Ricardo" & C3 == "Fabricio") | (C3 == "Ricardo" & C4 == "Fabricio"))
paste("¿En cuántas ocasiones se identifican los nombres de 'Ricardo' y 'Fabricio' de manera contigua en ese orden 'Ricardo, 'Fabricio'?", nrow(res))## [1] "¿En cuántas ocasiones se identifican los nombres de 'Ricardo' y 'Fabricio' de manera contigua en ese orden 'Ricardo, 'Fabricio'? 0"paste("¿Cuántas ocasiones aparece 'Amanda' en primer lugar?", nrow(filter(S,C1 == "Amanda") ))## [1] "¿Cuántas ocasiones aparece 'Amanda' en primer lugar? 84"paste("¿Cuántas combinaciones se generan en grupos de 4?", nrow(S))## [1] "¿Cuántas combinaciones se generan en grupos de 4? 210"4.4.1.2.2 which()
res <- which((S[,1] == "Amanda" & S[,2] == "Raul") | (S[,2] == "Amanda" & S[,3] == "Raul") | (S[,3] == "Amanda" & S[,4] == "Raul"))
paste("¿En cuántas ocasiones se identifican los nombres de 'Amanda' y 'Raul' de manera contigua en ese orden 'Amanda, 'Raul'?", length(res))## [1] "¿En cuántas ocasiones se identifican los nombres de 'Amanda' y 'Raul' de manera contigua en ese orden 'Amanda, 'Raul'? 1"paste("¿Cuántas ocasiones aparece 'Amanda' en primer lugar?", length(which(S[,1] == "Amanda") ))## [1] "¿Cuántas ocasiones aparece 'Amanda' en primer lugar? 84"paste("¿Cuántas combinaciones se generan en grupos de 4?", nrow(S))## [1] "¿Cuántas combinaciones se generan en grupos de 4? 210"res <- subset(S, (C1 == "Amanda" & C2 == "Fabricio") | (C2 == "Amanda" & C3 == "Fabricio") | (C3 == "Amanda" & C4 == "Fabricio"))
paste("¿En cuántas ocasiones se identifican los nombres de 'Amanda' y 'Fabricio' de manera contigua en ese orden 'Amanda, 'Fabricio'?", nrow(res))## [1] "¿En cuántas ocasiones se identifican los nombres de 'Amanda' y 'Fabricio' de manera contigua en ese orden 'Amanda, 'Fabricio'? 28"paste("¿Cuántas ocasiones aparece 'Amanda' en primer lugar?", nrow(subset(S,C1 == "Amanda") ))## [1] "¿Cuántas ocasiones aparece 'Amanda' en primer lugar? 84"paste("¿Cuántas combinaciones se generan en grupos de 4?", nrow(S))## [1] "¿Cuántas combinaciones se generan en grupos de 4? 210"grupos <- 6
S <- combinations(n = n,r = grupos, personas)
head(S,10)## [,1] [,2] [,3] [,4] [,5] [,6]
## [1,] "Amanda" "Fabricio" "Guillermo" "Laura" "Melissa" "Natalia"
## [2,] "Amanda" "Fabricio" "Guillermo" "Laura" "Melissa" "Patricio"
## [3,] "Amanda" "Fabricio" "Guillermo" "Laura" "Melissa" "Raul"
## [4,] "Amanda" "Fabricio" "Guillermo" "Laura" "Melissa" "Renato"
## [5,] "Amanda" "Fabricio" "Guillermo" "Laura" "Melissa" "Ricardo"
## [6,] "Amanda" "Fabricio" "Guillermo" "Laura" "Natalia" "Patricio"
## [7,] "Amanda" "Fabricio" "Guillermo" "Laura" "Natalia" "Raul"
## [8,] "Amanda" "Fabricio" "Guillermo" "Laura" "Natalia" "Renato"
## [9,] "Amanda" "Fabricio" "Guillermo" "Laura" "Natalia" "Ricardo"
## [10,] "Amanda" "Fabricio" "Guillermo" "Laura" "Patricio" "Raul"tail(S,10)## [,1] [,2] [,3] [,4] [,5] [,6]
## [201,] "Guillermo" "Melissa" "Natalia" "Raul" "Renato" "Ricardo"
## [202,] "Guillermo" "Melissa" "Patricio" "Raul" "Renato" "Ricardo"
## [203,] "Guillermo" "Natalia" "Patricio" "Raul" "Renato" "Ricardo"
## [204,] "Laura" "Melissa" "Natalia" "Patricio" "Raul" "Renato"
## [205,] "Laura" "Melissa" "Natalia" "Patricio" "Raul" "Ricardo"
## [206,] "Laura" "Melissa" "Natalia" "Patricio" "Renato" "Ricardo"
## [207,] "Laura" "Melissa" "Natalia" "Raul" "Renato" "Ricardo"
## [208,] "Laura" "Melissa" "Patricio" "Raul" "Renato" "Ricardo"
## [209,] "Laura" "Natalia" "Patricio" "Raul" "Renato" "Ricardo"
## [210,] "Melissa" "Natalia" "Patricio" "Raul" "Renato" "Ricardo"grupos <- 8
S <- combinations(n = n,r = grupos, personas)
head(S,10)## [,1] [,2] [,3] [,4] [,5] [,6] [,7]
## [1,] "Amanda" "Fabricio" "Guillermo" "Laura" "Melissa" "Natalia" "Patricio"
## [2,] "Amanda" "Fabricio" "Guillermo" "Laura" "Melissa" "Natalia" "Patricio"
## [3,] "Amanda" "Fabricio" "Guillermo" "Laura" "Melissa" "Natalia" "Patricio"
## [4,] "Amanda" "Fabricio" "Guillermo" "Laura" "Melissa" "Natalia" "Raul"
## [5,] "Amanda" "Fabricio" "Guillermo" "Laura" "Melissa" "Natalia" "Raul"
## [6,] "Amanda" "Fabricio" "Guillermo" "Laura" "Melissa" "Natalia" "Renato"
## [7,] "Amanda" "Fabricio" "Guillermo" "Laura" "Melissa" "Patricio" "Raul"
## [8,] "Amanda" "Fabricio" "Guillermo" "Laura" "Melissa" "Patricio" "Raul"
## [9,] "Amanda" "Fabricio" "Guillermo" "Laura" "Melissa" "Patricio" "Renato"
## [10,] "Amanda" "Fabricio" "Guillermo" "Laura" "Melissa" "Raul" "Renato"
## [,8]
## [1,] "Raul"
## [2,] "Renato"
## [3,] "Ricardo"
## [4,] "Renato"
## [5,] "Ricardo"
## [6,] "Ricardo"
## [7,] "Renato"
## [8,] "Ricardo"
## [9,] "Ricardo"
## [10,] "Ricardo"tail(S,10)## [,1] [,2] [,3] [,4] [,5] [,6]
## [36,] "Amanda" "Laura" "Melissa" "Natalia" "Patricio" "Raul"
## [37,] "Fabricio" "Guillermo" "Laura" "Melissa" "Natalia" "Patricio"
## [38,] "Fabricio" "Guillermo" "Laura" "Melissa" "Natalia" "Patricio"
## [39,] "Fabricio" "Guillermo" "Laura" "Melissa" "Natalia" "Patricio"
## [40,] "Fabricio" "Guillermo" "Laura" "Melissa" "Natalia" "Raul"
## [41,] "Fabricio" "Guillermo" "Laura" "Melissa" "Patricio" "Raul"
## [42,] "Fabricio" "Guillermo" "Laura" "Natalia" "Patricio" "Raul"
## [43,] "Fabricio" "Guillermo" "Melissa" "Natalia" "Patricio" "Raul"
## [44,] "Fabricio" "Laura" "Melissa" "Natalia" "Patricio" "Raul"
## [45,] "Guillermo" "Laura" "Melissa" "Natalia" "Patricio" "Raul"
## [,7] [,8]
## [36,] "Renato" "Ricardo"
## [37,] "Raul" "Renato"
## [38,] "Raul" "Ricardo"
## [39,] "Renato" "Ricardo"
## [40,] "Renato" "Ricardo"
## [41,] "Renato" "Ricardo"
## [42,] "Renato" "Ricardo"
## [43,] "Renato" "Ricardo"
## [44,] "Renato" "Ricardo"
## [45,] "Renato" "Ricardo"Se responde a las preguntas guías del caso de manera descriptiva.
Se interpreta los resultados de las permutaciones
Con la ayuda de la funcion filter() que nos ayuda a determinar los datos especificos de una muestra de datos, nos dio como resultado que el nombre Ricardo se presento 72 veces en la columna 1.
Con la ayuda de la funcion filter() nos dio como resultado que el nombre Fabricio se presento 72 veces en la columna 2.
De acuerdo con el nrow() que determina el numero de filas registradas nos dio como resultado un espacio muestral de:
720¿En cuántos casos sale el nombre de “Ricardo” en la primera posición?
De acuerdo con los resultados, sale que Ricardo aparece 3024 vez en la primera posicion.
¿Cuántas ocasiones aparece “Melissa” en segundo lugar?
De acuerdo con los datos con ayuda de filter() nos dio como resultado que Melissa aparece 3024 veces en la segunda posicion de estas.
¿Cuántas permutaciones se generan?
Las permutaciones de 5 con ayuda de la funcion nrow(S) donde s nos ayuda con la funcion permutations a dererminar el numero total de datos el cual nos dio
[1] 30240¿En cuántos casos sale el nombre de “Laura” en la primera posición?
Este se puede ver que usando la funcion nrow(filter()) nos ayuda a determinar el numero de veces que este nombre se encuentra en la primera posicion el cual nos dio como resultado 60480
¿Cuántas ocasiones aparece “Patricio” en segundo lugar?
Los datos nos arrojaron que Patricio aparecio un total de 60480 veces en el segundo lugar
¿Cuántas permutaciones se generan?
Con ayuda de las funciones nrow() y permutations() nos arrojo un resultado total de :
[1] 604800Se interpreta el resultado de las combinaciones
¿En cuántas ocasiones se identifican los nombres de “Aracely” y “Laura” de manera contigua en ese orden “Ricardo,” “Fabricio?”
Loa resultados arrojaron que no aparece ninguna vez de manera contigua este tipo de orden en la combinacion de 4.
¿Cuántas ocasiones aparece “Amanda” en primer lugar?
Con ayuda de la siguiente funcion
nrow(filter(S,C1 == "Amanda")nos ayuda a encontrar el numero de veces que este nombre se encuenta en el primer lugar, dando como resultado un total de 84.
¿Cuántas combinaciones se generan en grupos de 4?
Aqui simplemente con ayuda de la funcion nrow() nos ayuda a saber cual es el total de combinaciones
nrow(S))El cual nos dio como resultado :
## [1] 210¿En cuántos casos aparece los nombres de “Guillermo” “Laura” de manera contigua en ese orden?. Pueden er en las columnas [,1:2]; o columnas [,2:3]; o columnas [,3:4]; o en las columnas [,4:5] De acuerdo con los resultados mostrados a continuacion y con ayuda de algunas funciones nos dio como resultado un total de 15 veces .
¿Cuántas ocasiones aparece “Laura” en primer lugar o en la primer columnas [,1]?
Los resultados nos dieron un total de 6 apariciones totales de este nombre en la columna numero 1
¿Cuántas combinaciones se generan?
De acuerdo con la funcion nrow nos dio como sesultado un total de 210 datos en combinaciones de 6
¿En cuántos casos aparece los nombres de “Renato” “Ricardo” de manera contigua en ese orden?
Como se representa en el siguiente codigo tuvimos que utilizar la funcion filter y buscar de la columna 1 a 2 de 2 a 3 , de 3 a 4, de 4 a 5… etc. hasta encontrar el total de datos ordenados de esta manera, de los cuales solamente nos dieron como resultado un total de 28
S <- data.frame(S)
names(S) <- c("C1", "C2", "C3", "C4", "C5", "C6", "C7", "C8")
res <- filter(S, (C1 == "Renato" & C2 == "Ricardo") | (C2 == "Renato" & C3 == "Ricardo") | (C3 == "Renato" & C4 == "Ricardo")| (C4 == "Renato" & C5 == "Ricardo")| (C5 == "Renato" & C6 == "Ricardo")| (C6 == "Renato" & C7 == "Ricardo")| (C7 == "Renato" & C8 == "Ricardo"))
paste(nrow(res))## [1] "28"¿Cuántas ocasiones aparece “Melissa” en primer lugar o en la primer colunas [,1]?
Aqui como son menos datos, y con un uso rapido de la funcion filter() nos dio como un resultado total de 0.
S <- data.frame(S)
names(S) <- c("C1", "C2", "C3", "C4", "C5", "C6", "C7", "C8")
res <- filter(S, C1 == "Melissa")
paste(nrow(res))## [1] "0"¿Cuántas combinaciones se generan?
Con nrow() y de manera visual en el data frame de la funcion tail() que nos agrupa los ultimos 10 datos de un grupo de datos podemos apreciar que el total de datos es igual a 45
Anderson, David R., Dennis J. Sweeney, and Thomas A. Williams. 2008. Estadística Para Administración y Economía. 10th ed. Australia Brasil Corea España Estados Unidos Japón México Reino Unido Singapur: Cengage Learning,.
Devore, Jay L. 2016. Fundamentos de Probabilidad y Estadística. Primera Edición. CENGAGE.
Mendenhall, William, Robert J. Beaver, and Barbara M. Beaver. 2006. Introducción a La Probabilidad y Estadística. 13a Edición.
Walpole, Ronald E., Raymond H. Myers, and Sharon L. Myers. 2012. Probabilidad y Estadística Para Ingeniería y Ciencias. Novena Edición. México: Pearson.