Objetivo: Función que genera nombres completos

Creando los dos vectores

{r}

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

Generando mil nombres y mil apellidos

{r}

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

Generando 10 nombres y apellidos completos Nombre, Paterno y Materno

{r}

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

Creando una función

{r}

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

{r}

personas <- generaNombres(nombres, apellidos, 100) personas

Analisis de los Datos

En esta practica se generan aleatoriamente nombres de personas en donde primero se generan

10 nombres y posteriormente 100 con apeido paterno y materno.