r - インデックスの 1 秒未満の部分を POSIXlt から抽出するにはどうすればよいですか?

Question

POSIXlt オブジェクトから小数を抽出するにはどうすればよいですか? as.numeric() は、エポックからの秒数のみを提供します。

as.character((as.POSIXlt(1366736969, origin="1970-01-01") + 0.001172))
[1] "2013-04-23 13:09:29.001172"
as.numeric((as.POSIXlt(1366736969, origin="1970-01-01") + 0.001172))
[1] 1366736969