Practica 9 Funcion que genera nombres aleatorios

Objetivo: Función que genera nombres completos

Creando los dos vectores

nombres <- c("Ruben","Jorge","Patty","Luisa","Luis","Alejandra","Alondra","Jane","Ricardo","Manuel")
apellidos <-c("Gonzales","Perez","Lopez","Medina","Flores","Hernandes","Lomeli","Mora","Carrete","Campos")
nombres

##  [1] "Ruben"     "Jorge"     "Patty"     "Luisa"     "Luis"     
##  [6] "Alejandra" "Alondra"   "Jane"      "Ricardo"   "Manuel"

apellidos

##  [1] "Gonzales"  "Perez"     "Lopez"     "Medina"    "Flores"   
##  [6] "Hernandes" "Lomeli"    "Mora"      "Carrete"   "Campos"

Generando mil nombres 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  Alejandra    Carrete     Campos
## 2      Luisa     Campos  Hernandes
## 3      Patty     Lomeli      Lopez
## 4      Patty   Gonzales     Flores
## 5      Jorge  Hernandes  Hernandes
## 6      Jorge      Perez     Lomeli
## 7    Alondra      Perez     Campos
## 8      Ruben      Perez      Lopez
## 9       Jane     Lomeli    Carrete
## 10 Alejandra     Campos      Perez

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       Luisa   Gonzales  Hernandes
## 2     Ricardo    Carrete      Lopez
## 3     Ricardo     Flores     Medina
## 4       Patty  Hernandes      Lopez
## 5     Ricardo    Carrete      Perez
## 6        Jane      Lopez     Campos
## 7        Jane     Campos      Lopez
## 8        Luis      Lopez   Gonzales
## 9       Jorge     Campos  Hernandes
## 10       Luis       Mora      Perez
## 11      Patty      Perez    Carrete
## 12  Alejandra   Gonzales     Campos
## 13       Jane       Mora  Hernandes
## 14       Jane  Hernandes   Gonzales
## 15      Luisa       Mora     Flores
## 16      Patty     Medina      Lopez
## 17  Alejandra     Medina      Lopez
## 18       Luis      Perez   Gonzales
## 19    Alondra  Hernandes      Lopez
## 20     Manuel  Hernandes     Campos
## 21       Luis     Campos   Gonzales
## 22      Ruben     Medina   Gonzales
## 23       Luis    Carrete  Hernandes
## 24       Luis       Mora    Carrete
## 25       Luis  Hernandes      Lopez
## 26      Luisa   Gonzales     Lomeli
## 27      Ruben    Carrete    Carrete
## 28      Jorge     Flores      Lopez
## 29      Luisa       Mora   Gonzales
## 30      Luisa  Hernandes     Lomeli
## 31  Alejandra      Perez      Lopez
## 32       Jane    Carrete    Carrete
## 33      Patty      Lopez    Carrete
## 34  Alejandra     Flores      Lopez
## 35     Manuel     Flores  Hernandes
## 36    Ricardo      Perez     Campos
## 37       Luis    Carrete   Gonzales
## 38     Manuel     Flores  Hernandes
## 39     Manuel     Medina     Lomeli
## 40      Patty       Mora      Perez
## 41      Jorge     Medina    Carrete
## 42    Alondra      Perez       Mora
## 43      Jorge     Flores     Lomeli
## 44    Alondra       Mora    Carrete
## 45      Ruben  Hernandes     Flores
## 46  Alejandra     Medina   Gonzales
## 47    Alondra      Lopez     Lomeli
## 48  Alejandra     Campos     Medina
## 49     Manuel     Campos    Carrete
## 50    Ricardo  Hernandes  Hernandes
## 51       Luis     Campos     Medina
## 52      Ruben     Campos   Gonzales
## 53       Jane     Campos     Medina
## 54       Luis     Lomeli  Hernandes
## 55     Manuel     Campos    Carrete
## 56       Jane   Gonzales  Hernandes
## 57    Ricardo      Perez   Gonzales
## 58       Jane    Carrete     Campos
## 59    Ricardo     Campos      Perez
## 60       Luis      Lopez   Gonzales
## 61      Luisa     Flores     Medina
## 62      Ruben      Lopez    Carrete
## 63      Patty     Lomeli     Campos
## 64      Patty   Gonzales  Hernandes
## 65      Luisa    Carrete     Lomeli
## 66      Patty    Carrete     Campos
## 67    Alondra    Carrete      Perez
## 68       Luis  Hernandes  Hernandes
## 69       Jane     Flores       Mora
## 70    Alondra    Carrete     Medina
## 71    Alondra       Mora  Hernandes
## 72  Alejandra      Lopez       Mora
## 73     Manuel      Perez       Mora
## 74     Manuel     Campos    Carrete
## 75      Patty     Campos     Campos
## 76      Luisa     Medina  Hernandes
## 77      Luisa     Lomeli       Mora
## 78      Ruben      Lopez      Lopez
## 79      Luisa     Campos    Carrete
## 80      Patty      Lopez     Campos
## 81      Luisa  Hernandes   Gonzales
## 82      Ruben   Gonzales     Medina
## 83    Alondra    Carrete       Mora
## 84      Luisa   Gonzales       Mora
## 85      Luisa     Flores       Mora
## 86    Alondra     Medina      Perez
## 87       Jane       Mora      Lopez
## 88      Patty     Flores  Hernandes
## 89    Alondra       Mora   Gonzales
## 90       Luis       Mora     Campos
## 91      Jorge      Perez     Medina
## 92       Jane  Hernandes  Hernandes
## 93      Ruben      Perez    Carrete
## 94      Luisa     Flores      Perez
## 95    Alondra     Flores     Campos
## 96     Manuel      Perez     Campos
## 97       Jane     Flores    Carrete
## 98      Patty  Hernandes     Flores
## 99      Ruben     Campos    Carrete
## 100     Patty  Hernandes     Medina

Interpretacion de la practica