Objetivo: Función que genera nombres completos
Creando los dos vectores
nombres <- c('RUBEN', 'CARLOS', 'PATY', 'ALEJANDRO', 'LUISA',"ARMANDO","MARISOL",
'ROGELIO', 'ANDREA', 'FABIOLA', 'MARIA', 'FERNANDO',"JESUS")
apellidos <- c('GONZALEZ', 'MEDINA', 'ROBLES', 'JUAREZ', 'RUIZ',"URBINA","VEGA",
'PIZARRO', 'RODRIGUEZ', 'CARRETE', 'CAMPOS', 'GOMEZ',"LEYVA")
nombres ; apellidos
## [1] "RUBEN" "CARLOS" "PATY" "ALEJANDRO" "LUISA"
## [6] "ARMANDO" "MARISOL" "ROGELIO" "ANDREA" "FABIOLA"
## [11] "MARIA" "FERNANDO" "JESUS"
## [1] "GONZALEZ" "MEDINA" "ROBLES" "JUAREZ" "RUIZ"
## [6] "URBINA" "VEGA" "PIZARRO" "RODRIGUEZ" "CARRETE"
## [11] "CAMPOS" "GOMEZ" "LEYVA"
Generando mil nombres y mil apellidso
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 MARISOL RODRIGUEZ ROBLES
## 2 JESUS VEGA RODRIGUEZ
## 3 FABIOLA URBINA GONZALEZ
## 4 PATY RUIZ RUIZ
## 5 CARLOS PIZARRO MEDINA
## 6 JESUS GONZALEZ ROBLES
## 7 JESUS RODRIGUEZ CARRETE
## 8 RUBEN MEDINA RUIZ
## 9 ROGELIO CARRETE RUIZ
## 10 FABIOLA JUAREZ GONZALEZ
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 ANDREA CARRETE URBINA
## 2 RUBEN CARRETE GONZALEZ
## 3 ANDREA JUAREZ CAMPOS
## 4 ARMANDO MEDINA URBINA
## 5 RUBEN PIZARRO URBINA
## 6 FABIOLA ROBLES LEYVA
## 7 MARISOL CARRETE JUAREZ
## 8 MARISOL CAMPOS ROBLES
## 9 FABIOLA RODRIGUEZ URBINA
## 10 LUISA URBINA RODRIGUEZ
## 11 ALEJANDRO JUAREZ PIZARRO
## 12 FERNANDO CAMPOS VEGA
## 13 JESUS JUAREZ CARRETE
## 14 FABIOLA LEYVA MEDINA
## 15 ANDREA PIZARRO RODRIGUEZ
## 16 FERNANDO RODRIGUEZ CARRETE
## 17 LUISA ROBLES VEGA
## 18 FABIOLA RUIZ URBINA
## 19 JESUS URBINA MEDINA
## 20 CARLOS ROBLES GONZALEZ
## 21 MARIA RODRIGUEZ CAMPOS
## 22 LUISA CAMPOS GOMEZ
## 23 LUISA MEDINA PIZARRO
## 24 ROGELIO MEDINA PIZARRO
## 25 PATY MEDINA VEGA
## 26 FABIOLA PIZARRO PIZARRO
## 27 ROGELIO JUAREZ MEDINA
## 28 MARIA GOMEZ GONZALEZ
## 29 RUBEN CAMPOS PIZARRO
## 30 RUBEN RODRIGUEZ GOMEZ
## 31 ROGELIO CARRETE URBINA
## 32 JESUS MEDINA ROBLES
## 33 MARISOL PIZARRO CAMPOS
## 34 FABIOLA LEYVA RODRIGUEZ
## 35 JESUS VEGA URBINA
## 36 LUISA ROBLES VEGA
## 37 ARMANDO CAMPOS MEDINA
## 38 LUISA CARRETE URBINA
## 39 ARMANDO CAMPOS MEDINA
## 40 ALEJANDRO VEGA LEYVA
## 41 ROGELIO RODRIGUEZ CARRETE
## 42 FERNANDO LEYVA VEGA
## 43 RUBEN RUIZ RUIZ
## 44 MARISOL URBINA CARRETE
## 45 ARMANDO MEDINA GOMEZ
## 46 MARISOL URBINA CAMPOS
## 47 JESUS JUAREZ VEGA
## 48 MARISOL ROBLES VEGA
## 49 LUISA PIZARRO URBINA
## 50 RUBEN JUAREZ URBINA
## 51 ROGELIO GOMEZ MEDINA
## 52 CARLOS LEYVA ROBLES
## 53 PATY VEGA ROBLES
## 54 MARISOL VEGA GONZALEZ
## 55 CARLOS CAMPOS URBINA
## 56 JESUS JUAREZ GONZALEZ
## 57 FABIOLA MEDINA URBINA
## 58 ARMANDO URBINA PIZARRO
## 59 ARMANDO JUAREZ PIZARRO
## 60 ROGELIO URBINA RUIZ
## 61 FERNANDO URBINA LEYVA
## 62 ARMANDO CARRETE RODRIGUEZ
## 63 FABIOLA RUIZ JUAREZ
## 64 ALEJANDRO RODRIGUEZ URBINA
## 65 ALEJANDRO GONZALEZ CARRETE
## 66 FABIOLA URBINA URBINA
## 67 MARIA GONZALEZ GOMEZ
## 68 FERNANDO RODRIGUEZ GOMEZ
## 69 FERNANDO VEGA RUIZ
## 70 FERNANDO MEDINA ROBLES
## 71 MARISOL GONZALEZ PIZARRO
## 72 ANDREA JUAREZ ROBLES
## 73 ANDREA RODRIGUEZ CAMPOS
## 74 LUISA ROBLES GOMEZ
## 75 LUISA LEYVA VEGA
## 76 ROGELIO JUAREZ PIZARRO
## 77 JESUS CAMPOS LEYVA
## 78 MARISOL GOMEZ CARRETE
## 79 MARISOL URBINA CAMPOS
## 80 MARISOL RODRIGUEZ PIZARRO
## 81 LUISA URBINA RODRIGUEZ
## 82 LUISA ROBLES GONZALEZ
## 83 LUISA CARRETE CAMPOS
## 84 ANDREA PIZARRO VEGA
## 85 CARLOS URBINA GOMEZ
## 86 ROGELIO GONZALEZ JUAREZ
## 87 MARISOL LEYVA CARRETE
## 88 CARLOS URBINA PIZARRO
## 89 PATY MEDINA CAMPOS
## 90 JESUS JUAREZ PIZARRO
## 91 LUISA JUAREZ VEGA
## 92 MARISOL URBINA JUAREZ
## 93 ALEJANDRO PIZARRO RODRIGUEZ
## 94 ALEJANDRO LEYVA URBINA
## 95 RUBEN URBINA VEGA
## 96 ALEJANDRO VEGA GONZALEZ
## 97 LUISA URBINA GONZALEZ
## 98 PATY URBINA MEDINA
## 99 RUBEN ROBLES PIZARRO
## 100 CARLOS LEYVA CARRETE