R version 4.6.0 RC (2026-04-21 r89932 ucrt) -- "Because it was There" Copyright (C) 2026 The R Foundation for Statistical Computing Platform: x86_64-w64-mingw32/x64 R is free software and comes with ABSOLUTELY NO WARRANTY. You are welcome to redistribute it under certain conditions. Type 'license()' or 'licence()' for distribution details. R is a collaborative project with many contributors. Type 'contributors()' for more information and 'citation()' on how to cite R or R packages in publications. Type 'demo()' for some demos, 'help()' for on-line help, or 'help.start()' for an HTML browser interface to help. Type 'q()' to quit R. > > library(nanotime) > > set.seed(42) > N <- 300 > shine <- nanotime(Sys.time()) + cumsum(10*rpois(n=N+1, lambda=4)) > rain <- nanotime(Sys.time()) + cumsum(10*rpois(n=N+1, lambda=4) + round(runif(N+1)*25)) > > if (requireNamespace("data.table", quietly=TRUE)) { + suppressMessages(library(data.table)) + suppressMessages(library(bit64)) + raw <- data.table(shine=shine, rain=rain) + + df <- data.frame(val=c(rain,shine), key=rep(c("rain", "shine"), each=N+1)) + head(df) + + ## now on differences + ddf <- data.frame(val=as.numeric(c(diff(rain),diff(shine))), # need to cast to numeric after diffs + key=rep(c("rain", "shine"), each=N)) + head(ddf) + + ## simpler data.frame, inserts 'formatted' + newdf <- data.frame(rain=rain, shine=shine) + head(newdf) + } rain shine 1 2026-04-22T15:45:45.837184011+00:00 2026-04-22T15:45:45.835043977+00:00 2 2026-04-22T15:45:45.837184029+00:00 2026-04-22T15:45:45.835044047+00:00 3 2026-04-22T15:45:45.837184072+00:00 2026-04-22T15:45:45.835044077+00:00 4 2026-04-22T15:45:45.837184144+00:00 2026-04-22T15:45:45.835044137+00:00 5 2026-04-22T15:45:45.837184233+00:00 2026-04-22T15:45:45.835044187+00:00 6 2026-04-22T15:45:45.837184267+00:00 2026-04-22T15:45:45.835044227+00:00 > > proc.time() user system elapsed 1.00 0.21 1.14