混合モデルの不均衡時間予測子の再入力

Question

混合モデルで不均衡時間予測子を再解析して、代行受信が処理の終了を反映するようにしたいと思います。例えば

：

ID <- c(1,1,2,2,2,3,3,3,3) 
Time <- c(0,1,0,1,2,0,1,2,3) 
Before <- data.table(ID,Time) 
Before 

ID Time 
1 0 
1 1 
2 0 
2 1 
2 2 
3 0 
3 1 
3 2 
3 3 

私はこれを取得したいと思います：あなたは、各ID内Timeを逆にするよう

Recenter <- c(1,0,2,1,0,3,2,1,0) 
After <- data.table(ID,Time, Recenter) 
After 

ID Time Recenter 
1 0  1 
1 1  0 
2 0  2 
2 1  1 
2 2  0 
3 0  3 
3 1  2 
3 2  1 
3 3  0 

Answer 1

が見えます。

Recenter <- unlist(with(Before, tapply(Time, ID, rev)), use.names = FALSE) 

tapplyを使用してアンバランス/ギザギザの配列にrev機能を適用することによって、これは何が必要です。