Использование apply с объектами зоопарка

Ниже приведен пример кода проблемы, с которой я столкнулся. Кажется, зоопарк не работает с приложением. Любые предложения о том, как сделать эту работу по желанию?

> #I am trying to use apply with zoo
> tmp <- zoo(matrix(c(0,1,0,0,0,1),nrow=3))
> tmp

1 0 0
2 1 0
3 0 1
> #for each column I want to subtract the lag
> #as an example I extract 1 column
> tmpcol <- tmp[,1]
> #this is what I want, for each column
> diffcol <- tmpcol-lag(tmpcol,-1)
> diffcol
 2  3 
 1 -1 
> #but if I do this using apply it gives bizarre behavior
> z <- apply(tmp,2,function(x) x-lag(x,-1))
> z
  X.1 X.2
1   0   0
2   0   0
3   0   0

r zoo
person Rob Richmond    schedule 29.05.2013    source источник

Ответы (1)


arrow_upward
3
arrow_downward

apply приводит свой первый аргумент к простому массиву, поэтому зоопарк больше не участвует. Возможно, вы хотите этого:

> diff(tmp)

2  1 0
3 -1 1

или это

> diff(tmp, na.pad = TRUE)
  x.1 x.2
1  NA  NA
2   1   0
3  -1   1
person G. Grothendieck    schedule 29.05.2013
comment
Это объясняет плохое отставание. Спасибо за разъяснение и предложение. - person Rob Richmond; 29.05.2013