search for: vialist

...h(x))) date = trunc(x at .Data) time = round(1e6*x at .Data%%1,2) rtime = round(time) z$sec=rtime%%1e2 + time%%1 z$min=(rtime%/%1e2)%%1e2 z$hour=rtime%/%1e4 z$mday=date%%100 z$mon=(date%/%100)%%100-1 z$year=date%/%10000-1900 as.double(z) # to POSIXct } posix.vialist = function(x) { date = trunc(x at .Data) time = round(1e6*x at .Data%%1,2) rtime = round(time) na = rep(0.0,length(x)) z = list(sec=rtime%%1e2 + time%%1, min=(rtime%/%1e2)%%1e2, hour=rtime%/%1e4, mday=date%%100, mon=(date%/%100)%%100-1, ye...