PRACTICA 9, FUNCION QUE GENERA NOMBRES ALEATORIOS
OBJETIVO: FUNCION QUE GENERA NOMBRES COMPLETOS
Creando los 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 1000 nombres y 1000 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 MARIA RUIZ CAMPOS
## 2 ALEJANDRO RUIZ JUAREZ
## 3 ALEJANDRO ROBLES RODRIGUEZ
## 4 ALEJANDRO CAMPOS JUAREZ
## 5 LUISA GOMEZ PIZARRO
## 6 FABIOLA MEDINA CARRETE
## 7 PATY GONZALEZ JUAREZ
## 8 PATY RUIZ MEDINA
## 9 ROGELIO GONZALEZ JUAREZ
## 10 LUISA JUAREZ PIZARRO
Creando una funcion
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 funcion creada
personas <- generaNombres(nombres, apellidos, 100)
personas
## Nombre Apellido.P Apellido.M
## 1 CARLOS ROBLES PIZARRO
## 2 ROGELIO MEDINA RODRIGUEZ
## 3 RUBEN RODRIGUEZ RUIZ
## 4 ALEJANDRO JUAREZ MEDINA
## 5 MARIA MEDINA ROBLES
## 6 FABIOLA PIZARRO JUAREZ
## 7 LUISA CARRETE CAMPOS
## 8 MARIA JUAREZ MEDINA
## 9 MARIA JUAREZ RODRIGUEZ
## 10 MARIA CARRETE RUIZ
## 11 MARIA JUAREZ JUAREZ
## 12 PATY GOMEZ ROBLES
## 13 PATY RODRIGUEZ JUAREZ
## 14 FABIOLA PIZARRO CARRETE
## 15 ROGELIO GONZALEZ ROBLES
## 16 CARLOS CARRETE ROBLES
## 17 MARIA CARRETE CAMPOS
## 18 RUBEN GONZALEZ RUIZ
## 19 CARLOS RUIZ RODRIGUEZ
## 20 FABIOLA ROBLES GONZALEZ
## 21 PATY JUAREZ JUAREZ
## 22 ROGELIO ROBLES GOMEZ
## 23 RUBEN PIZARRO ROBLES
## 24 MARIA GONZALEZ MEDINA
## 25 RUBEN GOMEZ CAMPOS
## 26 ALEJANDRO MEDINA CARRETE
## 27 LUISA RUIZ PIZARRO
## 28 ROGELIO ROBLES GOMEZ
## 29 MARIA GOMEZ ROBLES
## 30 ALEJANDRO PIZARRO GONZALEZ
## 31 RUBEN JUAREZ CAMPOS
## 32 ALEJANDRO CAMPOS MEDINA
## 33 CARLOS CARRETE RODRIGUEZ
## 34 MARIA RUIZ JUAREZ
## 35 ANDREA GOMEZ CARRETE
## 36 MARIA CAMPOS GONZALEZ
## 37 CARLOS RODRIGUEZ GONZALEZ
## 38 ALEJANDRO ROBLES RUIZ
## 39 ALEJANDRO RUIZ GONZALEZ
## 40 ROGELIO PIZARRO GOMEZ
## 41 PATY GOMEZ RODRIGUEZ
## 42 FERNANDO PIZARRO RODRIGUEZ
## 43 RUBEN GONZALEZ MEDINA
## 44 LUISA JUAREZ GONZALEZ
## 45 ROGELIO RODRIGUEZ RUIZ
## 46 PATY PIZARRO CAMPOS
## 47 FABIOLA ROBLES RODRIGUEZ
## 48 PATY MEDINA GONZALEZ
## 49 MARIA GOMEZ RODRIGUEZ
## 50 RUBEN GOMEZ RUIZ
## 51 FERNANDO JUAREZ RUIZ
## 52 ANDREA GONZALEZ GOMEZ
## 53 MARIA RUIZ RODRIGUEZ
## 54 ANDREA MEDINA PIZARRO
## 55 ALEJANDRO ROBLES PIZARRO
## 56 LUISA MEDINA JUAREZ
## 57 CARLOS PIZARRO ROBLES
## 58 FABIOLA GONZALEZ RUIZ
## 59 PATY JUAREZ GOMEZ
## 60 MARIA RUIZ CAMPOS
## 61 PATY MEDINA RODRIGUEZ
## 62 LUISA RODRIGUEZ MEDINA
## 63 ROGELIO JUAREZ CAMPOS
## 64 FABIOLA CAMPOS CARRETE
## 65 PATY ROBLES CARRETE
## 66 ANDREA MEDINA CARRETE
## 67 ANDREA CARRETE MEDINA
## 68 RUBEN MEDINA JUAREZ
## 69 ALEJANDRO JUAREZ ROBLES
## 70 ROGELIO GOMEZ GOMEZ
## 71 ANDREA RUIZ JUAREZ
## 72 FABIOLA RUIZ CAMPOS
## 73 RUBEN ROBLES JUAREZ
## 74 LUISA GOMEZ CARRETE
## 75 RUBEN GONZALEZ ROBLES
## 76 LUISA RODRIGUEZ CAMPOS
## 77 FABIOLA RUIZ RUIZ
## 78 RUBEN PIZARRO MEDINA
## 79 CARLOS GOMEZ GOMEZ
## 80 ALEJANDRO PIZARRO CAMPOS
## 81 ANDREA PIZARRO RUIZ
## 82 ALEJANDRO PIZARRO GOMEZ
## 83 ANDREA ROBLES CAMPOS
## 84 CARLOS GOMEZ CARRETE
## 85 ALEJANDRO ROBLES CAMPOS
## 86 LUISA RODRIGUEZ MEDINA
## 87 MARIA RODRIGUEZ ROBLES
## 88 PATY ROBLES CARRETE
## 89 LUISA GOMEZ JUAREZ
## 90 ANDREA GONZALEZ PIZARRO
## 91 LUISA JUAREZ GONZALEZ
## 92 LUISA GONZALEZ RODRIGUEZ
## 93 FERNANDO CAMPOS RUIZ
## 94 LUISA ROBLES PIZARRO
## 95 FERNANDO ROBLES CAMPOS
## 96 ALEJANDRO ROBLES JUAREZ
## 97 FERNANDO CAMPOS RODRIGUEZ
## 98 ANDREA RODRIGUEZ RODRIGUEZ
## 99 PATY PIZARRO MEDINA
## 100 LUISA PIZARRO ROBLES
INTERPRECION: PRIMERO SE CREA UN VECTOR CON NOMBRES Y APELLIDOS DE 10 PERSONAS, DESPUES SE GENERAN 1000 NOMBRES Y 1000 APELLIDOS, DE LOS CUALES SE VA A SACAR UNA MUESTRA DE 10 NOMBRES Y 10 APELLIDOS. DESPUES SE CREA UNA FUNCION PARA GENERAR ALEATORIAMENTE 100 NOMBRES CON SUS APELLIDOS PATERNOS Y APELLIDOS MATERNOS