29450_zh-TW

liliconcom

缺失資料的移動平均線

我正在嘗試計算一些存在漏洞的數據的移動平均值。 我似乎無法弄清楚如何計算僅包含非缺失資料的移動平均值，並且僅計算包含非缺失資料的行的結果。 任何建議，將不勝感激。

 

New Table( "Untitled 5",
 Add Rows( 30 ),
 Compress File When Saved( 1 ),
 New Table Variable( "Moving Avg Window", 5 ),
 New Column( "DateTime",
  Numeric,
  "Continuous",
  Format( "m/d/y h:m", 19 ),
  Input Format( "m/d/y h:m" ),
  Set Values(
   [3225888000, 3225888900, 3225889800, 3225890700, 3225891600, 3225892500, 3225893400, 3225894300,
   3225895200, 3225896100, 3225897000, 3225897900, 3225898800, 3225899700, 3225900600, 3225901500,
   3225902400, 3225903300, 3225904200, 3225905100, 3225906000, 3225906900, 3225907800, 3225908700,
   3225909600, 3225910500, 3225911400, 3225912300, 3225913200, 3225914100]
  )
 ),
 New Column( "data",
  Numeric,
  "Continuous",
  Format( "Best", Use thousands separator( 0 ), 15 ),
  Set Values( [5, 5, 5, 5, 5, ., 5, 5, 5, 5, 5, 5, 5, 5, ., 5, 5, 5, 5, 5, 5, 5, ., ., 5, 5, 5, 5, 5, 5] )
 ),
 New Column( "expected run avg",
  Numeric,
  "Continuous",
  Format( "Best", 12 ),
  Set Values( [., ., ., ., 5, ., 5, 5, 5, 5, 5, 5, 5, 5, ., 5, 5, 5, 5, 5, 5, 5, ., ., 5, 5, 5, 5, 5, 5] )
 ),
 New Column( "run avg",
  Numeric,
  "Continuous",
  Format( "Fixed Dec", 12, 1 ),
  Formula(
   If( Row() < :Moving Avg Window,
    .,
    Sum( :data[Index( Row() - (:Moving Avg Window - 1), Row() )] ) / :Moving Avg Window
   )
  )
 )
);

回覆：缺失資料的移動平均線

我沒有仔細看這個案例。 但我還想提一下：

 

Col 移動平均線（名稱，選項，<按變量，...>）

 

這似乎有很大的靈活性。

回覆：缺失資料的移動平均線

感謝大家對這個問題的參與。 MS 的建議對我來說無疑是最乾淨、最容易實現的，因為它讓我定義並指定向後和向前移動的視窗大小。 我當然從提供的所有示例中學到了很多東西。 謝謝！

回覆：缺失資料的移動平均線

在下面的連結中，我們討論了這一點，並為其添加了一些更快的演算法。

 

https://community.jmp.com/t5/Discussions/Efficient-moving-average-algorithm/td-p/8553

 

回覆：缺失資料的移動平均線

Mean() 函數忽略任何缺失值。 下面的公式堅持時間窗口，但在計算平均值時不包括缺失值。

If(Row() < :Moving Avg Window,
    Mean(:data[Index(1, Row())]),
    Mean(:data[Index(Row() - (:Moving Avg Window - 1), Row())])
);

 

 

回覆：缺失資料的移動平均線

如果您無法建立排除空值的子集，我認為下面的公式有效 - 儘管我確信有更好的方法。 這會為沒有資料的行提供空值，但您可以透過刪除 if 語句來讓它重複平均值。

 

If(Is Missing(:data), ., rsum = 0; rcount = 0; temprow = 0; (While(rcount < :移動平均視窗, While(Is Missing(:data[Row() - temprow]) & Row ) () - temprow >= 1, temprow += 1); rsum += :data[Row() - temprow]; temprow += 1; rcount += 1); rsum / :移動平均視窗))

 

 

回覆：缺失資料的移動平均線

這是一個我相信會給你想要的腳本

Names Default To Here( 1 );
dt = New Table( "Untitled 5",
 Add Rows( 30 ),
 Compress File When Saved( 1 ),
 New Table Variable( "Moving Avg Window", 5 ),
 New Column( "DateTime",
  Numeric,
  "Continuous",
  Format( "m/d/y h:m", 19 ),
  Input Format( "m/d/y h:m" ),
  Set Values(
   [3225888000, 3225888900, 3225889800, 3225890700, 3225891600, 3225892500, 3225893400,
   3225894300, 3225895200, 3225896100, 3225897000, 3225897900, 3225898800, 3225899700,
   3225900600, 3225901500, 3225902400, 3225903300, 3225904200, 3225905100, 3225906000,
   3225906900, 3225907800, 3225908700, 3225909600, 3225910500, 3225911400, 3225912300,
   3225913200, 3225914100]
  )
 ),
 New Column( "data",
  Numeric,
  "Continuous",
  Format( "Best", Use thousands separator( 0 ), 15 ),
  Set Values(
   [5, 5, 5, 5, 5, ., 5, 5, 5, 5, 5, 5, 5, 5, ., 5, 5, 5, 5, 5, 5, 5, ., ., 5, 5, 5, 5,
   5, 5]
  )
 ),
 New Column( "expected run avg",
  Numeric,
  "Continuous",
  Format( "Best", 12 ),
  Set Values(
   [., ., ., ., 5, ., 5, 5, 5, 5, 5, 5, 5, 5, ., 5, 5, 5, 5, 5, 5, 5, ., ., 5, 5, 5, 5,
   5, 5]
  )
 ),
 New Column( "run avg",
  Numeric,
  "Continuous",
  Format( "Fixed Dec", 12, 1 ),
  Formula(
   If( Row() == 1,
    NonMissingRows = dt << get rows where( Is Missing( :data ) == 0 )
   );
   If( Loc( As List( NonMissingRows ), Row() ) < :Moving Avg Window,
    .,
    TargetPosition = Loc( As List( NonMissingRows ), Row() );
    MatrixofMAW = NonMissingRows[Index(
     TargetPosition - (Moving Avg Window - 1),
     TargetPosition
    )];
    Show( Row(), MatrixofMAW );
    Sum( :data[MatrixofMAW] ) / :Moving Avg Window;
   );
  )
 )
);