OBJETIVO: Función que genera nombres completos
Creando los dos vectores
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"
Generando mil nombres y mil apellidos
milnombres <- sample(nombres, 1000, replace = TRUE)
milapellidos <- sample(apellidos, 1000, replace = TRUE)
Generando 10 nombres y apellidos completos Nombre, 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 CARLOS CARRETE RODRIGUEZ
## 2 MARIA GONZALEZ GONZALEZ
## 3 RUBEN CARRETE RODRIGUEZ
## 4 FERNANDO RUIZ RUIZ
## 5 ALEJANDRO ROBLES MEDINA
## 6 ALEJANDRO RODRIGUEZ GONZALEZ
## 7 FERNANDO MEDINA ROBLES
## 8 FABIOLA CARRETE JUAREZ
## 9 PATY JUAREZ PIZARRO
## 10 PATY RUIZ GOMEZ
Creando una función
generaNombres <- 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 ROGELIO GONZALEZ ROBLES
## 2 CARLOS JUAREZ RUIZ
## 3 FABIOLA GOMEZ RUIZ
## 4 MARIA RODRIGUEZ JUAREZ
## 5 CARLOS MEDINA ROBLES
## 6 ROGELIO GOMEZ MEDINA
## 7 ALEJANDRO GONZALEZ MEDINA
## 8 ANDREA CARRETE RODRIGUEZ
## 9 ROGELIO PIZARRO JUAREZ
## 10 FABIOLA GONZALEZ ROBLES
## 11 RUBEN PIZARRO MEDINA
## 12 FABIOLA CAMPOS RUIZ
## 13 ALEJANDRO PIZARRO PIZARRO
## 14 FERNANDO RODRIGUEZ JUAREZ
## 15 ROGELIO CARRETE GOMEZ
## 16 FERNANDO CAMPOS RUIZ
## 17 RUBEN RUIZ ROBLES
## 18 FERNANDO JUAREZ JUAREZ
## 19 RUBEN RODRIGUEZ GONZALEZ
## 20 MARIA RODRIGUEZ RUIZ
## 21 CARLOS PIZARRO CARRETE
## 22 PATY PIZARRO MEDINA
## 23 PATY PIZARRO CARRETE
## 24 MARIA RUIZ MEDINA
## 25 PATY JUAREZ GONZALEZ
## 26 CARLOS CAMPOS PIZARRO
## 27 ANDREA JUAREZ CARRETE
## 28 MARIA CARRETE GOMEZ
## 29 LUISA CARRETE GONZALEZ
## 30 PATY RODRIGUEZ GONZALEZ
## 31 RUBEN GOMEZ RODRIGUEZ
## 32 PATY GONZALEZ ROBLES
## 33 LUISA JUAREZ ROBLES
## 34 FABIOLA PIZARRO PIZARRO
## 35 ANDREA GONZALEZ CARRETE
## 36 ALEJANDRO PIZARRO ROBLES
## 37 RUBEN ROBLES PIZARRO
## 38 ROGELIO JUAREZ JUAREZ
## 39 ANDREA MEDINA CARRETE
## 40 ALEJANDRO CARRETE MEDINA
## 41 CARLOS GONZALEZ GONZALEZ
## 42 FERNANDO CAMPOS PIZARRO
## 43 MARIA ROBLES CARRETE
## 44 ALEJANDRO JUAREZ RUIZ
## 45 PATY CAMPOS PIZARRO
## 46 LUISA PIZARRO GOMEZ
## 47 FABIOLA JUAREZ JUAREZ
## 48 PATY JUAREZ GONZALEZ
## 49 FERNANDO RODRIGUEZ GONZALEZ
## 50 FABIOLA MEDINA JUAREZ
## 51 PATY ROBLES MEDINA
## 52 CARLOS MEDINA RUIZ
## 53 CARLOS MEDINA MEDINA
## 54 RUBEN JUAREZ RODRIGUEZ
## 55 PATY CARRETE CAMPOS
## 56 MARIA RODRIGUEZ GOMEZ
## 57 MARIA JUAREZ RUIZ
## 58 LUISA MEDINA CARRETE
## 59 MARIA ROBLES CAMPOS
## 60 MARIA GOMEZ CAMPOS
## 61 ROGELIO CAMPOS PIZARRO
## 62 ALEJANDRO GOMEZ GOMEZ
## 63 FERNANDO JUAREZ CAMPOS
## 64 ALEJANDRO JUAREZ CAMPOS
## 65 ROGELIO RUIZ RUIZ
## 66 CARLOS JUAREZ GONZALEZ
## 67 FERNANDO CARRETE PIZARRO
## 68 MARIA ROBLES MEDINA
## 69 PATY JUAREZ GONZALEZ
## 70 RUBEN MEDINA PIZARRO
## 71 ROGELIO MEDINA MEDINA
## 72 RUBEN PIZARRO RODRIGUEZ
## 73 CARLOS GOMEZ JUAREZ
## 74 PATY GONZALEZ JUAREZ
## 75 FERNANDO JUAREZ MEDINA
## 76 CARLOS JUAREZ GOMEZ
## 77 ROGELIO PIZARRO CARRETE
## 78 FERNANDO JUAREZ RUIZ
## 79 ROGELIO JUAREZ GOMEZ
## 80 LUISA PIZARRO RUIZ
## 81 MARIA CAMPOS GONZALEZ
## 82 MARIA CARRETE CARRETE
## 83 ALEJANDRO RUIZ GONZALEZ
## 84 CARLOS RODRIGUEZ GONZALEZ
## 85 ANDREA PIZARRO CAMPOS
## 86 FABIOLA RODRIGUEZ MEDINA
## 87 LUISA GOMEZ RUIZ
## 88 MARIA JUAREZ ROBLES
## 89 FERNANDO GOMEZ RUIZ
## 90 FABIOLA JUAREZ GONZALEZ
## 91 FERNANDO CAMPOS CARRETE
## 92 FERNANDO ROBLES RODRIGUEZ
## 93 RUBEN GOMEZ PIZARRO
## 94 ANDREA MEDINA JUAREZ
## 95 ALEJANDRO ROBLES RUIZ
## 96 CARLOS RUIZ RODRIGUEZ
## 97 ROGELIO RUIZ JUAREZ
## 98 MARIA CAMPOS CAMPOS
## 99 FABIOLA CARRETE RODRIGUEZ
## 100 ANDREA GOMEZ RUIZ
En esta practica se generaron dos funciones de nombres y apellidos
con ellas se pudieron generar aleatoriamente nombres completos, es decir Nombre + Apellido Paterno + Apellido Materno, al final se hace una muestra de 100 combinaciones de un total de 1000 posibles registros