as.data.table.xts function

Convert an xts object into a data.table