如何使用zoo :: rollapply來創建`rollscale`實現？

Question

我想要實現以下rollscale函數：縮放（中心和歸一化，即減去mu和除以sigma）數據集x，但不是使用全局的mu和sigma來執行它們，而是在滾動窗口內對所看到的數據進行計算。我提出了以下內容，但不知道如何在第三個rollapplyr上定義函數參數，即如何知道當前位置是什麼？

library(zoo) 
rollscale <- function(x, k) { 
    mu <- rollapplyr(x, k, mean) 
    sigma <- rollapplyr(x, k, sd) 
    x <- rollapplyr(x, k, function(x) ???)    
} 

簡單的尺度函數是：

scale <- function(x) { 
    mu <- mean(x) 
    sigma <- sd(x) 
    x <- (x - mu)/sigma   
} 

Answer 1

你讓這個比它更復雜的。您有一個scale函數，並且您想要在滾動基礎上應用它。這正是rollapply所做的！

scale <- function(x) { 
    mu <- mean(x) 
    sigma <- sd(x) 
    x <- (x - mu)/sigma   
} 
scaled.data <- rollapplyr(Data, 5, scale)