library(gtools)
library(knitr)
S.personas <- c("Sahid", "Liz", "Dafne", "Oscar", "Alexia" )
personas.agregadas <- c("Manson", "Miler", "Nañel", "Salma", "Leslie")
S.personas <- c(S.personas,personas.agregadas)
S.personas
## [1] "Sahid" "Liz" "Dafne" "Oscar" "Alexia" "Manson" "Miler" "Nañel"
## [9] "Salma" "Leslie"
## [1] "Sahid" "Liz" "Dafne" "Oscar" "Alexia" "Manson" "Miler"
## [8] "Nañel" "Salma" "Leslie"
n <- length(S.personas) # debe ser 10
#Permutaciones de 3
grupos <- 3
head(permutations(n = n,r = grupos, S.personas),10)
## [,1] [,2] [,3]
## [1,] "Alexia" "Dafne" "Leslie"
## [2,] "Alexia" "Dafne" "Liz"
## [3,] "Alexia" "Dafne" "Manson"
## [4,] "Alexia" "Dafne" "Miler"
## [5,] "Alexia" "Dafne" "Nañel"
## [6,] "Alexia" "Dafne" "Oscar"
## [7,] "Alexia" "Dafne" "Sahid"
## [8,] "Alexia" "Dafne" "Salma"
## [9,] "Alexia" "Leslie" "Dafne"
## [10,] "Alexia" "Leslie" "Liz"
## [,1] [,2] [,3]
## [1,] "Leslie" "Alexia" "Nañel"
## [2,] "Leslie" "Alexia" "Miler"
## [3,] "Leslie" "Alexia" "Sahid"
## [4,] "Leslie" "Alexia" "Dafne"
## [5,] "Leslie" "Alexia" "Nañel"
## [6,] "Leslie" "Alexia" "Liz"
## [7,] "Leslie" "Alexia" "Manson"
## [8,] "Leslie" "Alexia" "Salma"
## [9,] "Leslie" "Nañel" "Alexia"
## [10,] "Leslie" "Nañel" "Miler"
tail(permutations(n = n,r = grupos, S.personas),10)
## [,1] [,2] [,3]
## [711,] "Salma" "Oscar" "Nañel"
## [712,] "Salma" "Oscar" "Sahid"
## [713,] "Salma" "Sahid" "Alexia"
## [714,] "Salma" "Sahid" "Dafne"
## [715,] "Salma" "Sahid" "Leslie"
## [716,] "Salma" "Sahid" "Liz"
## [717,] "Salma" "Sahid" "Manson"
## [718,] "Salma" "Sahid" "Miler"
## [719,] "Salma" "Sahid" "Nañel"
## [720,] "Salma" "Sahid" "Oscar"
## [,1] [,2] [,3]
## [711,] "Salma" "Liz" "Oscar"
## [712,] "Salma" "Liz" "Manson"
## [713,] "Salma" "Manson" "Leslie"
## [714,] "Salma" "Manson" "Alexia"
## [715,] "Salma" "Manson" "Nañel"
## [716,] "Salma" "Manson" "Miler"
## [717,] "Salma" "Manson" "Sahid"
## [718,] "Salma" "Manson" "Dafne"
## [719,] "Salma" "Manson" "Oscar"
## [720,] "Salma" "Manson" "liz"
#Permutaciones de 5
grupos <- 5
head(permutations(n = n,r = grupos, S.personas),10)
## [,1] [,2] [,3] [,4] [,5]
## [1,] "Alexia" "Dafne" "Leslie" "Liz" "Manson"
## [2,] "Alexia" "Dafne" "Leslie" "Liz" "Miler"
## [3,] "Alexia" "Dafne" "Leslie" "Liz" "Nañel"
## [4,] "Alexia" "Dafne" "Leslie" "Liz" "Oscar"
## [5,] "Alexia" "Dafne" "Leslie" "Liz" "Sahid"
## [6,] "Alexia" "Dafne" "Leslie" "Liz" "Salma"
## [7,] "Alexia" "Dafne" "Leslie" "Manson" "Liz"
## [8,] "Alexia" "Dafne" "Leslie" "Manson" "Miler"
## [9,] "Alexia" "Dafne" "Leslie" "Manson" "Nañel"
## [10,] "Alexia" "Dafne" "Leslie" "Manson" "Oscar"
## [,1] [,2] [,3] [,4] [,5]
## [1,] "Leslie" "Alexia" "Nañel" "Miler" "Sahid"
## [2,] "Leslie" "Alexia" "Nañel" "Miler" "Dafne"
## [3,] "Leslie" "Alexia" "Nañel" "Miler" "Oscar"
## [4,] "Leslie" "Alexia" "Nañel" "Miler" "Liz"
## [5,] "Leslie" "Alexia" "Nañel" "Miler" "Manson"
## [6,] "Leslie" "Alexia" "Nañel" "Miler" "Salma"
## [7,] "Leslie" "Alexia" "Nañel" "Sahid" "Miler"
## [8,] "Leslie" "Alexia" "Nañel" "Sahid" "Dafne"
## [9,] "Leslie" "Alexia" "Nañel" "Sahid" "Oscar"
## [10,] "Leslie" "Alexia" "Nañel" "Sahid" "Liz"
tail(permutations(n = n,r = grupos, S.personas),10)
## [,1] [,2] [,3] [,4] [,5]
## [30231,] "Salma" "Sahid" "Oscar" "Miler" "Leslie"
## [30232,] "Salma" "Sahid" "Oscar" "Miler" "Liz"
## [30233,] "Salma" "Sahid" "Oscar" "Miler" "Manson"
## [30234,] "Salma" "Sahid" "Oscar" "Miler" "Nañel"
## [30235,] "Salma" "Sahid" "Oscar" "Nañel" "Alexia"
## [30236,] "Salma" "Sahid" "Oscar" "Nañel" "Dafne"
## [30237,] "Salma" "Sahid" "Oscar" "Nañel" "Leslie"
## [30238,] "Salma" "Sahid" "Oscar" "Nañel" "Liz"
## [30239,] "Salma" "Sahid" "Oscar" "Nañel" "Manson"
## [30240,] "Salma" "Sahid" "Oscar" "Nañel" "Miler"
## [,1] [,2] [,3] [,4] [,5]
## [30231,] "Salma" "Manson" "Liz" "Dafne" "Nañel"
## [30232,] "Salma" "Manson" "Liz" "Dafne" "Miler"
## [30233,] "Salma" "Manson" "Liz" "Dafne" "Sahid"
## [30234,] "Salma" "Manson" "Liz" "Dafne" "Oscar"
## [30235,] "Salma" "Manson" "Liz" "Oscar" "Leslie"
## [30236,] "Salma" "Manson" "Liz" "Oscar" "Alexia"
## [30237,] "Salma" "Manson" "Liz" "Oscar" "Nañel"
## [30238,] "Salma" "Manson" "Liz" "Oscar" "Miler"
## [30239,] "Salma" "Manson" "Liz" "Oscar" "Sahid"
## [30240,] "Salma" "Manson" "Liz" "Oscar" "Dafne"
#Permutaciones de 7
grupos <- 7
head(permutations(n = n,r = grupos, S.personas),10)
## [,1] [,2] [,3] [,4] [,5] [,6] [,7]
## [1,] "Alexia" "Dafne" "Leslie" "Liz" "Manson" "Miler" "Nañel"
## [2,] "Alexia" "Dafne" "Leslie" "Liz" "Manson" "Miler" "Oscar"
## [3,] "Alexia" "Dafne" "Leslie" "Liz" "Manson" "Miler" "Sahid"
## [4,] "Alexia" "Dafne" "Leslie" "Liz" "Manson" "Miler" "Salma"
## [5,] "Alexia" "Dafne" "Leslie" "Liz" "Manson" "Nañel" "Miler"
## [6,] "Alexia" "Dafne" "Leslie" "Liz" "Manson" "Nañel" "Oscar"
## [7,] "Alexia" "Dafne" "Leslie" "Liz" "Manson" "Nañel" "Sahid"
## [8,] "Alexia" "Dafne" "Leslie" "Liz" "Manson" "Nañel" "Salma"
## [9,] "Alexia" "Dafne" "Leslie" "Liz" "Manson" "Oscar" "Miler"
## [10,] "Alexia" "Dafne" "Leslie" "Liz" "Manson" "Oscar" "Nañel"
## [,1] [,2] [,3] [,4] [,5] [,6] [,7]
## [1,] "Leslie" "Alexia" "Nañel" "Miler" "Sahid" "Dafne" "Oscar"
## [2,] "Leslie" "Alexia" "Nañel" "Miler" "Sahid" "Dafne" "Liz"
## [3,] "Leslie" "Alexia" "Nañel" "Miler" "Sahid" "Dafne" "Manson"
## [4,] "Leslie" "Alexia" "Nañel" "Miler" "Sahid" "Dafne" "Salma"
## [5,] "Leslie" "Alexia" "Nañel" "Miler" "Sahid" "Oscar" "Dafne"
## [6,] "Leslie" "Alexia" "Nañel" "Miler" "Sahid" "Oscar" "Liz"
## [7,] "Leslie" "Alexia" "Nañel" "Miler" "Sahid" "Oscar" "Manson"
## [8,] "Leslie" "Alexia" "Nañel" "Miler" "Sahid" "Oscar" "Salma"
## [9,] "Leslie" "Alexia" "Nañel" "Miler" "Sahid" "Liz" "Dafne"
## [10,] "Leslie" "Alexia" "Nañel" "Miler" "Sahid" "Liz" "Oscar"
tail(permutations(n = n,r = grupos, S.personas),10)
## [,1] [,2] [,3] [,4] [,5] [,6] [,7]
## [604791,] "Salma" "Sahid" "Oscar" "Nañel" "Miler" "Leslie" "Liz"
## [604792,] "Salma" "Sahid" "Oscar" "Nañel" "Miler" "Leslie" "Manson"
## [604793,] "Salma" "Sahid" "Oscar" "Nañel" "Miler" "Liz" "Alexia"
## [604794,] "Salma" "Sahid" "Oscar" "Nañel" "Miler" "Liz" "Dafne"
## [604795,] "Salma" "Sahid" "Oscar" "Nañel" "Miler" "Liz" "Leslie"
## [604796,] "Salma" "Sahid" "Oscar" "Nañel" "Miler" "Liz" "Manson"
## [604797,] "Salma" "Sahid" "Oscar" "Nañel" "Miler" "Manson" "Alexia"
## [604798,] "Salma" "Sahid" "Oscar" "Nañel" "Miler" "Manson" "Dafne"
## [604799,] "Salma" "Sahid" "Oscar" "Nañel" "Miler" "Manson" "Leslie"
## [604800,] "Salma" "Sahid" "Oscar" "Nañel" "Miler" "Manson" "Liz"
## [,1] [,2] [,3] [,4] [,5] [,6] [,7]
## [604791,] "Salma" "Manson" "Liz" "Oscar" "Dafne" "Nañel" "Miler"
## [604792,] "Salma" "Manson" "Liz" "Oscar" "Dafne" "Nañel" "Sahid"
## [604793,] "Salma" "Manson" "Liz" "Oscar" "Dafne" "Miler" "Leslie"
## [604794,] "Salma" "Manson" "Liz" "Oscar" "Dafne" "Miler" "Alexia"
## [604795,] "Salma" "Manson" "Liz" "Oscar" "Dafne" "Miler" "Nañel"
## [604796,] "Salma" "Manson" "Liz" "Oscar" "Dafne" "Miler" "Sahid"
## [604797,] "Salma" "Manson" "Liz" "Oscar" "Dafne" "Sahid" "Leslie"
## [604798,] "Salma" "Manson" "Liz" "Oscar" "Dafne" "Sahid" "Alexia"
## [604799,] "Salma" "Manson" "Liz" "Oscar" "Dafne" "Sahid" "Nañel"
## [604800,] "Salma" "Manson" "Liz" "Oscar" "Dafne" "Sahid" "Miler"
#Combinaciones de 4
grupos <- 4
head(combinations(n = n,r = grupos, S.personas),10)
## [,1] [,2] [,3] [,4]
## [1,] "Alexia" "Dafne" "Leslie" "Liz"
## [2,] "Alexia" "Dafne" "Leslie" "Manson"
## [3,] "Alexia" "Dafne" "Leslie" "Miler"
## [4,] "Alexia" "Dafne" "Leslie" "Nañel"
## [5,] "Alexia" "Dafne" "Leslie" "Oscar"
## [6,] "Alexia" "Dafne" "Leslie" "Sahid"
## [7,] "Alexia" "Dafne" "Leslie" "Salma"
## [8,] "Alexia" "Dafne" "Liz" "Manson"
## [9,] "Alexia" "Dafne" "Liz" "Miler"
## [10,] "Alexia" "Dafne" "Liz" "Nañel"
## [,1] [,2] [,3] [,4]
## [1,] "Leslie" "Alexia" "Nañel" "Miler"
## [2,] "Leslie" "Alexia" "Nañel" "Sahid"
## [3,] "Leslie" "Alexia" "Nañel" "Dafne"
## [4,] "Leslie" "Alexia" "Nañel" "Oscar"
## [5,] "Leslie" "Alexia" "Nañel" "Liz"
## [6,] "Leslie" "Alexia" "Nañel" "Manson"
## [7,] "Leslie" "Alexia" "Nañel" "Salma"
## [8,] "Leslie" "Alexia" "Miler" "Sahid"
## [9,] "Leslie" "Alexia" "Miler" "Dafne"
## [10,] "Leslie" "Alexia" "Miler" "Oscar"
tail(combinations(n = n,r = grupos, S.personas),10)
## [,1] [,2] [,3] [,4]
## [201,] "Manson" "Miler" "Sahid" "Salma"
## [202,] "Manson" "Nañel" "Oscar" "Sahid"
## [203,] "Manson" "Nañel" "Oscar" "Salma"
## [204,] "Manson" "Nañel" "Sahid" "Salma"
## [205,] "Manson" "Oscar" "Sahid" "Salma"
## [206,] "Miler" "Nañel" "Oscar" "Sahid"
## [207,] "Miler" "Nañel" "Oscar" "Salma"
## [208,] "Miler" "Nañel" "Sahid" "Salma"
## [209,] "Miler" "Oscar" "Sahid" "Salma"
## [210,] "Nañel" "Oscar" "Sahid" "Salma"
## [,1] [,2] [,3] [,4]
## [201,] "Sahid" "Dafne" "Manson" "Salma"
## [202,] "Sahid" "Oscar" "Liz" "Manson"
## [203,] "Sahid" "Oscar" "Liz" "Salma"
## [204,] "Sahid" "Oscar" "Manson" "Salma"
## [205,] "Sahid" "Liz" "Manson" "Salma"
## [206,] "Dafne" "Oscar" "Liz" "Manson"
## [207,] "Dafne" "Oscar" "Liz" "Salma"
## [208,] "Dafne" "Oscar" "Manson" "Salma"
## [209,] "Dafne" "Liz" "Manson" "Salma"
## [210,] "Oscar" "Liz" "Manson" "Salma"
#Combinaciones de 6
grupos <- 5
head(combinations(n = n,r = grupos, S.personas),10)
## [,1] [,2] [,3] [,4] [,5]
## [1,] "Alexia" "Dafne" "Leslie" "Liz" "Manson"
## [2,] "Alexia" "Dafne" "Leslie" "Liz" "Miler"
## [3,] "Alexia" "Dafne" "Leslie" "Liz" "Nañel"
## [4,] "Alexia" "Dafne" "Leslie" "Liz" "Oscar"
## [5,] "Alexia" "Dafne" "Leslie" "Liz" "Sahid"
## [6,] "Alexia" "Dafne" "Leslie" "Liz" "Salma"
## [7,] "Alexia" "Dafne" "Leslie" "Manson" "Miler"
## [8,] "Alexia" "Dafne" "Leslie" "Manson" "Nañel"
## [9,] "Alexia" "Dafne" "Leslie" "Manson" "Oscar"
## [10,] "Alexia" "Dafne" "Leslie" "Manson" "Sahid"
## [,1] [,2] [,3] [,4] [,5]
## [1,] "Leslie" "Alexia" "Nañel" "Miler" "Sahid"
## [2,] "Leslie" "Alexia" "Nañel" "Miler" "Dafne"
## [3,] "Leslie" "Alexia" "Nañel" "Miler" "Oscar"
## [4,] "Leslie" "Alexia" "Nañel" "Miler" "Liz"
## [5,] "Leslie" "Alexia" "Nañel" "Miler" "Manson"
## [6,] "Leslie" "Alexia" "Nañel" "Miler" "Salma"
## [7,] "Leslie" "Alexia" "Nañel" "Sahid" "Dafne"
## [8,] "Leslie" "Alexia" "Nañel" "Sahid" "Oscar"
## [9,] "Leslie" "Alexia" "Nañel" "Sahid" "Liz"
## [10,] "Leslie" "Alexia" "Nañel" "Sahid" "Manson"
tail(combinations(n = n,r = grupos, S.personas),10)
## [,1] [,2] [,3] [,4] [,5]
## [243,] "Liz" "Miler" "Nañel" "Oscar" "Salma"
## [244,] "Liz" "Miler" "Nañel" "Sahid" "Salma"
## [245,] "Liz" "Miler" "Oscar" "Sahid" "Salma"
## [246,] "Liz" "Nañel" "Oscar" "Sahid" "Salma"
## [247,] "Manson" "Miler" "Nañel" "Oscar" "Sahid"
## [248,] "Manson" "Miler" "Nañel" "Oscar" "Salma"
## [249,] "Manson" "Miler" "Nañel" "Sahid" "Salma"
## [250,] "Manson" "Miler" "Oscar" "Sahid" "Salma"
## [251,] "Manson" "Nañel" "Oscar" "Sahid" "Salma"
## [252,] "Miler" "Nañel" "Oscar" "Sahid" "Salma"
## [,1] [,2] [,3] [,4] [,5]
## [243,] "Miler" "Dafne" "Oscar" "Liz" "Salma"
## [244,] "Miler" "Dafne" "Oscar" "Manson" "Salma"
## [245,] "Miler" "Dafne" "Liz" "Manson" "Salma"
## [246,] "Miler" "Oscar" "Liz" "Manson" "Salma"
## [247,] "Juan" "Dafne" "Oscar" "Liz" "Manson"
## [248,] "Juan" "Dafne" "Oscar" "Liz" "Salma"
## [249,] "Juan" "Dafne" "Oscar" "Manson" "Salma"
## [250,] "Juan" "Dafne" "Liz" "Manson" "Salma"
## [251,] "Juan" "Oscar" "Liz" "Manson" "Salma"
## [252,] "Dafne" "Oscar" "Liz" "Manson" "Salma"
#Combinaciones de 8
grupos <- 8
head(combinations(n = n,r = grupos, S.personas),10)
## [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8]
## [1,] "Alexia" "Dafne" "Leslie" "Liz" "Manson" "Miler" "Nañel" "Oscar"
## [2,] "Alexia" "Dafne" "Leslie" "Liz" "Manson" "Miler" "Nañel" "Sahid"
## [3,] "Alexia" "Dafne" "Leslie" "Liz" "Manson" "Miler" "Nañel" "Salma"
## [4,] "Alexia" "Dafne" "Leslie" "Liz" "Manson" "Miler" "Oscar" "Sahid"
## [5,] "Alexia" "Dafne" "Leslie" "Liz" "Manson" "Miler" "Oscar" "Salma"
## [6,] "Alexia" "Dafne" "Leslie" "Liz" "Manson" "Miler" "Sahid" "Salma"
## [7,] "Alexia" "Dafne" "Leslie" "Liz" "Manson" "Nañel" "Oscar" "Sahid"
## [8,] "Alexia" "Dafne" "Leslie" "Liz" "Manson" "Nañel" "Oscar" "Salma"
## [9,] "Alexia" "Dafne" "Leslie" "Liz" "Manson" "Nañel" "Sahid" "Salma"
## [10,] "Alexia" "Dafne" "Leslie" "Liz" "Manson" "Oscar" "Sahid" "Salma"
## [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8]
## [1,] "Leslie" "Alexia" "Nañel" "Miler" "Sahid" "Dafne" "Oscar" "Liz"
## [2,] "Leslie" "Alexia" "Nañel" "Miler" "Sahid" "Dafne" "Oscar" "Manson"
## [3,] "Leslie" "Alexia" "Nañel" "Miler" "Sahid" "Dafne" "Oscar" "Salma"
## [4,] "Leslie" "Alexia" "Nañel" "Miler" "Sahid" "Dafne" "Liz" "Manson"
## [5,] "Leslie" "Alexia" "Nañel" "Miler" "Sahid" "Dafne" "Liz" "Salma"
## [6,] "Leslie" "Alexia" "Nañel" "Miler" "Sahid" "Dafne" "Manson" "Salma"
## [7,] "Leslie" "Alexia" "Nañel" "Miler" "Sahid" "Oscar" "Liz" "Manson"
## [8,] "Leslie" "Alexia" "Nañel" "Miler" "Sahid" "Oscar" "Liz" "Salma"
## [9,] "Leslie" "Alexia" "Nañel" "Miler" "Sahid" "Oscar" "Manson" "Salma"
## [10,] "Leslie" "Alexia" "Nañel" "Miler" "Sahid" "Liz" "Manson" "Salma
tail(combinations(n = n,r = grupos, S.personas),10)
## [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8]
## [36,] "Alexia" "Liz" "Manson" "Miler" "Nañel" "Oscar" "Sahid" "Salma"
## [37,] "Dafne" "Leslie" "Liz" "Manson" "Miler" "Nañel" "Oscar" "Sahid"
## [38,] "Dafne" "Leslie" "Liz" "Manson" "Miler" "Nañel" "Oscar" "Salma"
## [39,] "Dafne" "Leslie" "Liz" "Manson" "Miler" "Nañel" "Sahid" "Salma"
## [40,] "Dafne" "Leslie" "Liz" "Manson" "Miler" "Oscar" "Sahid" "Salma"
## [41,] "Dafne" "Leslie" "Liz" "Manson" "Nañel" "Oscar" "Sahid" "Salma"
## [42,] "Dafne" "Leslie" "Liz" "Miler" "Nañel" "Oscar" "Sahid" "Salma"
## [43,] "Dafne" "Leslie" "Manson" "Miler" "Nañel" "Oscar" "Sahid" "Salma"
## [44,] "Dafne" "Liz" "Manson" "Miler" "Nañel" "Oscar" "Sahid" "Salma"
## [45,] "Leslie" "Liz" "Manson" "Miler" "Nañel" "Oscar" "Sahid" "Salma"
## [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8]
## [36,] "Leslie" "Miler" "Sahid" "Dafne" "Oscar" "Liz" "Rodrigo" "Salma"
## [37,] "Alexia" "Nañel" "Miler" "Sahid" "Dafne" "Oscar" "Liz" "Rodrigo"
## [38,] "Alexia" "Nañel" "Miler" "Sahid" "Dafne" "Oscar" "Liz" "Salma"
## [39,] "Alexia" "Nañel" "Miler" "Sahid" "Dafne" "Oscar" "Rodrigo" "Salma"
## [40,] "Alexia" "Nañel" "Miler" "Sahid" "Dafne" "Liz" "Rodrigo" "Salma"
## [41,] "Alexia" "Nañel" "Miler" "Sahid" "Oscar" "Liz" "Rodrigo" "Salma"
## [42,] "Alexia" "Nañel" "Miler" "Dafne" "Oscar" "Liz" "Rodrigo" "Salma"
## [43,] "Alexia" "Nañel" "Sahid" "Dafne" "Oscar" "Liz" "Rodrigo" "Salma"
## [44,] "Alexia" "Miler" "Sahid" "Dafne" "Oscar" "Liz" "Rodrigo" "Salma"
## [45,] "Nañel" "Miler" "Sahid" "Dafne" "Oscar" "Liz" "Rodrigo" "Salma"
####n cuantos casos sale el nombre Laura en la primera posición? En ninguno. ¿Cuantas ocasiones aparece Alexia en segundo lugar? 8 veces.
¿Cuantas permutaciones se generan? 720. ####En permutaciones de 5 ¿En cuantos casos sale el nombre Dafne en la primera posición? En uno.
¿Cuantas ocasiones aparece Alexia en segundo lugar? 10 ocasiones.
¿Cuantas permutaciones se generan? 30240.
####En permutaciones de 7 ¿En cuantos casos sale el nombre Dafne en la primera posición? En dos.
¿Cuantas ocasiones aparece Alexia en segundo lugar? 10 ocasiones.
¿Cuantas permutaciones se generan? 604800