Practica NO 9 funcion que genera nombres aleatorios

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

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