r - rollapply でデータの最後の行を見つける

Question

rollapply 関数を使用して、ローリング ロジット推定を作成しています。関数はこれまでのところ適切に機能していますが、データの反復ごとにその特定のウィンドウの最後の値を抽出して、次の次の期間の予測に使用したいと考えています。単純な適用機能を使用しようとしましたが、機能しないようです。これが私のコードです：

    rollapply(zoo(DATASET),
      width=300,
      FUN = function(Z) 
      { 
        t = glm(formula= y ~ ( Sentiment-SentimentLag) + (Sentiment-SentimentLag10) + Volume  , data = as.data.frame(Z),family=binomial(link='logit')); 
        new <- coeftest(t,vcov.=vcovHAC(t,sandwich = T))
        pval <- new[,4]

        #### this line does only return single values and not the vector I want
        lastOb <- as.matrix(apply(Z,1,max))

      },
       by.column=FALSE, align="right" )

私は何を間違っていますか？