Practica 9 Creando funcion para generar nombres

Creamndo 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 mil nombre y mil apellidos

milnombres <- sample(nombres, 1000, replace = TRUE)
milapellidos <- sample(apellidos, 1000, replace = TRUE)

Generando 10 nombres y apellidos completos con el siguente acomodo Nombre, Apeido Paterno y Apeido 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     ANDREA     ROBLES      GOMEZ
## 2      RUBEN    PIZARRO     JUAREZ
## 3     CARLOS       RUIZ       RUIZ
## 4       PATY    CARRETE    PIZARRO
## 5      RUBEN   GONZALEZ     JUAREZ
## 6  ALEJANDRO     CAMPOS     MEDINA
## 7       PATY      GOMEZ   GONZALEZ
## 8     CARLOS       RUIZ     JUAREZ
## 9    ROGELIO     MEDINA     JUAREZ
## 10     RUBEN     MEDINA     ROBLES

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