Literally a decade old post, but here is the more direct answer to initializing a difftime object in case someone else has a need to get this done (like myself).
t <- as.difftime(numeric(9), units="secs")
t
# Time differences in secs
# [1] 0 0 0 0 0 0 0 0 0