Practica #2: Edad de una persona
Objetivo: Determinar el numero de anios de una persona a partir de la fecha de nacimiento utilizando funciones, manejo de variables y operaciones aritmeticas.
Descripcion: A partir de la fecha de nacimiento determinar los anios cumplidos que tiene una persona mediante la diferencia que hay del anio actual menos el anio de nacimiento, es decir, los anios cumplidos al anio actual. Tambien el programa debe mostrar los valores de nombre, fecha de nacimiento, genero y los anios cumplidos o la edad de la persona mediante uso de variables y funciones para determinar la edad.
Fecha de nacimiento
vnombre <- 'Cecilia del Carmen Peschard Murguia'
vfechanac<- '1975-06-25'
vagnionac <- as.numeric(substr(vfechanac, 1,4))
print(vfechanac)
## [1] "1975-06-25"
print (vagnionac) ##despliega el anio de nacimiento de la persona
## [1] 1975
Fecha dia de hoy
vhoy <- Sys.Date()
vagniohoy <- format(vhoy, "%Y")
vagniohoy <- as.numeric(vagniohoy)
print (vhoy)
## [1] "2018-06-14"
print (vagniohoy) ##despliega el anio actual
## [1] 2018
Correo electronico y genero
vemail <-'ceciliapeschard@gmail.com'
vgenero<- 'Femenino'
print (vemail)
## [1] "ceciliapeschard@gmail.com"
print (vgenero)
## [1] "Femenino"
Determinar la edad actual
print (vagniohoy)
## [1] 2018
print (vagnionac)
## [1] 1975
vedad <- vagniohoy - vagnionac
print (vedad)
## [1] 43
Mostrar el resultado de las variables y la operacion aritmetica
print(vagniohoy)
## [1] 2018
print (vagnionac)
## [1] 1975
paste ('Ejemplo si este anio es',vagniohoy,'y la persona nacio en',vagnionac, 'entonces la persona tiene o cumple este anio',vedad, 'anios o este anio cumple los',vedad)
## [1] "Ejemplo si este anio es 2018 y la persona nacio en 1975 entonces la persona tiene o cumple este anio 43 anios o este anio cumple los 43"
paste (vagniohoy,'-',vagnionac,'=',vedad)
## [1] "2018 - 1975 = 43"