Home » date » 2008 » May » 19 » attachments

gaelle Wauters-Classical Decomposition- werkloosheid

R Software Module: rwasp_decompose.wasp (opens new window with default values)
Title produced by software: Classical Decomposition
Date of computation: Mon, 19 May 2008 07:39:05 -0600
 
Cite this page as follows:
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL http://www.freestatistics.org/blog/date/2008/May/19/t1211204408ogz3re97zm9919u.htm/, Retrieved Mon, 19 May 2008 15:40:13 +0200
 
User-defined keywords:
 
Dataseries X:
» Textbox « » Textfile « » CSV «
9.8 9.7 9.5 9.3 9.1 9 9.5 10 10.2 10.1 10 9.9 10 9.9 9.7 9.5 9.2 9 9.3 9.8 9.8 9.6 9.4 9.3 9.2 9.2 9 8.8 8.7 8.7 9.1 9.7 9.8 9.6 9.4 9.4 9.5 9.4 9.3 9.2 9 8.9 9.2 9.8 9.9 9.6 9.2 9.1 9.1 9.1 8.9 8.7 8.5 8.4 8.4 8.7 8.5 8.1 7.8 7.7 7.4 7.2 7 6.6 6.4 6.4 6.8 7.3 7 7 6.7 6.7 6.3 6.2 6 6.3 6.2 6.1 6.2 6.6 6.6 7.8 7.4 7.4 7.5 7.4 7.4 7 6.9 6.9 7.6 7.7 7.6 8.2 8 8.1 8.3 8.2 8.1 7.7 7.6 7.7 8.2 8.4 8.4 8.6 8.4 8.5 8.7 8.7 8.6 7.4 7.3 7.4 9 9.2 9.2 8.5 8.3 8.3 8.6 8.6 8.5 8.1 8.1 8 8.6 8.7 8.7 8.6 8.4 8.4 8.7 8.7 8.5 8.3 8.3 8.3 8.1 8.2 8.1 8.1 7.9 7.7 8.1 8 7.7 7.8 7.6 7.4 7.3 7.4 7.1 7.3 7.1 7.1
 
Text written by user:
 
Output produced by software:


Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time2 seconds
R Server'Gwilym Jenkins' @ 72.249.127.135


