######################## DATUM V R #################################
# install.packages("chron")
library(chron)

Sys.time() # systemovy cas
Sys.Date() # systemove datum
date()     # datum

cas <- Sys.time()
cas
typeof(cas)

cas2 <- as.POSIXlt(cas)
cas2
typeof(cas2)
unclass(cas2)

cas2$`sec` # sekundy
cas2$min   # minuty
cas2$hour  # hodiny
cas2$mday  # den mesice (1 - 31)
cas2$mon   # mesic (0 - 11, 11 = listopad)
cas2$year  # rok od 1900 (tzn. pto 2018 je to 118ty rok)
cas2$wday  # den tydne (0 - 6, 0 = nedele)
cas2$yday  # den roku (0 - 365)
cas2$isdst # daylight savings indicator
cas2$zone  # casova zona

cas3 <- as.POSIXct(cas)
cas3
typeof(cas3)

cas4 <- as.Date(cas)
cas4
typeof(cas4)

as.Date("13/3/1992", format = "%d/%m/%Y")
as.Date("Březen 13, 1992", format = "%B %d, %Y")
as.Date("13-Březen-1992", format= "%d-%B-%Y")

letapane <- c("10/7/1856", "3/1/1892", "21/6/1948")
# note: 
# 10. 7. 1856 *Nikola Tesla
# 3. 1. 1892 *J. R. R. Tolkien
# 21. 6. 1948 *A. Sapkowski

rok_narozeni <- as.Date(letapane, format = "%d/%m/%Y")
rok_narozeni

### Import dat numerickeho formatu
## Excel
data <- c(17431, 15349)
data2 <- as.Date(data, origin = "1899-12-30")
data2
# note:
# 21. 9. 1947 * S. King
# 8. 1 .1942 * S. Hawking

## Excel on Mac
data <- c(17426, 38540)
data3 <- as.Date(data, origin = "1904-01-01")
data3

### zmena formatu data
rok_narozeni
format(rok_narozeni, "%a %b %d")
format(rok_narozeni, "%A %B %d %Y")

min(rok_narozeni)
max(rok_narozeni)

rok_narozeni
plus <- rok_narozeni + 5
plus


### DOMÁCÍ ÚKOL 12
# A) Vytvorte objekt roky, do ktereho ulozite data narozeni Vami zvolenych
# peti vyznamnych osobnosti. 
# B) Zjistete prumerny rok objektu roky.
# C) Objekt roky nasledne upravte za pomoci funkce format() tak, abyste
# vytvorili vektor dni narození zminenych peti osobnosti. Vysledny vektor dny, 
# bude obsahovat POUZE dny v tydnu.