Displaying 1 result from an estimated 1 matches for "not15".
Did you mean:
not1
2008 Aug 14
1
time difference bug?
...script "k0.R"
===============
a=read.table("buzwah005.txt")
d=strptime(paste(a[,1]," ",a[,2]),"%m/%d/%Y %H:%M")
tm=-24*60*as.numeric(as.POSIXlt("2007-1-1")-d) # time since midnight Jan 1
print(tm[2]-tm[1])
x=a[,3]
diffs=round(tm[-1]-tm[-length(tm)])
not15=(1:length(diffs))[diffs!=15]
print(not15)
===============
The R session....
>
> source("k0.R")
[1] 15
[1] 2113 5686 15712
> class(d)
[1] "POSIXt" "POSIXlt"
> d[15711:15714]
[1] "2007-11-04 01:34:00" "2007-11-04 01:49:00" "20...