inmat <- matrix(1:9, ncol = 3L)
embed.mat(inmat, M = 4L, N = 4L)
embed.mat(inmat, N = 6L, n = 4L, fill = NA)
d1 = as.Date('1987-05-02')
d2 = as.Date('2016-02-23')
quick_year(d1)
quick_mday(d1)
Run the code above in your browser using DataLab