**Date:** Wed, 8 Nov 2006 11:47:41 -0800
**Reply-To:** Cat <job.alerte@GMAIL.COM>
**Sender:** "SAS(r) Discussion" <SAS-L@LISTSERV.UGA.EDU>
**From:** Cat <job.alerte@GMAIL.COM>
**Organization:** http://groups.google.com
**Subject:** Re: Looping problem
**In-Reply-To:** <1162952594.273335.188860@h54g2000cwb.googlegroups.com>
**Content-Type:** text/plain; charset="us-ascii"
Hi Sum,

Try this, but I'm not sure there is no syntax error, I can't test it
now:

Proc transpose data = a out = atransp (drop = _name_ _label_);
Var obs;
Id month;
Run;

Data c;
Set atransp;
Array val {*} 199001 -- 200605;
Array average {*}; /* "running" mean */
Array stdev {*}; /* "running" standard deviation */
Array month $ {*}; /* Name of the first month used for running
estimates */
Last = dim(obsval) - 11;
Do I =1 to last;
average(i) = round(mean(of val(i)-val(i+11),.1);
stdev(i) = round(std(of val(i)-val(i+11)),.1);
month(i) = vname(val(i));
End;
Drop I last;
Run;

Proc transpose data = c out = stat (rename = (col1 = RESULT));
Var average: stdev:;
Run;

Proc transpose data = c out = month (rename = (col1 = TIME));
Var month:;
Run;

Data all;
Set stat month;
N = input(substr(_name_, length(_name_,)),best.);
TYPE = upcase(compress(_name_,'0123456789'));
Run;

Proc sort;
By n;
Run;

Data final;
Label Time = 'First month from 12-months series';
Merge all (where = (TYPE = 'MONTH') keep = n time)
all (where = (TYPE = 'AVERAGE') keep = n result rename =
(result = MEAN))
all (where = (TYPE = 'STDEV') keep = n result rename =
(result = STD));
by n;
run;

Catherine.

SUM a écrit :

> Hi SAS Experts,
> I have a problem of calculation in loops.
> Suppose i have a data like this:
>
>
>
> Month Obs
> 199001 40
> 199002 45
> 199003 22
> ..
>
>
> 199012 25
> .
> .
> .
>
>
> 200605 42
>
> Now i have to calculation mean and standard deviation using each 12
> months data. First calculation will be done for 199001 - 199012,
> second will be 199002 - 199101, third will be 199003 - 199102, and so
> on. How can i proceed using a loop? Please help.
>
> Sumanta.