Zodiac(c(Date(1937,7,28), Date(1936,6,1), Date(1966,2,25),
Date(1964,11,17), Date(1972,4,25)), lang="deu")
d <- sample(seq(as.Date("2015-01-01"), as.Date("2015-12-31"), 1), 120)
z <- Zodiac(d)
Desc(z)
Run the code above in your browser using DataLab