Objetivo: Determina a partir de la fecha actual y la fecha de nacimiento la edad de una persona
Nombre
vnombre <-'Carolina Sosa'
vnombre
## [1] "Carolina Sosa"
Fecha de Nacimiento
vfechanac <-'1983-12-20'
vagnionac <- as.numeric(substr(vfechanac, 1,4))
vfechanac
## [1] "1983-12-20"
vagnionac
## [1] 1983
Día de hoy
vhoy <- Sys.Date()
vagniohoy <- format(vhoy, "%Y")
vagniohoy <- as.numeric(vagniohoy)
vhoy
## [1] "2018-06-09"
vagniohoy
## [1] 2018
Correo electrónico y género
vmail<-'scaritoh2@gmail.com'
vgenero<-'femenino'
vmail
## [1] "scaritoh2@gmail.com"
vgenero
## [1] "femenino"
Edad de la persona
vagniohoy
## [1] 2018
vagnionac
## [1] 1983
vedad <- vagniohoy - vagnionac
vedad
## [1] 35