2 lines
75 B
Text
2 lines
75 B
Text
|
MA[x_List, r_] := Join[Table[Mean[x[[1;;y]]],{y,r-1}], MovingAverage[x,r]]
|