-3 
x <-80

 test <- seq(from=as.POSIXct('x - 1',format='%M'),to=as.POSIXct('x +
 1',format='%M'),by='sec')
 # this doesn't actually work

私がやろうとしているのは、ここで秒単位でシーケンスを作成することですが、「to」引数と「from」引数に簡単な算術演算を組み込みたいと思います。

上記のコードは明らかに機能しません。助けてもらえますか?

60 より大きい数値と 60 より小さい数値で機能するものが必要です。

4

1 に答える 1

2

これを試して：

test <- seq(from=strptime(x - 1, format='%M'),
            to=strptime(x + 1, format='%M'),
            by='sec')

その後、好きなようにできformatます。

?strptimeR で日付/時刻を扱う際に何度も参照する非常に便利なヘルプ ページですので、ぜひご覧ください。

@plannapus の良いアドバイスをこのように機能させることができます

tmp <- seq(strptime(paste((x-1)%/%60, (x-1)%%60, sep=":"), format="%H:%M"), 
           strptime(paste((x+1)%/%60, (x+1)%%60, sep=":"), format="%H:%M"), 
           by='sec')
as.numeric(format(tmp, "%M.%S"))

しかし、問題を再考するか、何をしようとしているのかについてより多くの情報を提供する必要があります。私の推測では、あなたがしていることは何でも行うためのより良い方法があると思います。

于 2012-09-12T00:26:53.893 に答える