Classical Decomposition by Moving Averages
tObservationsFitTrendSeasonalRandom
19.8NANA0.144791666666666NA
29.7NANA0.093276515151515NA
39.5NANA-0.0374053030303033NA
49.3NANA-0.330965909090909NA
59.1NANA-0.442708333333333NA
69NANA-0.462784090909091NA
79.59.663352272727279.68333333333333-0.0199810606060603-0.163352272727273
81010.02168560606069.70.321685606060606-0.0216856060606059
910.210.00767045454559.716666666666670.2910037878787880.192329545454545
1010.110.04744318181829.733333333333330.3141098484848480.0525568181818201
11109.817897727272739.745833333333330.07206439393939430.182102272727274
129.99.806912878787889.750.05691287878787880.0930871212121236
13109.886458333333339.741666666666670.1447916666666660.113541666666666
149.99.818276515151519.7250.0932765151515150.0817234848484869
159.79.66259469696979.7-0.03740530303030330.037405303030301
169.59.331534090909099.6625-0.3309659090909090.168465909090909
179.29.173958333333339.61666666666667-0.4427083333333330.0260416666666679
1899.103882575757589.56666666666667-0.462784090909091-0.103882575757575
199.39.488352272727279.50833333333333-0.0199810606060603-0.18835227272727
209.89.767518939393949.445833333333330.3216856060606060.0324810606060613
219.89.678503787878799.38750.2910037878787880.121496212121214
229.69.643276515151529.329166666666670.314109848484848-0.0432765151515166
239.49.351231060606069.279166666666670.07206439393939430.0487689393939412
249.39.302746212121219.245833333333330.0569128787878788-0.0027462121212114
259.29.369791666666679.2250.144791666666666-0.169791666666667
269.29.305776515151529.21250.093276515151515-0.105776515151517
2799.170928030303039.20833333333333-0.0374053030303033-0.170928030303031
288.88.877367424242429.20833333333333-0.330965909090909-0.0773674242424232
298.78.7656259.20833333333333-0.442708333333333-0.0656250000000007
308.78.74971590909099.2125-0.462784090909091-0.0497159090909083
319.19.20918560606069.22916666666666-0.0199810606060603-0.109185606060604
329.79.57168560606069.250.3216856060606060.128314393939393
339.89.561837121212129.270833333333330.2910037878787880.238162878787881
349.69.614109848484859.30.314109848484848-0.0141098484848481
359.49.401231060606069.329166666666670.0720643939393943-0.00123106060605949
369.49.406912878787889.350.0569128787878788-0.00691287878787783
379.59.507291666666679.36250.144791666666666-0.00729166666666714
389.49.464109848484859.370833333333330.093276515151515-0.0641098484848488
399.39.341761363636379.37916666666667-0.0374053030303033-0.0417613636363647
409.29.052367424242439.38333333333333-0.3309659090909090.147632575757573
4198.932291666666679.375-0.4427083333333330.067708333333334
428.98.891382575757589.35416666666667-0.4627840909090910.00861742424242351
439.29.305018939393949.325-0.0199810606060603-0.105018939393940
449.89.617518939393949.295833333333330.3216856060606060.18248106060606
459.99.557670454545459.266666666666670.2910037878787880.342329545454547
469.69.543276515151519.229166666666670.3141098484848480.0567234848484848
479.29.25956439393949.18750.0720643939393943-0.0595643939393948
489.19.202746212121219.145833333333330.0569128787878788-0.102746212121211
499.19.236458333333339.091666666666670.144791666666666-0.136458333333334
509.19.105776515151519.01250.093276515151515-0.00577651515151345
518.98.870928030303038.90833333333333-0.03740530303030330.0290719696969717
528.78.456534090909098.7875-0.3309659090909090.243465909090908
538.58.223958333333338.66666666666666-0.4427083333333330.27604166666667
548.48.08721590909098.55-0.4627840909090910.312784090909094
558.48.400852272727278.42083333333333-0.0199810606060603-0.000852272727271952
568.78.592518939393948.270833333333330.3216856060606060.107481060606061
578.58.403503787878798.11250.2910037878787880.0964962121212132
588.18.259943181818187.945833333333330.314109848484848-0.159943181818180
597.87.842897727272737.770833333333330.0720643939393943-0.0428977272727273
607.77.656912878787887.60.05691287878787880.0430871212121229
617.47.594791666666677.450.144791666666666-0.194791666666665
627.27.418276515151517.3250.093276515151515-0.218276515151513
6377.166761363636367.20416666666667-0.0374053030303033-0.166761363636362
646.66.764867424242427.09583333333333-0.330965909090909-0.164867424242423
656.46.561458333333337.00416666666667-0.442708333333333-0.161458333333333
666.46.453882575757576.91666666666666-0.462784090909091-0.0538825757575729
676.86.80918560606066.82916666666667-0.0199810606060603-0.0091856060606057
687.37.063352272727276.741666666666670.3216856060606060.236647727272729
6976.949337121212126.658333333333330.2910037878787880.0506628787878798
7076.918276515151516.604166666666670.3141098484848480.081723484848486
716.76.655397727272736.583333333333330.07206439393939430.0446022727272739
726.76.619412878787886.56250.05691287878787880.0805871212121225
736.36.669791666666676.5250.144791666666666-0.369791666666666
746.26.564109848484856.470833333333330.093276515151515-0.364109848484847
7566.38759469696976.425-0.0374053030303033-0.387594696969696
766.36.110700757575766.44166666666667-0.3309659090909090.189299242424242
776.26.061458333333336.50416666666667-0.4427083333333330.138541666666667
786.16.099715909090916.5625-0.4627840909090910.000284090909090651
796.26.62168560606066.64166666666667-0.0199810606060603-0.421685606060605
806.67.063352272727276.741666666666670.321685606060606-0.463352272727271
816.67.141003787878796.850.291003787878788-0.541003787878788
827.87.251609848484856.93750.3141098484848480.548390151515152
837.47.067897727272736.995833333333330.07206439393939430.332102272727274
847.47.115246212121217.058333333333330.05691287878787880.284753787878789
857.57.294791666666677.150.1447916666666660.205208333333333
867.47.347443181818187.254166666666670.0932765151515150.0525568181818183
877.47.304261363636367.34166666666667-0.03740530303030330.0957386363636372
8877.069034090909097.4-0.330965909090909-0.0690340909090921
896.96.998958333333347.44166666666667-0.442708333333333-0.0989583333333348
906.97.033049242424247.49583333333333-0.462784090909091-0.133049242424242
917.67.538352272727277.55833333333333-0.01998106060606030.0616477272727263
927.77.94668560606067.6250.321685606060606-0.246685606060604
937.67.978503787878797.68750.291003787878788-0.378503787878787
948.28.059943181818187.745833333333330.3141098484848480.140056818181817
9587.876231060606067.804166666666670.07206439393939430.123768939393940
968.17.923579545454557.866666666666670.05691287878787880.176420454545454
978.38.069791666666677.9250.1447916666666660.230208333333334
988.28.072443181818187.979166666666670.0932765151515150.127556818181818
998.18.004261363636368.04166666666667-0.03740530303030330.0957386363636363
1007.77.760700757575768.09166666666667-0.330965909090909-0.0607007575757557
1017.67.682291666666678.125-0.442708333333333-0.0822916666666647
1027.77.695549242424248.15833333333333-0.4627840909090910.00445075757575708
1038.28.17168560606068.19166666666667-0.01998106060606030.0283143939393931
1048.48.550852272727278.229166666666670.321685606060606-0.150852272727272
1058.48.561837121212128.270833333333330.291003787878788-0.161837121212120
1068.68.593276515151528.279166666666670.3141098484848480.00672348484848406
1078.48.326231060606068.254166666666670.07206439393939430.0737689393939398
1088.58.286079545454548.229166666666670.05691287878787880.213920454545455
1098.78.394791666666678.250.1447916666666660.305208333333333
1108.78.409943181818188.316666666666670.0932765151515150.290056818181817
1118.68.345928030303038.38333333333333-0.03740530303030330.254071969696971
1127.48.081534090909098.4125-0.330965909090909-0.681534090909088
1137.37.961458333333338.40416666666667-0.442708333333333-0.661458333333334
1147.47.928882575757578.39166666666667-0.462784090909091-0.528882575757574
11598.35918560606068.37916666666667-0.01998106060606030.640814393939394
1169.28.692518939393948.370833333333330.3216856060606060.507481060606059
1179.28.653503787878798.36250.2910037878787880.546496212121212
1188.58.701609848484858.38750.314109848484848-0.201609848484846
1198.38.52206439393948.450.0720643939393943-0.222064393939393
1208.38.565246212121218.508333333333330.0569128787878788-0.265246212121211
1218.68.661458333333338.516666666666670.144791666666666-0.0614583333333325
1228.68.572443181818188.479166666666660.0932765151515150.0275568181818198
1238.58.40009469696978.4375-0.03740530303030330.0999053030303045
1248.18.089867424242428.42083333333333-0.3309659090909090.0101325757575754
1258.17.986458333333338.42916666666667-0.4427083333333330.113541666666668
12687.97471590909098.4375-0.4627840909090910.0252840909090928
1278.68.425852272727278.44583333333333-0.01998106060606030.174147727272729
1288.78.775852272727278.454166666666670.321685606060606-0.075852272727273
1298.78.749337121212128.458333333333330.291003787878788-0.0493371212121207
1308.68.780776515151528.466666666666670.314109848484848-0.180776515151516
1318.48.555397727272738.483333333333330.0720643939393943-0.155397727272726
1328.48.561079545454548.504166666666670.0569128787878788-0.161079545454545
1338.78.6406258.495833333333330.1447916666666660.0593750000000011
1348.78.547443181818188.454166666666670.0932765151515150.152556818181816
1358.58.370928030303038.40833333333333-0.03740530303030330.129071969696970
1368.38.031534090909098.3625-0.3309659090909090.268465909090912
1378.37.8781258.32083333333333-0.4427083333333330.421875000000004
1388.37.808049242424248.27083333333333-0.4627840909090910.49195075757576
1398.18.19668560606068.21666666666667-0.0199810606060603-0.0966856060606052
1408.28.48418560606068.16250.321685606060606-0.284185606060604
1418.18.391003787878798.10.291003787878788-0.291003787878786
1428.18.359943181818188.045833333333330.314109848484848-0.259943181818181
1437.98.067897727272737.995833333333330.0720643939393943-0.167897727272726
1447.77.986079545454547.929166666666670.0569128787878788-0.286079545454545
1458.18.0031257.858333333333330.1447916666666660.0968749999999998
14687.884943181818187.791666666666670.0932765151515150.115056818181819
1477.77.679261363636367.71666666666667-0.03740530303030330.0207386363636370
1487.87.310700757575767.64166666666667-0.3309659090909090.489299242424242
1497.67.132291666666677.575-0.4427083333333330.467708333333333
1507.47.053882575757587.51666666666667-0.4627840909090910.346117424242424
1517.3NANA-0.0199810606060603NA
1527.4NANA0.321685606060606NA
1537.1NANA0.291003787878788NA
1547.3NANA0.314109848484848NA
1557.1NANA0.0720643939393943NA
1567.1NANA0.0569128787878788NA
 
