vnombre <- "Maria Dolores Concepcion de Lara Gurrola"
vnombre
## [1] "Maria Dolores Concepcion de Lara Gurrola"
vfechanacim ="1985-11-13"
vagnionac <- as.numeric(substr(vfechanacim,1,4))
vhoy <- Sys.Date()
vagniohoy <- format(vhoy, "%Y")
vagniohoy <- as.numeric(vagniohoy)
edad = vagniohoy-vagnionac
vfechanacim
## [1] "1985-11-13"
edad
## [1] 33
vemail = “madokomp3@gmail.com” vgenero = “F” print (vgenero) print (vemail) ```