nombres <- c('RUBEN', 'CARLOS', 'PATY', 'ALEJANDRO', 'LUISA',
'ROGELIO', 'ANDREA', 'FABIOLA', 'MARIA', 'FERNANDO')
apellidos <- c('GONZALEZ', 'MEDINA', 'ROBLES', 'JUAREZ', 'RUIZ',
'PIZARRO', 'RODRIGUEZ', 'CARRETE', 'CAMPOS', 'GOMEZ')
nombres ; apellidos## [1] "RUBEN" "CARLOS" "PATY" "ALEJANDRO" "LUISA"
## [6] "ROGELIO" "ANDREA" "FABIOLA" "MARIA" "FERNANDO"## [1] "GONZALEZ" "MEDINA" "ROBLES" "JUAREZ" "RUIZ"
## [6] "PIZARRO" "RODRIGUEZ" "CARRETE" "CAMPOS" "GOMEZ"milnombres <- sample(nombres, 1000, replace = TRUE)
milapellidos <- sample(apellidos, 1000, replace = TRUE)###Generando 10 nombres y apellidos completosN ombre, Paterno y Materno
noms <- sample(milnombres, 10)
apesP <- sample(milapellidos, 10)
apesM <- sample(milapellidos, 10)
nombresCompletos <- data.frame(noms, apesP, apesM)
colnames(nombresCompletos) <- c("Nombre", "Apellido.P", "Apellido.M")
nombresCompletos## Nombre Apellido.P Apellido.M
## 1 ALEJANDRO RODRIGUEZ CARRETE
## 2 FERNANDO RUIZ MEDINA
## 3 PATY PIZARRO RODRIGUEZ
## 4 FERNANDO CAMPOS JUAREZ
## 5 FERNANDO ROBLES MEDINA
## 6 RUBEN ROBLES CARRETE
## 7 FABIOLA PIZARRO MEDINA
## 8 MARIA RUIZ RODRIGUEZ
## 9 CARLOS PIZARRO RODRIGUEZ
## 10 ALEJANDRO MEDINA MEDINAgeneraNombres <- function(losnombres, losapellidos, cuantos) {
milnombres <- sample(nombres, 1000, replace = TRUE)
milapellidos <- sample(apellidos, 1000, replace = TRUE)
noms <- sample(milnombres, cuantos)
apesP <- sample(milapellidos, cuantos)
apesM <- sample(milapellidos, cuantos)
nombresCompletos <- data.frame(noms, apesP, apesM)
colnames(nombresCompletos) <- c("Nombre", "Apellido.P", "Apellido.M")
nombresCompletos
}Llamando la función creada
personas <- generaNombres(nombres, apellidos, 100)
personas## Nombre Apellido.P Apellido.M
## 1 LUISA CARRETE GOMEZ
## 2 ROGELIO CAMPOS CARRETE
## 3 PATY ROBLES CARRETE
## 4 RUBEN JUAREZ JUAREZ
## 5 MARIA RODRIGUEZ RUIZ
## 6 CARLOS ROBLES CAMPOS
## 7 ANDREA GOMEZ MEDINA
## 8 PATY MEDINA RODRIGUEZ
## 9 ALEJANDRO GOMEZ MEDINA
## 10 CARLOS ROBLES GOMEZ
## 11 MARIA GONZALEZ RUIZ
## 12 LUISA RUIZ ROBLES
## 13 RUBEN RUIZ MEDINA
## 14 PATY JUAREZ RODRIGUEZ
## 15 ANDREA RUIZ CARRETE
## 16 CARLOS GONZALEZ JUAREZ
## 17 RUBEN RODRIGUEZ CAMPOS
## 18 CARLOS CAMPOS JUAREZ
## 19 ANDREA JUAREZ CAMPOS
## 20 FABIOLA ROBLES JUAREZ
## 21 ROGELIO CARRETE CARRETE
## 22 FERNANDO GOMEZ MEDINA
## 23 FABIOLA CARRETE PIZARRO
## 24 ALEJANDRO CARRETE RUIZ
## 25 ROGELIO CARRETE CAMPOS
## 26 ALEJANDRO GONZALEZ RUIZ
## 27 LUISA GONZALEZ RODRIGUEZ
## 28 FERNANDO RUIZ MEDINA
## 29 PATY CAMPOS GOMEZ
## 30 ANDREA MEDINA PIZARRO
## 31 ALEJANDRO RUIZ ROBLES
## 32 ROGELIO CAMPOS CAMPOS
## 33 RUBEN RUIZ MEDINA
## 34 PATY CAMPOS MEDINA
## 35 RUBEN PIZARRO RUIZ
## 36 MARIA ROBLES CAMPOS
## 37 ROGELIO RODRIGUEZ MEDINA
## 38 RUBEN CAMPOS CAMPOS
## 39 CARLOS PIZARRO GOMEZ
## 40 ALEJANDRO CARRETE JUAREZ
## 41 LUISA GOMEZ CAMPOS
## 42 PATY JUAREZ GOMEZ
## 43 LUISA MEDINA RODRIGUEZ
## 44 CARLOS MEDINA CARRETE
## 45 RUBEN RUIZ JUAREZ
## 46 ANDREA PIZARRO RUIZ
## 47 PATY RUIZ GOMEZ
## 48 CARLOS PIZARRO PIZARRO
## 49 ANDREA PIZARRO GONZALEZ
## 50 ROGELIO GONZALEZ PIZARRO
## 51 RUBEN GONZALEZ RODRIGUEZ
## 52 CARLOS PIZARRO GOMEZ
## 53 PATY MEDINA RODRIGUEZ
## 54 PATY CARRETE CAMPOS
## 55 RUBEN GOMEZ GOMEZ
## 56 LUISA PIZARRO CAMPOS
## 57 MARIA CAMPOS PIZARRO
## 58 ROGELIO CARRETE RODRIGUEZ
## 59 CARLOS JUAREZ MEDINA
## 60 ROGELIO CAMPOS PIZARRO
## 61 CARLOS PIZARRO CARRETE
## 62 FABIOLA JUAREZ CAMPOS
## 63 ROGELIO RUIZ PIZARRO
## 64 FABIOLA RODRIGUEZ ROBLES
## 65 FABIOLA PIZARRO CAMPOS
## 66 LUISA RUIZ CARRETE
## 67 PATY RUIZ GONZALEZ
## 68 FERNANDO RODRIGUEZ GONZALEZ
## 69 RUBEN GONZALEZ CARRETE
## 70 FABIOLA ROBLES CAMPOS
## 71 ANDREA JUAREZ RODRIGUEZ
## 72 MARIA RUIZ ROBLES
## 73 LUISA RUIZ RODRIGUEZ
## 74 FERNANDO ROBLES CARRETE
## 75 FERNANDO RODRIGUEZ GONZALEZ
## 76 FERNANDO MEDINA CARRETE
## 77 FERNANDO RODRIGUEZ CAMPOS
## 78 FABIOLA PIZARRO ROBLES
## 79 ROGELIO CAMPOS MEDINA
## 80 FERNANDO GONZALEZ JUAREZ
## 81 ALEJANDRO RUIZ GOMEZ
## 82 ANDREA PIZARRO RODRIGUEZ
## 83 MARIA CAMPOS RODRIGUEZ
## 84 PATY PIZARRO PIZARRO
## 85 MARIA JUAREZ MEDINA
## 86 LUISA GONZALEZ GONZALEZ
## 87 ALEJANDRO RODRIGUEZ JUAREZ
## 88 PATY JUAREZ JUAREZ
## 89 MARIA CAMPOS PIZARRO
## 90 ALEJANDRO GOMEZ GONZALEZ
## 91 ANDREA GONZALEZ ROBLES
## 92 ANDREA MEDINA GOMEZ
## 93 ANDREA PIZARRO RUIZ
## 94 ALEJANDRO CAMPOS CAMPOS
## 95 ALEJANDRO MEDINA RUIZ
## 96 PATY MEDINA GOMEZ
## 97 CARLOS PIZARRO ROBLES
## 98 ROGELIO RODRIGUEZ PIZARRO
## 99 RUBEN CAMPOS PIZARRO
## 100 RUBEN CARRETE CARRETE