## Not run:
# sample.dt <- data.table(date = as.Date((Sys.Date()-999):Sys.Date(),origin="1970-01-01"),
# quantity = sample(10:50,1000,TRUE),
# value = sample(100:1000,1000,TRUE))
# # print dt
# print(sample.dt)
# # print head of xts
# print(head(as.xts.data.table(sample.dt))) # xts might not be attached on search path
# ## End(Not run)
Run the code above in your browser using DataLab