Home » date » 2010 » Dec » 29 »

*The author of this computation has been verified*
R Software Module: /rwasp_decompose.wasp (opens new window with default values)
Title produced by software: Classical Decomposition
Date of computation: Wed, 29 Dec 2010 22:26:09 +0000
 
Cite this page as follows:
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL http://www.freestatistics.org/blog/date/2010/Dec/29/t12936615308mxetk1xr1uafpt.htm/, Retrieved Wed, 29 Dec 2010 23:25:30 +0100
 
BibTeX entries for LaTeX users:
@Manual{KEY,
    author = {{YOUR NAME}},
    publisher = {Office for Research Development and Education},
    title = {Statistical Computations at FreeStatistics.org, URL http://www.freestatistics.org/blog/date/2010/Dec/29/t12936615308mxetk1xr1uafpt.htm/},
    year = {2010},
}
@Manual{R,
    title = {R: A Language and Environment for Statistical Computing},
    author = {{R Development Core Team}},
    organization = {R Foundation for Statistical Computing},
    address = {Vienna, Austria},
    year = {2010},
    note = {{ISBN} 3-900051-07-0},
    url = {http://www.R-project.org},
}
 
Original text written by user:
 
IsPrivate?
No (this computation is public)
 
User-defined keywords:
 
Dataseries X:
» Textbox « » Textfile « » CSV «
206010 198112 194519 185705 180173 176142 203401 221902 197378 185001 176356 180449 180144 173666 165688 161570 156145 153730 182698 200765 176512 166618 158644 159585 163095 159044 155511 153745 150569 150605 179612 194690 189917 184128 175335 179566 181140 177876 175041 169292 166070 166972 206348 215706 202108 195411 193111 195198 198770 194163 190420 189733 186029 191531 232571 243477 227247 217859 208679 213188 216234 213586 209465 204045 200237 203666 241476 260307 243324 244460 233575 237217 235243 230354 227184 221678 217142 219452 256446 265845 248624 241114 229245 231805 219277 219313 212610 214771 211142 211457 240048 240636 230580 208795 197922 194596 194581 185686 178106 172608 167302 168053 202300 202388 182516 173476 166444 171297 169701 164182 161914 159612 151001 158114 186530 187069 174330 169362 166827 178037 186413 189226 191563 188906 186005 195309 223532 226899 etc...
 
Output produced by software:


Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time3 seconds
R Server'Sir Ronald Aylmer Fisher' @ 193.190.124.24


Classical Decomposition by Moving Averages
tObservationsFitTrendSeasonalRandom
1206010NANA-779.64305555556NA
2198112NANA-4634.54305555556NA
3194519NANA-8684.54722222223NA
4185705NANA-11999.7888888889NA
5180173NANA-16639.8722222222NA
6176142NANA-14198.5555555556NA
7203401209777.802777778191017.91666666718759.8861111111-6376.80277777775
8221902215998.994444444188921.58333333327077.41111111115903.0055555556
9197378198599.944444444186701.70833333311898.2361111111-1221.94444444444
10185001187940.752777778184494.7916666673445.96111111112-2939.75277777779
11176356178209.581944444182488-4278.41805555555-1853.58194444448
12180449180586.87361111118055333.8736111111179-137.873611111107
13180144177976.898611111178756.541666667-779.643055555562167.1013888889
14173666172378.665277778177013.208333333-4634.543055555561287.33472222224
15165688166578.536111111175263.083333333-8684.54722222223-890.536111111112
16161570161627.919444444173627.708333333-11999.7888888889-57.9194444444147
17156145155483.877777778172123.75-16639.8722222222661.122222222242
18153730156317.861111111170516.416666667-14198.5555555556-2587.86111111109
19182698187696.594444444168936.70833333318759.8861111111-4998.59444444443
20200765194694.494444444167617.08333333327077.41111111116070.50555555557
21176512178482.027777778166583.79166666711898.2361111111-1970.02777777775
22166618169279.669444444165833.7083333333445.96111111112-2661.66944444447
23158644160996.915277778165275.333333333-4278.41805555555-2352.91527777776
24159585164946.665277778164912.79166666733.8736111111179-5361.66527777776
25163095163874.356944444164654-779.64305555556-779.356944444415
26159044159637.748611111164272.291666667-4634.54305555556-593.748611111136
27155511155893.161111111164577.708333333-8684.54722222223-382.161111111112
28153745153866.044444444165865.833333333-11999.7888888889-121.044444444415
29150569150651.002777778167290.875-16639.8722222222-82.0027777777868
30150605154620.319444444168818.875-14198.5555555556-4015.31944444444
31179612189163.177777778170403.29166666718759.8861111111-9551.1777777778
32194690199017.244444444171939.83333333327077.4111111111-4327.24444444448
33189917185436.486111111173538.2511898.23611111114480.51388888888
34184128178445.752777778174999.7916666673445.961111111125682.24722222224
35175335172015.040277778176293.458333333-4278.418055555553319.95972222224
36179566177655.165277778177621.29166666733.87361111111791910.83472222224
37181140178637.606944444179417.25-779.643055555562502.39305555559
38177876176772.373611111181406.916666667-4634.543055555561103.62638888889
39175041174105.994444444182790.541666667-8684.54722222223935.005555555545
40169292171768.836111111183768.625-11999.7888888889-2476.83611111113
41166070168339.544444444184979.416666667-16639.8722222222-2269.54444444444
42166972172172.861111111186371.416666667-14198.5555555556-5200.86111111107
43206348206517.219444444187757.33333333318759.8861111111-169.219444444432
44215706216247.952777778189170.54166666727077.4111111111-541.952777777769
45202108202388.194444444190489.95833333311898.2361111111-280.194444444438
46195411195428.419444444191982.4583333333445.96111111112-17.4194444444438
47193111189387.373611111193665.791666667-4278.418055555553723.62638888889
48195198195554.581944444195520.70833333333.8736111111179-356.581944444391
49198770196856.981944444197636.625-779.643055555561913.01805555553
50194163195251.831944444199886.375-4634.54305555556-1088.83194444445
51190420193406.411111111202090.958333333-8684.54722222223-2986.41111111108
52189733192073.961111111204073.75-11999.7888888889-2340.9611111111
53186029189017.877777778205657.75-16639.8722222222-2988.87777777779
54191531192857.444444444207056-14198.5555555556-1326.44444444444
55232571227293.136111111208533.2518759.88611111115277.86388888888
56243477237147.619444444210070.20833333327077.41111111116329.38055555557
57227247223571.277777778211673.04166666711898.23611111113675.72222222225
58217859216508.877777778213062.9166666673445.961111111121350.12222222227
59208679209972.831944444214251.25-4278.41805555555-1293.83194444442
60213188215382.748611111215348.87533.8736111111179-2194.74861111108
61216234215445.898611111216225.541666667-779.64305555556788.1013888889
62213586212663.290277778217297.833333333-4634.54305555556922.709722222266
63209465209984.411111111218668.958333333-8684.54722222223-519.411111111054
64204045208447.419444444220447.208333333-11999.7888888889-4402.41944444441
65200237205953.044444444222592.916666667-16639.8722222222-5716.04444444444
66203666210432.902777778224631.458333333-14198.5555555556-6766.90277777775
67241476245184.594444444226424.70833333318759.8861111111-3708.59444444443
68260307254992.827777778227915.41666666727077.41111111115314.17222222226
69243324241250.611111111229352.37511898.23611111112073.38888888891
70244460234271.336111111230825.3753445.9611111111210188.6638888889
71233575227986.040277778232264.458333333-4278.418055555555588.95972222224
72237217233660.456944444233626.58333333333.87361111111793556.54305555558
73235243234128.440277778234908.083333333-779.643055555561114.55972222224
74230354231128.040277778235762.583333333-4634.54305555556-774.040277777793
75227184227529.619444444236214.166666667-8684.54722222223-345.619444444426
76221678224295.794444444236295.583333333-11999.7888888889-2617.79444444444
77217142219335.877777778235975.75-16639.8722222222-2193.87777777776
78219452221371.277777778235569.833333333-14198.5555555556-1919.27777777772
79256446253438.969444444234679.08333333318759.88611111113007.03055555560
80265845260631.202777778233553.79166666727077.41111111115213.79722222226
81248624244384.736111111232486.511898.23611111114239.26388888891
82241114235037.419444444231591.4583333333445.961111111126076.58055555556
83229245226775.248611111231053.666666667-4278.418055555552469.75138888889
84231805230504.415277778230470.54166666733.87361111111791300.58472222224
85219277228674.523611111229454.166666667-779.64305555556-9397.5236111111
86219313223085.998611111227720.541666667-4634.54305555556-3772.99861111111
87212610217233.786111111225918.333333333-8684.54722222223-4623.78611111111
88214771211820.086111111223819.875-11999.78888888892950.9138888889
89211142204528.252777778221168.125-16639.87222222226613.74722222218
90211457204114.069444444218312.625-14198.55555555567342.93055555556
91240048234493.136111111215733.2518759.88611111115554.86388888888
92240636240380.536111111213303.12527077.4111111111255.463888888917
93230580222362.569444444210464.33333333311898.23611111118217.43055555556
94208795210715.836111111207269.8753445.96111111112-1920.8361111111
95197922199407.998611111203686.416666667-4278.41805555555-1485.99861111108
96194596200085.123611111200051.2533.8736111111179-5489.12361111111
97194581195890.273611111196669.916666667-779.64305555556-1309.2736111111
98185686188868.873611111193503.416666667-4634.54305555556-3182.87361111111
99178106181222.536111111189907.083333333-8684.54722222223-3116.53611111111
100172608174433.002777778186432.791666667-11999.7888888889-1825.00277777776
101167302167009.711111111183649.583333333-16639.8722222222292.28888888887
102168053167168.652777778181367.208333333-14198.5555555556884.347222222219
103202300198119.636111111179359.7518759.88611111114180.36388888891
104202388204504.494444444177427.08333333327077.4111111111-2116.49444444443
105182516187754.652777778175856.41666666711898.2361111111-5238.65277777781
106173476178086.211111111174640.253445.96111111112-4610.21111111113
107166444169141.123611111173419.541666667-4278.41805555555-2697.12361111111
108171297172360.081944444172326.20833333333.8736111111179-1063.08194444442
109169701170475.356944444171255-779.64305555556-774.356944444415
110164182165325.081944444169959.625-4634.54305555556-1143.08194444445
111161914160295.702777778168980.25-8684.547222222231618.2972222222
112159612156467.961111111168467.75-11999.78888888893144.0388888889
113151001151672.419444444168312.291666667-16639.8722222222-671.419444444444
114158114154410.527777778168609.083333333-14198.55555555563703.47222222222
115186530188346.136111111169586.2518759.8861111111-1816.13611111115
116187069198403.494444444171326.08333333327077.4111111111-11334.4944444445
117174330185503.194444444173604.95833333311898.2361111111-11173.1944444444
118169362179506.877777778176060.9166666673445.96111111112-10144.8777777778
119166827174461.581944444178740-4278.41805555555-7634.58194444445
120178037181782.165277778181748.29166666733.8736111111179-3745.16527777776
121186413184060.190277778184839.833333333-779.643055555562352.80972222218
122189226183406.623611111188041.166666667-4634.543055555565819.37638888889
123191563182674.369444444191358.916666667-8684.547222222238888.63055555557
124188906182581.502777778194581.291666667-11999.78888888896324.49722222224
125186005181072.919444444197712.791666667-16639.87222222224932.08055555556
126195309186845.611111111201044.166666667-14198.55555555568463.38888888888
127223532222730.927777778203971.04166666718759.8861111111801.072222222225
128226899233184.661111111206107.2527077.4111111111-6285.66111111108
129214126219572.777777778207674.54166666711898.2361111111-5446.77777777775
130206903212268.127777778208822.1666666673445.96111111112-5365.12777777779
131204442205502.373611111209780.791666667-4278.41805555555-1060.37361111111
132220375210355.123611111210321.2533.873611111117910019.8763888889
133214320NA210690.458333333NANA
134212588NA211033.583333333NANA
135205816NA211049NANA
136202196NA210815.416666667NANA
137195722NA210314.583333333NANA
138198563NANANANA
139229139NANANANA
140229527NANANANA
141211868NANANANA
142203555NANANANA
143195770NANANANA
 
Charts produced by software:
http://www.freestatistics.org/blog/date/2010/Dec/29/t12936615308mxetk1xr1uafpt/12y151293661564.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Dec/29/t12936615308mxetk1xr1uafpt/12y151293661564.ps (open in new window)


http://www.freestatistics.org/blog/date/2010/Dec/29/t12936615308mxetk1xr1uafpt/2cpjp1293661564.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Dec/29/t12936615308mxetk1xr1uafpt/2cpjp1293661564.ps (open in new window)


http://www.freestatistics.org/blog/date/2010/Dec/29/t12936615308mxetk1xr1uafpt/3cpjp1293661564.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Dec/29/t12936615308mxetk1xr1uafpt/3cpjp1293661564.ps (open in new window)


http://www.freestatistics.org/blog/date/2010/Dec/29/t12936615308mxetk1xr1uafpt/4ny0b1293661564.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Dec/29/t12936615308mxetk1xr1uafpt/4ny0b1293661564.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