R形式の時差に対する回答

Question

回答を2回減算して書式を設定しようとしています。

ここでは例です：

> timer2$tdif2 <- as.numeric(strptime(as.character(timer2$time3), "%H:%M:%S:%OS") - strptime(as.character(timer2$time2), "%H:%M:%S:%OS")) 
> timer2$tdif1 <- as.numeric(strptime(as.character(timer2$time2), "%H:%M:%S%OS") - strptime(as.character(timer2$time1), "%H:%M:%S%OS")) 
> timer2$tdif2 <- as.numeric(strptime(as.character(timer2$time3), "%H:%M:%S:%OS") - strptime(as.character(timer2$time2), "%H:%M:%S:%OS")) 
> timer2$tdifMax <- as.numeric(strptime(as.character(timer2$time3), "%H:%M:%S.%OS") - strptime(as.character(timer2$time1), "%H:%M:%S.%OS")) 
> head(timer2) 
     time1  time2  time3   tdif1 tdif2 tdifMax 
1 08:00:20.799 08:00:20.799 08:00:20.799 0.0000000000 NA  0 
2 08:00:21.996 08:00:22.071 08:00:23.821 -0.9249999523 NA  2 
3 08:00:29.200 08:00:29.200 08:00:29.591 0.0000000000 NA  0 
4 08:00:31.073 08:00:31.372 08:00:31.384 0.2990000248 NA  0 
5 08:00:31.867 08:00:31.867 08:00:31.971 0.0000000000 NA  0 
6 08:00:37.174 08:00:38.073 08:00:38.153 -0.1010000706 NA  1 

私はtdif1、tdif2とtdif3第二の部分に異なる書式設定式を使用しましたが、それらのどれもが、秒および第二の部分で答えを与えない（のためにtdif [2]それは0.075でなければなりません）。助言がありますか？

Answer 1

フォーマットが間違っています。データは"%H:%M:%OS"フォーマットです。また、数学で数学をすることをお勧めします - それはあなたにいつも秒を与えます。

だからあなたの例：

sec <- function(x) as.numeric(strptime(x, "%H:%M:%OS")) 

timer2$tdif1 <- sec(timer2$time2) - sec(timer2$time1) 
timer2$tdif2 <- sec(timer2$time3) - sec(timer2$time2) 
timer2$tdifMax <- sec(timer2$time3) - sec(timer2$time1) 

と出力：

> head(timer2) 
     time1  time2  time3  tdif1  tdif2 tdifMax 
1 08:00:20.799 08:00:20.799 08:00:20.799 0.00000000 0.00000000 0.0000000 
2 08:00:21.996 08:00:22.071 08:00:23.821 0.07500005 1.75000000 1.8250000 
3 08:00:29.200 08:00:29.200 08:00:29.591 0.00000000 0.39100003 0.3910000 
4 08:00:31.073 08:00:31.372 08:00:31.384 0.29900002 0.01200008 0.3110001 
5 08:00:31.867 08:00:31.867 08:00:31.971 0.00000000 0.10399985 0.1039999 
6 08:00:37.174 08:00:38.073 08:00:38.153 0.89899993 0.08000016 0.9790001