x <- timeBasedSeq('2010-01-01/2010-01-02 12:00')
x <- xts(seq_along(x), x)
y <- timeBasedSeq('2010-01-01/2010-01-03 12:00/H')
y <- xts(seq_along(y), y, tzone = "America/New_York")
# Changing the tclass *changes* the internal index values
head(y) # the index has times
head(.index(y))
tclass(y) <- "Date"
head(y) # the index prints as a Date
head(.index(y)) # the internal index is truncated
Run the code above in your browser using DataLab