查找rollapply中的最后一行数据

我正在使用rollapply函数创建滚动logit估计。到目前为止，该函数正在正常工作，但我现在想为数据的每次迭代提取该特定窗口的最后一个值，以用于预测下一个周期。我尝试使用一个简单的apply函数，但它似乎不起作用。这是我的密码：

    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" )

rollappy（动物园（数据集），
宽度=300，
乐趣=功能（Z）
{ 
t=glm（公式=y~（touction-mountain-mountain-lag）+（touction-mountain-lag10）+体积，数据=as.data.frame（Z），族=二项式（link='logit'）；
新的哦，是的，确实感谢你的评论！但是你知道我如何提取用于估算的最后一行值吗？好的…我自己发现了：将应用行更改为应用（Z，2，last），然后从列中获取最后一个值（由2指示）。你可以将你的解决方案作为答案发布。