rolling-computation

    5熱度

    1回答

    我有一個問題找到最有效的方法來計算多列xts對象的滾動線性迴歸。我已經在這裏搜索和閱讀了幾個以前的問題在stackoverflow。 這個question and answer接近但在我看來是不夠的,因爲我想計算多個迴歸,因變量在所有迴歸中保持不變。我試圖再現與隨機數據的示例:爲了隨着時間的推移,每個因子多個變量(殘差係數等)存儲創建 require(xts) require(RcppArmad

    4熱度

    3回答

    我需要計算涉及條件的數據框中列的滾動行總和。我所擁有的數據對「sku」有多個觀察值。我想要的是爲每個「sku」值計算5個連續行的總和。如果我達到了一個我沒有連續觀察5次「sku」的階段,我們將總結剩餘的行觀察值。 對於說明性示例考慮以下的數據幀: data <- structure(list(sku = c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L,

    4熱度

    3回答

    我想計算一列移動年度總和的大數據集。它必須是確切的一年,所以我不能將rollapply用作基於特定天數的日期而不是實際日期。 作爲一個例子,我有以下代碼: dates = seq.Date(as.Date('2006-01-01'),as.Date('2007-12-31'),by='days') num = 1:length(dates) y = cbind(ld,num) l

    1熱度

    1回答

    是否有任何內置熊貓的方法來找到兩個熊貓系列之間的累積相關性? 它應該做的是在pandas.rolling_corr(數據,窗口)中有效固定窗口的左側,以使窗口的寬度增加,最終窗口包含所有數據點。

    -1熱度

    1回答

    我想知道什麼是尋找,如果超過20天的任何連續的,事件的數量超過了10 我想寫一個異常報告,但不能在最好的方式滾動週期找出除了使用循環之外的邏輯。 我已經包含了該表的模式。 ID |StartDate |EndDate |Area ---------+---------+---------+--------- 12 |01-02-2013 |05-02-2013 |A12

    2熱度

    2回答

    在R中,我試圖用不同的窗口寬度做一個很大的向量(最多400k個元素)的非常快的滾動平均值,然後對每個窗口寬度總結每年最大的數據。下面的例子有望清楚。 我已經嘗試了幾種方法,並且最快到現在似乎是使用來自包RcppRoll的roll_mean作爲運行平均值,並且aggregate用於選擇最大值。 請注意,內存需求是一個問題:下面的版本需要很少的內存,因爲它一次只執行一次滾動均值和聚合;這是首選。 #E

    1熱度

    2回答

    我有兩個向量x和y,我想爲這些向量計算滾動迴歸,例如(x(1:4),y(1:4)), (x(2:5),y(2:5)), ... 是否已有一個函數?我想到的最好的算法是O(n),但在每個子陣列上應用單獨的線性迴歸將是O(n^2)。 我正在使用Matlab和Python(numpy)。

    0熱度

    3回答

    我無法使計算列顯示平均值。請參閱: Cast(AVG(COALESCE(mnth1.HandledCalls,0)+COALESCE(mnth2.HandledCalls,0)+COALESCE(mnth3.HandledCalls,0)) as Decimal(8,2)) as Avg_Handled, 如何讓此顯示平均顯示3列?有時,mnth2和mnth3可能不會填充。如果在任何給定的時間

    0熱度

    1回答

    我正在用巨大的數據庫進行滾動迴歸,並且用於滾動的參考列被稱爲「Q」,每個數據塊的值爲5到45。起初,我試圖用簡單的代碼一步一步,和它的作品非常好: fit <- as.formula(EB~EB1+EB2+EB3+EB4) #use the 20 Quarters data to do regression model<-lm(fit,data=datapool[(which(datapool

    1熱度

    2回答

    我正在嘗試創建一個「for循環」設置,它將計算返回系列的不同滾動方式,其中我使用滾動方式,範圍從最後2次觀察到最後16次觀測。 Kε[2,16]。我一直在嘗試使用像這樣的函數,其中「rollmean」是來自動物園的函數。這會產生警告「警告消息: In roll [i] < - rollmean(x,i): 要替換的項目數不是替換長度的倍數」 有人可以幫我嗎? rollk <- function(x