seqdf <- data.frame(mydata(seq(1, length.out = 100 by = '1')));
testdf <- data.frame(mydate = seq(as.Date('2012-01-01'),                                   length.out = 90, by = 'day'))
print(testdf)
