Objetivo: Crear una funcion que genere nombres completos aleatoriamente
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"
Generar mil nombres y mil apellidos
milnombres<-sample(nombres, 1000, replace=TRUE)
milapellidos<-sample(apellidos, 1000, replace = TRUE)
Generar 10 nombres completos con apellido paterno y apellido 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 CAMPOS PIZARRO
## 2 ROGELIO ROBLES CARRETE
## 3 PATY JUAREZ MEDINA
## 4 LUISA JUAREZ CARRETE
## 5 FABIOLA CAMPOS JUAREZ
## 6 CARLOS ROBLES MEDINA
## 7 ANDREA PIZARRO RODRIGUEZ
## 8 MARIA JUAREZ GOMEZ
## 9 MARIA CARRETE JUAREZ
## 10 FABIOLA RUIZ GONZALEZ
Crear una funcion para generar los nombres
generarNombres<-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
}
Llamar a la función creada
personas<-generarNombres(nombres, apellidos, 100)
personas
## Nombre Apellido.P Apellido.M
## 1 ROGELIO MEDINA CARRETE
## 2 CARLOS CAMPOS MEDINA
## 3 FERNANDO PIZARRO JUAREZ
## 4 MARIA RODRIGUEZ ROBLES
## 5 CARLOS CARRETE MEDINA
## 6 ALEJANDRO GOMEZ MEDINA
## 7 FERNANDO RUIZ CARRETE
## 8 RUBEN RUIZ PIZARRO
## 9 FABIOLA GONZALEZ PIZARRO
## 10 RUBEN MEDINA RUIZ
## 11 FERNANDO GONZALEZ ROBLES
## 12 ROGELIO CAMPOS RODRIGUEZ
## 13 MARIA RODRIGUEZ GONZALEZ
## 14 RUBEN GONZALEZ PIZARRO
## 15 ANDREA MEDINA ROBLES
## 16 ANDREA RUIZ PIZARRO
## 17 ROGELIO ROBLES JUAREZ
## 18 ROGELIO GOMEZ ROBLES
## 19 RUBEN CAMPOS ROBLES
## 20 PATY GONZALEZ CARRETE
## 21 RUBEN RUIZ ROBLES
## 22 MARIA CAMPOS CARRETE
## 23 ROGELIO RUIZ JUAREZ
## 24 ALEJANDRO MEDINA RODRIGUEZ
## 25 MARIA GOMEZ GOMEZ
## 26 ALEJANDRO MEDINA ROBLES
## 27 PATY RODRIGUEZ GONZALEZ
## 28 RUBEN JUAREZ MEDINA
## 29 ALEJANDRO PIZARRO CAMPOS
## 30 ROGELIO CARRETE CAMPOS
## 31 LUISA MEDINA CAMPOS
## 32 LUISA RUIZ RUIZ
## 33 PATY RODRIGUEZ CAMPOS
## 34 PATY MEDINA GOMEZ
## 35 CARLOS CARRETE JUAREZ
## 36 LUISA MEDINA JUAREZ
## 37 CARLOS CARRETE RODRIGUEZ
## 38 LUISA GONZALEZ MEDINA
## 39 ROGELIO ROBLES JUAREZ
## 40 RUBEN JUAREZ GOMEZ
## 41 MARIA RODRIGUEZ RODRIGUEZ
## 42 FABIOLA RUIZ RUIZ
## 43 ALEJANDRO RODRIGUEZ CARRETE
## 44 PATY MEDINA GOMEZ
## 45 FERNANDO PIZARRO GONZALEZ
## 46 MARIA ROBLES RODRIGUEZ
## 47 ROGELIO JUAREZ GONZALEZ
## 48 ROGELIO ROBLES MEDINA
## 49 ANDREA CARRETE RODRIGUEZ
## 50 ROGELIO CAMPOS CAMPOS
## 51 ALEJANDRO JUAREZ MEDINA
## 52 CARLOS PIZARRO PIZARRO
## 53 CARLOS MEDINA RODRIGUEZ
## 54 ALEJANDRO CARRETE CAMPOS
## 55 PATY RUIZ ROBLES
## 56 PATY GOMEZ PIZARRO
## 57 PATY PIZARRO PIZARRO
## 58 LUISA PIZARRO JUAREZ
## 59 FERNANDO CAMPOS RODRIGUEZ
## 60 PATY GOMEZ JUAREZ
## 61 FERNANDO ROBLES CAMPOS
## 62 ANDREA GOMEZ ROBLES
## 63 FABIOLA GONZALEZ JUAREZ
## 64 FABIOLA PIZARRO ROBLES
## 65 ANDREA PIZARRO CARRETE
## 66 FERNANDO RODRIGUEZ RODRIGUEZ
## 67 RUBEN MEDINA RODRIGUEZ
## 68 LUISA JUAREZ GONZALEZ
## 69 PATY RUIZ CAMPOS
## 70 ROGELIO GOMEZ ROBLES
## 71 RUBEN GOMEZ MEDINA
## 72 ANDREA ROBLES RODRIGUEZ
## 73 PATY CAMPOS CAMPOS
## 74 FABIOLA CAMPOS CAMPOS
## 75 MARIA GOMEZ RUIZ
## 76 LUISA RODRIGUEZ MEDINA
## 77 PATY MEDINA CAMPOS
## 78 ALEJANDRO JUAREZ GONZALEZ
## 79 PATY CARRETE RUIZ
## 80 LUISA CAMPOS ROBLES
## 81 LUISA JUAREZ CAMPOS
## 82 ROGELIO RODRIGUEZ RODRIGUEZ
## 83 ALEJANDRO GONZALEZ CARRETE
## 84 FERNANDO ROBLES RODRIGUEZ
## 85 ANDREA GONZALEZ RUIZ
## 86 ALEJANDRO GOMEZ GOMEZ
## 87 FERNANDO RUIZ GONZALEZ
## 88 ROGELIO RUIZ ROBLES
## 89 FABIOLA ROBLES RUIZ
## 90 ANDREA GONZALEZ GONZALEZ
## 91 LUISA JUAREZ PIZARRO
## 92 CARLOS GONZALEZ RUIZ
## 93 RUBEN MEDINA GONZALEZ
## 94 MARIA CAMPOS JUAREZ
## 95 FABIOLA CARRETE RODRIGUEZ
## 96 FERNANDO RODRIGUEZ MEDINA
## 97 ALEJANDRO RODRIGUEZ RODRIGUEZ
## 98 ALEJANDRO MEDINA PIZARRO
## 99 PATY CAMPOS CARRETE
## 100 FERNANDO GONZALEZ GONZALEZ
print("Se generan 100 nombres con apellidos paterno y maternos aleatoriamente")
## [1] "Se generan 100 nombres con apellidos paterno y maternos aleatoriamente"