Re: Creating a Moving Average Function
- To: mathgroup at smc.vnet.net
- Subject: [mg51626] Re: [mg51615] Creating a Moving Average Function
- From: DrBob <drbob at bigfoot.com>
- Date: Wed, 27 Oct 2004 23:42:13 -0400 (EDT)
- References: <200410270554.BAA24573@smc.vnet.net>
- Reply-to: drbob at bigfoot.com
- Sender: owner-wri-mathgroup at wolfram.com
MA[theSeries_,theWindowSize_]:=PadLeft[MovingAverage[theSeries,theWindowSize],
Length@theSeries];
Range@10
MA[Range@10,3]
{1,2,3,4,5,6,7,8,9,10}
{0,0,2,3,4,5,6,7,8,9}
That seems to do what you asked for.
Why did you have the constant 1000 hardwired in your version?
Bobby
On Wed, 27 Oct 2004 01:54:37 -0400 (EDT), Gregory Lypny <gregory.lypny at videotron.ca> wrote:
> Hello Everyone,
>
> I'd like to create some custom moving average functions that retain the
> same length as the original series by padding the lost observations
> with zeros. I can get the moving average part of the function to work
> but not the padding part.
>
> This part without padding works:
>
> MA[theSeries_, theWindowSize_] = MovingAverage[theSeries,
> theWindowSize];
>
> But adding the padding causes it to fail:
>
> MA[theSeries_, theWindowSize_] = PadLeft[MovingAverage[theSeries,
> theWindowSize], 1000];
>
> Any suggestions would be most appreciated.
>
> Greg
>
>
>
>
--
DrBob at bigfoot.com
www.eclecticdreams.net
- References:
- Creating a Moving Average Function
- From: Gregory Lypny <gregory.lypny@videotron.ca>
- Creating a Moving Average Function