Below are the solutions to these exercises on as.Date Exercise set.
#################### # # # Exercise 1 # # # #################### Exer1Dates <- as.Date(c("2010-05-01", "2004-03-15")) #################### # # # Exercise 2 # # # #################### Exer2Date <- as.Date("07/19/98", format = "%m/%d/%y") #################### # # # Exercise 3 # # # #################### as.Date(c(31539, 31540, 31541), origin = "1899-12-30")
## [1] "1986-05-07" "1986-05-08" "1986-05-09"
#################### # # # Exercise 4 # # # #################### Exer4Dates <- as.Date(c("02/07/10", "02/23/10", "02/08/10", "02/14/10", "02/10/10"), "%m/%d/%y") #################### # # # Exercise 5 # # # #################### mean(Exer4Dates)
## [1] "2010-02-12"
#################### # # # Exercise 6 # # # #################### max(Exer4Dates)
## [1] "2010-02-23"
#################### # # # Exercise 7 # # # #################### as.Date(c("10/25/2005", "06/08/1971"), "%m/%d/%Y")
## [1] "2005-10-25" "1971-06-08"
#################### # # # Exercise 8 # # # #################### chrDates <- as.character(Exer4Dates) #################### # # # Exercise 9 # # # #################### format(Sys.Date(), format="%B %d %Y")
## [1] "July 06 2016"
#################### # # # Exercise 10 # # # #################### format(Sys.time(), tz="HST")
## [1] "2016-07-06 01:42:36"
Leave a Reply