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"