Home » date » 2010 » Dec » 21 »

cd middengeschoold

*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: Tue, 21 Dec 2010 19:12:54 +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/21/t1292958662kksv6dy9yxcdfx0.htm/, Retrieved Tue, 21 Dec 2010 20:11:02 +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/21/t1292958662kksv6dy9yxcdfx0.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 «
56190 54300 51362 49802 48088 46696 56586 64148 56449 52538 49359 49583 51050 49610 48321 47692 46243 46248 56381 62329 60673 58393 55742 57135 57961 56571 55615 53494 52623 52820 66825 70695 65660 63238 61741 63642 65521 64006 62728 62438 61109 63422 78094 82030 75892 72431 69194 71171 72545 71503 69624 67407 66103 67466 81088 86781 79964 80407 76589 78083 78000 76431 75461 73739 71988 72929 85785 89261 84012 80924 76588 77546 73054 73430 71093 72202 70872 70452 80506 80400 77613 69056 65321 64018 64767 61099 58329 56396 54656 55259 66912 66631 59907 56274 54045 55792 55499 53216 52259 51257 48150 51125 61046 61022 56742 54485 53862 58228 61951 62874 64013 62937 61897 65267 75228 76161 71480 69070 68293 74685 72664 71965 69238 67738 65187 66170 77309 77134 70957 67749 65081
 
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
156190NANA1.00001658705932NA
254300NANA0.976674749992057NA
351362NANA0.955370640867374NA
449802NANA0.935631302717949NA
548088NANA0.908535021609219NA
646696NANA0.925260375408362NA
75658658236.436293775952710.91666666671.104826855166480.971659730594603
86414859665.814294357152301.33333333331.14080866570051.07512150397429
95644955305.896000704551979.20833333331.064000352718681.02066875472519
105253852466.583997465951764.58333333331.013561408571801.00136117118922
114935950204.551433794951599.79166666670.9729603514315520.983157872948832
124958351625.474974147351504.251.00235368875670.960436684114381
135105051477.895519410351477.04166666671.000016587059320.991687781423602
144961050193.96056287351392.70833333330.9766747499920570.988365919797432
154832149194.820795963651492.91666666670.9553706408673740.982237544891407
164769248571.31086408451912.8750.9356313027179490.98189649716178
174624347627.942159690652422.79166666670.9085350216092190.970921646057118
184624849041.961202925853003.41666666670.9252603754083620.943029170645012
195638159225.394432506753606.04166666671.104826855166480.951973398239699
206232961813.624276010354184.04166666671.14080866570051.00833757492828
216067358283.8113212239547781.064000352718681.04099232058810
225839356073.933514023655323.66666666671.013561408571801.04135729991898
235574254321.592620862955831.250.9729603514315521.02614811736193
245713556503.596259429956370.91666666671.00235368875671.01117457617514
255796157080.863454630357079.91666666671.000016587059321.01541911758341
265657156513.982175290457863.66666666670.9766747499920571.00100891536068
275561555812.79264658258420.04166666670.9553706408673740.996456141375429
285349455042.916646433658829.70833333330.9356313027179490.971859836999862
295262353859.356739152859281.54166666670.9085350216092190.977044717686833
305282055332.999257905559802.6250.9252603754083620.954584076561755
316682566719.112749934960388.751.104826855166481.00158706022459
327069569604.777058411961013.54166666671.14080866570051.01566304767664
336566065563.391401088961619.70833333331.064000352718681.00147351436292
346323863133.47318817762288.751.013561408571801.00165564805078
356174161311.0965454593630150.9729603514315521.00701183764055
366364263960.522997461363810.33333333331.00235368875670.995020006364332
376552164722.69854143364721.6251.000016587059321.01233418069019
386400664131.841751322265663.45833333330.9766747499920570.998037764893605
396272863591.460211634266562.08333333330.9553706408673740.986421758381384
406243863034.845326424767371.45833333330.9356313027179490.990531501690312
416110961839.474101457468065.04166666670.9085350216092190.98818757578276
426342263555.479794034568689.29166666670.9252603754083620.997899790946948
437809476559.713479998269295.66666666671.104826855166481.02004039004669
448203079743.333805269969900.70833333331.14080866570051.0286753272733
457589275012.468200147370500.41666666671.064000352718681.01172514144590
467243171957.581042928470994.79166666671.013561408571801.00657913940699
476919469479.017615697971409.91666666670.9729603514315520.995897788634918
487117171955.463077932971786.51.00235368875670.98909793580116
497254572080.945591088972079.751.000016587059321.00643796228123
507150370713.652891518672402.45833333330.9766747499920571.01116258425643
516962469522.401150138872770.08333333330.9553706408673741.00146138292378
526740768555.654782024873272.08333333330.9356313027179490.983244930185891
536610367152.132640317373912.54166666670.9085350216092190.984376778531567
546746668939.916891176574508.66666666670.9252603754083620.978620268813159
558108882888.483947557875023.95833333331.104826855166480.978278237677782
568678186081.524150818675456.58333333331.14080866570051.00812573727152
577996480763.079773155675905.1251.064000352718680.990105877891235
588040777448.423278690176412.16666666671.013561408571801.03820060623654
597658974841.285892539776921.20833333330.9729603514315521.02335227256744
607808377576.203152373177394.04166666671.00235368875671.00653289059058
617800077818.665761415177817.3751.000016587059321.00233021521007
627643176294.33171819278116.41666666670.9766747499920571.00179132943077
637546174889.99186741278388.41666666660.9553706408673741.0076246253785
647373973520.621274535278578.6250.9356313027179491.00297030576836
657198871410.966265362378600.1250.9085350216092191.00808046389533
667292972704.839911228878577.70833333330.9252603754083621.00308315222267
678578586562.355482152578349.251.104826855166480.991019705068992
688926189003.753081704978018.1251.14080866570051.00289029293022
698401282684.620076817577711.08333333331.064000352718681.01605352872093
708092478515.576746740177465.04166666671.013561408571801.03067446426622
717658875262.86150481277354.50.9729603514315521.01760680458719
727754677386.507716775977204.79166666671.00235368875671.00206098308258
737305476882.900240074476881.6251.000016587059320.950198285599031
747343074512.917668987776292.45833333330.9766747499920570.98546671231157
757109372280.118312112675656.6250.9553706408673740.983576143207369
767220270074.574232712174895.50.9356313027179491.03035945334784
777087267169.394805727973931.54166666670.9085350216092191.05512339667465
787045267450.016371675272898.41666666670.9252603754083621.04450678872756
798050679535.886855555271989.45833333331.104826855166481.01219717517209
808040081146.148194526371130.3751.14080866570050.990804884629427
817761374570.198720200570084.751.064000352718681.04080452153838
826905669828.637535948768894.33333333331.013561408571800.98893523397831
836532165733.28242274567560.08333333330.9729603514315520.99372795017152
846401866407.310116453566251.3751.00235368875670.964020374981858
856476765052.995686667265051.91666666671.000016587059320.995603650782745
866109962421.033147586163911.79166666670.9766747499920570.978820710249055
875832959806.520575177962600.33333333330.9553706408673740.975294991901082
885639657382.2677956918613300.9356313027179490.982812324545914
895465654809.72222738260327.58333333330.9085350216092190.99719534744686
905525955066.8712424287595150.9252603754083621.00348900805941
916691264948.443576721458786.08333333331.104826855166481.03023254007556
926663166248.422896532258071.45833333331.14080866570051.00577488620469
935990761169.46894449357490.08333333331.064000352718680.979361126289349
945627457796.354432715357023.04166666671.013561408571800.973660026697919
955404555009.070189178556537.83333333330.9729603514315520.982474341306569
965579256226.528993962856094.51.00235368875670.99227181542703
975549955678.756864857555677.83333333331.000016587059320.996771535950527
985321653912.161336092855199.70833333330.9766747499920570.98708711877172
995225952386.913142651754834.1250.9553706408673740.997558299678713
1005125751111.393912412854627.70833333330.9356313027179491.00284879899454
1014815049556.534876811554545.54166666670.9085350216092190.971617570108404
1025112550555.687177093954639.41666666660.9252603754083621.01126110344246
1036104660776.249095994455009.751.104826855166481.00443842632637
1046102263521.3673148696556811.14080866570050.9606531247591
1055674260193.86928774656573.16666666671.064000352718680.942654138559444
1065448558330.036746053857549.58333333331.013561408571800.934081359098169
1075386257024.273777066558609.04166666670.9729603514315520.94454512845829
1085822859911.765860150859771.08333333331.00235368875670.971895906655779
1096195160952.261001999360951.251.000016587059321.01638559393175
1106287460722.758536474962172.95833333330.9766747499920571.03542726838131
1116401360587.53607408763417.83333333330.9553706408673741.05653743571490
1126293760478.856545949764639.6250.9356313027179491.04064467475807
1136189759825.781937312465848.6250.9085350216092191.03462082726905
1146526762117.93359077567135.6250.9252603754083621.05069496403359
1157522875423.997507339368267.70833333331.104826855166480.9974013906208
1167616178821.750538161569092.8751.14080866570050.966243447779388
1177148074149.519580744469689.3751.064000352718680.963998154056313
1186907071057.876365919570107.1251.013561408571800.972024545798656
1196829368539.462236332170444.250.9729603514315520.996404082724164
1207468570785.173381572470618.95833333331.00235368875671.05509383437412
12172664NA70743.2916666667NANA
12271965NA70870.5416666667NANA
12369238NA70889.2916666667NANA
12467738NA70812.4583333333NANA
12565187NA70623.5833333333NANA
12666170NANANANA
12777309NANANANA
12877134NANANANA
12970957NANANANA
13067749NANANANA
13165081NANANANA
 
Charts produced by software:
http://www.freestatistics.org/blog/date/2010/Dec/21/t1292958662kksv6dy9yxcdfx0/1ysr11292958770.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Dec/21/t1292958662kksv6dy9yxcdfx0/1ysr11292958770.ps (open in new window)


http://www.freestatistics.org/blog/date/2010/Dec/21/t1292958662kksv6dy9yxcdfx0/2ysr11292958770.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Dec/21/t1292958662kksv6dy9yxcdfx0/2ysr11292958770.ps (open in new window)


http://www.freestatistics.org/blog/date/2010/Dec/21/t1292958662kksv6dy9yxcdfx0/39jqm1292958770.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Dec/21/t1292958662kksv6dy9yxcdfx0/39jqm1292958770.ps (open in new window)


http://www.freestatistics.org/blog/date/2010/Dec/21/t1292958662kksv6dy9yxcdfx0/49jqm1292958770.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Dec/21/t1292958662kksv6dy9yxcdfx0/49jqm1292958770.ps (open in new window)


 
Parameters (Session):
par1 = multiplicative ; par2 = 12 ;
 
Parameters (R input):
par1 = multiplicative ; 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