Charts produced by software:
http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/May/19/t1211204408ogz3re97zm9919u/1ecz71211204342.png (open in new window)
http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/May/19/t1211204408ogz3re97zm9919u/1ecz71211204342.ps (open in new window)


http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/May/19/t1211204408ogz3re97zm9919u/2ntk91211204342.png (open in new window)
http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/May/19/t1211204408ogz3re97zm9919u/2ntk91211204342.ps (open in new window)


http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/May/19/t1211204408ogz3re97zm9919u/3sgug1211204342.png (open in new window)
http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/May/19/t1211204408ogz3re97zm9919u/3sgug1211204342.ps (open in new window)


http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/May/19/t1211204408ogz3re97zm9919u/48tsj1211204342.png (open in new window)
http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/May/19/t1211204408ogz3re97zm9919u/48tsj1211204342.ps (open in new window)


 
Parameters (Session):
par1 = additive ; par2 = 12 ;
 
Parameters (R input):
par1 = additive ; par2 = 12 ;
 
R code (references can be found in the software module):
par2 <- as.numeric(par2)
x <- ts(x,freq=par2)
m <- decompose(x,type=par1)
m$figure
bitmap(file='test1.png')
plot(m)
dev.off()
mylagmax <- length(x)/2
bitmap(file='test2.png')
op <- par(mfrow = c(2,2))
acf(as.numeric(x),lag.max = mylagmax,main='Observed')
acf(as.numeric(m$trend),na.action=na.pass,lag.max = mylagmax,main='Trend')
acf(as.numeric(m$seasonal),na.action=na.pass,lag.max = mylagmax,main='Seasonal')
acf(as.numeric(m$random),na.action=na.pass,lag.max = mylagmax,main='Random')
par(op)
dev.off()
bitmap(file='test3.png')
op <- par(mfrow = c(2,2))
spectrum(as.numeric(x),main='Observed')
spectrum(as.numeric(m$trend[!is.na(m$trend)]),main='Trend')
spectrum(as.numeric(m$seasonal[!is.na(m$seasonal)]),main='Seasonal')
spectrum(as.numeric(m$random[!is.na(m$random)]),main='Random')
par(op)
dev.off()
bitmap(file='test4.png')
op <- par(mfrow = c(2,2))
cpgram(as.numeric(x),main='Observed')
cpgram(as.numeric(m$trend[!is.na(m$trend)]),main='Trend')
cpgram(as.numeric(m$seasonal[!is.na(m$seasonal)]),main='Seasonal')
cpgram(as.numeric(m$random[!is.na(m$random)]),main='Random')
par(op)
dev.off()
load(file='createtable')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Classical Decomposition by Moving Averages',6,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'t',header=TRUE)
a<-table.element(a,'Observations',header=TRUE)
a<-table.element(a,'Fit',header=TRUE)
a<-table.element(a,'Trend',header=TRUE)
a<-table.element(a,'Seasonal',header=TRUE)
a<-table.element(a,'Random',header=TRUE)
a<-table.row.end(a)
for (i in 1:length(m$trend)) {
a<-table.row.start(a)
a<-table.element(a,i,header=TRUE)
a<-table.element(a,x[i])
if (par1 == 'additive') a<-table.element(a,m$trend[i]+m$seasonal[i]) else a<-table.element(a,m$trend[i]*m$seasonal[i])
a<-table.element(a,m$trend[i])
a<-table.element(a,m$seasonal[i])
a<-table.element(a,m$random[i])
a<-table.row.end(a)
}
a<-table.end(a)
table.save(a,file='mytable.tab')
 





