Practica No 9 Funcion que genera nombres

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 nombre 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      PATY     MEDINA    CARRETE
## 2      PATY     MEDINA     CAMPOS
## 3    ANDREA   GONZALEZ     JUAREZ
## 4     RUBEN     JUAREZ      GOMEZ
## 5   ROGELIO       RUIZ      GOMEZ
## 6  FERNANDO     MEDINA     JUAREZ
## 7   FABIOLA     ROBLES     CAMPOS
## 8     MARIA    CARRETE   GONZALEZ
## 9  FERNANDO     ROBLES   GONZALEZ
## 10 FERNANDO      GOMEZ  RODRIGUEZ

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     FABIOLA   GONZALEZ       RUIZ
## 2    FERNANDO   GONZALEZ       RUIZ
## 3     ROGELIO  RODRIGUEZ    PIZARRO
## 4       LUISA  RODRIGUEZ   GONZALEZ
## 5     FABIOLA     JUAREZ      GOMEZ
## 6       LUISA     MEDINA     MEDINA
## 7   ALEJANDRO  RODRIGUEZ       RUIZ
## 8     ROGELIO       RUIZ       RUIZ
## 9      CARLOS     MEDINA   GONZALEZ
## 10       PATY    PIZARRO     CAMPOS
## 11    ROGELIO       RUIZ    PIZARRO
## 12       PATY    CARRETE    CARRETE
## 13    FABIOLA      GOMEZ      GOMEZ
## 14      MARIA     CAMPOS    CARRETE
## 15     ANDREA    CARRETE    PIZARRO
## 16       PATY    CARRETE     MEDINA
## 17    FABIOLA     JUAREZ     ROBLES
## 18     CARLOS     JUAREZ  RODRIGUEZ
## 19      LUISA  RODRIGUEZ  RODRIGUEZ
## 20    FABIOLA     ROBLES       RUIZ
## 21      LUISA      GOMEZ       RUIZ
## 22      LUISA    PIZARRO       RUIZ
## 23   FERNANDO     CAMPOS     JUAREZ
## 24      MARIA  RODRIGUEZ     MEDINA
## 25      MARIA     ROBLES       RUIZ
## 26       PATY     MEDINA     MEDINA
## 27    FABIOLA     MEDINA      GOMEZ
## 28   FERNANDO     CAMPOS     ROBLES
## 29    FABIOLA    CARRETE     MEDINA
## 30    ROGELIO  RODRIGUEZ    CARRETE
## 31       PATY     ROBLES     ROBLES
## 32      RUBEN       RUIZ     CAMPOS
## 33    ROGELIO       RUIZ     ROBLES
## 34  ALEJANDRO     MEDINA  RODRIGUEZ
## 35    FABIOLA     JUAREZ     ROBLES
## 36  ALEJANDRO     JUAREZ     MEDINA
## 37  ALEJANDRO     MEDINA     MEDINA
## 38      RUBEN     JUAREZ  RODRIGUEZ
## 39      RUBEN     ROBLES    CARRETE
## 40       PATY     MEDINA     MEDINA
## 41     CARLOS     MEDINA   GONZALEZ
## 42   FERNANDO     MEDINA      GOMEZ
## 43     CARLOS     ROBLES    CARRETE
## 44    FABIOLA      GOMEZ    CARRETE
## 45      LUISA     MEDINA     CAMPOS
## 46     CARLOS       RUIZ    PIZARRO
## 47    ROGELIO     MEDINA     CAMPOS
## 48    FABIOLA       RUIZ    PIZARRO
## 49    ROGELIO     ROBLES   GONZALEZ
## 50     ANDREA     ROBLES      GOMEZ
## 51      LUISA    PIZARRO     MEDINA
## 52      LUISA       RUIZ       RUIZ
## 53     ANDREA       RUIZ     MEDINA
## 54   FERNANDO     ROBLES       RUIZ
## 55     CARLOS  RODRIGUEZ     JUAREZ
## 56     ANDREA       RUIZ     MEDINA
## 57  ALEJANDRO   GONZALEZ    CARRETE
## 58       PATY    PIZARRO       RUIZ
## 59      LUISA   GONZALEZ    PIZARRO
## 60       PATY      GOMEZ   GONZALEZ
## 61       PATY       RUIZ     ROBLES
## 62      MARIA    PIZARRO  RODRIGUEZ
## 63    FABIOLA  RODRIGUEZ      GOMEZ
## 64     CARLOS    CARRETE     JUAREZ
## 65     CARLOS     JUAREZ     JUAREZ
## 66      RUBEN     ROBLES    PIZARRO
## 67    ROGELIO     ROBLES      GOMEZ
## 68     CARLOS  RODRIGUEZ     MEDINA
## 69     CARLOS    PIZARRO       RUIZ
## 70       PATY      GOMEZ     CAMPOS
## 71     CARLOS      GOMEZ    PIZARRO
## 72    FABIOLA     JUAREZ     ROBLES
## 73    FABIOLA    PIZARRO       RUIZ
## 74    ROGELIO    CARRETE       RUIZ
## 75  ALEJANDRO    PIZARRO      GOMEZ
## 76      RUBEN  RODRIGUEZ     CAMPOS
## 77     CARLOS       RUIZ       RUIZ
## 78    FABIOLA       RUIZ       RUIZ
## 79       PATY   GONZALEZ       RUIZ
## 80    FABIOLA   GONZALEZ     CAMPOS
## 81   FERNANDO       RUIZ    PIZARRO
## 82      MARIA  RODRIGUEZ     CAMPOS
## 83   FERNANDO     MEDINA     ROBLES
## 84  ALEJANDRO  RODRIGUEZ      GOMEZ
## 85     CARLOS     JUAREZ    PIZARRO
## 86      LUISA   GONZALEZ    CARRETE
## 87      LUISA     CAMPOS     JUAREZ
## 88   FERNANDO    CARRETE  RODRIGUEZ
## 89      MARIA  RODRIGUEZ       RUIZ
## 90    FABIOLA      GOMEZ      GOMEZ
## 91      MARIA     ROBLES    PIZARRO
## 92       PATY     MEDINA       RUIZ
## 93      MARIA      GOMEZ     JUAREZ
## 94    ROGELIO       RUIZ      GOMEZ
## 95     ANDREA   GONZALEZ    CARRETE
## 96    ROGELIO   GONZALEZ  RODRIGUEZ
## 97    ROGELIO       RUIZ    CARRETE
## 98       PATY     ROBLES     ROBLES
## 99     CARLOS       RUIZ  RODRIGUEZ
## 100 ALEJANDRO    CARRETE   GONZALEZ