Objetivo: Determinar el número de años de una persona a partir de la fecha de nacimiento utilizando funciones, manejo de variables y operaciones aritméticas.
Descripción: A partir de la fecha de nacimiento determinar los años cumplidos que tiene una persona mediante uso de variables y funciones para determinar la edad
Nombre
vnombre <-'Juan Daniel Carrillo' #Asigna el nombre de la persona
vnombre #Muestra el nombre
## [1] "Juan Daniel Carrillo"
Fecha de Nacimiento
vfechanac <- '1984-07-09'#Asigna la fecha de nacimiento
vagnionac <- as.numeric(substr(vfechanac, 1,4))#Obtiene solo el año de la fecha de nacimiento y lo convierte a un entero
vfechanac #Muestra la fecha de nacimiento
## [1] "1984-07-09"
vagnionac #Muestra el año de nacimiento
## [1] 1984
Dia de Hoy
vhoy <- Sys.Date() #Obtiene la fecha actual del sistema
vagniohoy <- format(vhoy, "%Y") #Asisgna formato de solo año a la fecha actual
vagniohoy <- as.numeric(vagniohoy) #Convierte el año en numerico
vhoy #Muestra la fecha actual
## [1] "2018-06-09"
vagniohoy #Muestra el año en curso
## [1] 2018
vagnionac # Muestra la fecha de nacimiento
## [1] 1984
Correo electronico y genero
vmail<-'jdcarrillo1234@hotmail.com' #Asigna el correo electronico
vgenero<-'M' #Asigna el genero F para femenino M para masculino
vmail #Muestra el correo electronico
## [1] "jdcarrillo1234@hotmail.com"
vgenero #Muestra el genero
## [1] "M"
Calcular Edad
vagniohoy #Muestra el año actual
## [1] 2018
vagnionac #Muestra el año de nacimiento
## [1] 1984
vedad <- vagniohoy - vagnionac # Al año actual resta el año de nacimiento
vedad #Muestra la edad de la persona
## [1] 34