Copyright

Creative Commons License

This work is licensed under a Creative Commons Attribution-Noncommercial-Share Alike 3.0 License.

Software written by Ed van Stee & Patrick Wessa


Disclaimer

Information provided on this web site is provided "AS IS" without warranty of any kind, either express or implied, including, without limitation, warranties of merchantability, fitness for a particular purpose, and noninfringement. We use reasonable efforts to include accurate and timely information and periodically update the information, and software without notice. However, we make no warranties or representations as to the accuracy or completeness of such information (or software), and we assume no liability or responsibility for errors or omissions in the content of this web site, or any software bugs in online applications. Your use of this web site is AT YOUR OWN RISK. Under no circumstances and under no legal theory shall we be liable to you or any other person for any direct, indirect, special, incidental, exemplary, or consequential damages arising from your access to, or use of, this web site.


Privacy Policy

We may request personal information to be submitted to our servers in order to be able to:

  • personalize online software applications according to your needs
  • enforce strict security rules with respect to the data that you upload (e.g. statistical data)
  • manage user sessions of online applications
  • alert you about important changes or upgrades in resources or applications

We NEVER allow other companies to directly offer registered users information about their products and services. Banner references and hyperlinks of third parties NEVER contain any personal data of the visitor.

We do NOT sell, nor transmit by any means, personal information, nor statistical data series uploaded by you to third parties.

We carefully protect your data from loss, misuse, alteration, and destruction. However, at any time, and under any circumstance you are solely responsible for managing your passwords, and keeping them secret.

We store a unique ANONYMOUS USER ID in the form of a small 'Cookie' on your computer. This allows us to track your progress when using this website which is necessary to create state-dependent features. The cookie is used for NO OTHER PURPOSE. At any time you may opt to disallow cookies from this website - this will not affect other features of this website.

We examine cookies that are used by third-parties (banner and online ads) very closely: abuse from third-parties automatically results in termination of the advertising contract without refund. We have very good reason to believe that the cookies that are produced by third parties (banner ads) do NOT cause any privacy or security risk.

FreeStatistics.org is safe. There is no need to download any software to use the applications and services contained in this website. Hence, your system's security is not compromised by their use, and your personal data - other than data you submit in the account application form, and the user-agent information that is transmitted by your browser - is never transmitted to our servers.

As a general rule, we do not log on-line behavior of individuals (other than normal logging of webserver 'hits'). However, in cases of abuse, hacking, unauthorized access, Denial of Service attacks, illegal copying, hotlinking, non-compliance with international webstandards (such as robots.txt), or any other harmful behavior, our system engineers are empowered to log, track, identify, publish, and ban misbehaving individuals - even if this leads to ban entire blocks of IP addresses, or disclosing user's identity.


FreeStatistics.org is powered by