Home » date » 2010 » May » 20 »

decompositie wisselkoers dollar/euro

*Unverified author*
R Software Module: /rwasp_decompose.wasp (opens new window with default values)
Title produced by software: Classical Decomposition
Date of computation: Thu, 20 May 2010 11:57:43 +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/May/20/t1274356722lwc7yqrllxxfls4.htm/, Retrieved Thu, 20 May 2010 13:58:42 +0200
 
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/May/20/t1274356722lwc7yqrllxxfls4.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:
KDGP2W52
 
Dataseries X:
» Textbox « » Textfile « » CSV «
1,1591 1,1203 1,0886 1,0701 1,0630 1,0377 1,0370 1,0605 1,0497 1,0706 1,0328 1,0110 1,0131 0,9834 0,9643 0,9449 0,9059 0,9505 0,9386 0,9045 0,8695 0,8525 0,8552 0,8983 0,9376 0,9205 0,9083 0,8925 0,8753 0,8530 0,8615 0,9014 0,9114 0,9050 0,8883 0,8912 0,8832 0,8707 0,8766 0,8860 0,9170 0,9561 0,9935 0,9781 0,9806 0,9812 1,0013 1,0194 1,0622 1,0785 1,0797 1,0862 1,1556 1,1674 1,1365 1,1155 1,1267 1,1714 1,1710 1,2298 1,2638 1,2640 1,2261 1,1989 1,2000 1,2146 1,2266 1,2191 1,2224 1,2507 1,2997 1,3406 1,3123 1,3013 1,3185 1,2943 1,2697 1,2155 1,2041 1,2295 1,2234 1,2022 1,1789 1,1861 1,2126 1,1940 1,2028 1,2273 1,2767 1,2661 1,2681 1,2810 1,2722 1,2617 1,2888 1,3205 1,2993 1,3080 1,3246 1,3513 1,3518 1,3421 1,3726 1,3626 1,3910 1,4233 1,4683 1,4559 1,4728 1,4759 1,5520 1,5754 1,5554 1,5562 1,5759 1,4955 1,4342 1,3266 1,2744 1,3511 1,3244 1,2797 1,3050 1,3199 1,3646 1,4014 1,4092 1,4266 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
11.1591NANA0.0109630902777778NA
21.1203NANA-0.00264315972222224NA
31.0886NANA0.00232225694444445NA
41.0701NANA0.000788506944444475NA
51.063NANA0.00669559027777774NA
61.0377NANA0.00801517361111106NA
71.0371.067886840277781.060616666666670.0072701736111112-0.030886840277778
81.06051.048076423611111.04882916666667-0.0007527430555555080.0124235763888891
91.04971.028967256944441.03794583333333-0.008978576388888940.0207327430555557
101.07061.013038923611111.02755-0.01451107638888890.057561076388889
111.03281.000328923611111.0157875-0.01545857638888890.0324710763888887
121.0111.011897673611111.005608333333330.00628934027777775-0.000897673611111038
131.01311.008838090277780.9978750.01096309027777780.0042619097222224
140.98340.9846318402777780.987275-0.00264315972222224-0.00123184027777756
150.96430.975588923611110.9732666666666670.00232225694444445-0.0112889236111109
160.94490.9574593402777780.9566708333333330.000788506944444475-0.0125593402777777
170.90590.9468789236111110.9401833333333330.00669559027777774-0.040978923611111
180.95050.9361026736111110.92808750.008015173611111060.0143973263888890
190.93860.9275160069444440.9202458333333330.00727017361111120.0110839930555556
200.90450.9137264236111110.914479166666667-0.000752743055555508-0.00922642361111103
210.86950.9005464236111110.909525-0.00897857638888894-0.0310464236111109
220.85250.8904972569444440.905008333333333-0.0145110763888889-0.0379972569444443
230.85520.8860914236111110.90155-0.0154585763888889-0.0308914236111110
240.89830.9025018402777780.89621250.00628934027777775-0.00420184027777759
250.93760.8999005902777780.88893750.01096309027777780.0376994097222224
260.92050.8829526736111110.885595833333333-0.002643159722222240.037547326388889
270.90830.8895347569444450.88721250.002322256944444450.0187652430555555
280.89250.8919343402777780.8911458333333330.0007885069444444750.000565659722222112
290.87530.9014080902777780.89471250.00669559027777774-0.0261080902777778
300.8530.9038110069444440.8957958333333330.00801517361111106-0.0508110069444444
310.86150.9005035069444440.8932333333333330.0072701736111112-0.0390035069444443
320.90140.8881389236111110.888891666666667-0.0007527430555555080.0132610763888888
330.91140.8765172569444440.885495833333333-0.008978576388888940.0348827430555555
340.9050.8693930902777780.883904166666667-0.01451107638888890.0356069097222221
350.88830.8699122569444440.885370833333333-0.01545857638888890.0183877430555556
360.89120.8976935069444440.8914041666666670.00628934027777775-0.0064935069444444
370.88320.9121630902777780.90120.0109630902777778-0.0289630902777779
380.87070.9072526736111110.909895833333333-0.00264315972222224-0.036552673611111
390.87660.9182972569444440.9159750.00232225694444445-0.0416972569444444
400.8860.9228218402777780.9220333333333330.000788506944444475-0.0368218402777777
410.9170.9366122569444440.9299166666666670.00669559027777774-0.0196122569444442
420.95610.9479818402777780.9399666666666670.008015173611111060.0081181597222223
430.99350.9600368402777780.9527666666666670.00727017361111120.0334631597222224
440.97810.9681305902777780.968883333333333-0.0007527430555555080.00996940972222216
450.98060.9770255902777780.986004166666667-0.008978576388888940.00357440972222234
460.98120.9882972569444441.00280833333333-0.0145110763888889-0.00709725694444419
471.00131.005633090277781.02109166666667-0.0154585763888889-0.00433309027777784
481.01941.046126840277781.03983750.00628934027777775-0.0267268402777776
491.06221.065563090277781.05460.0109630902777778-0.0033630902777777
501.07851.063640173611111.06628333333333-0.002643159722222240.0148598263888888
511.07971.080418090277781.078095833333330.00232225694444445-0.000718090277777694
521.08621.092896840277781.092108333333330.000788506944444475-0.00669684027777784
531.15561.113799756944441.107104166666670.006695590277777740.0418002430555553
541.16741.130956840277781.122941666666670.008015173611111060.0364431597222219
551.13651.147378506944441.140108333333330.0072701736111112-0.0108785069444444
561.11551.155484756944441.1562375-0.000752743055555508-0.0399847569444445
571.12671.161088090277781.17006666666667-0.00897857638888894-0.0343880902777778
581.17141.166351423611111.1808625-0.01451107638888890.00504857638888878
591.1711.171949756944441.18740833333333-0.0154585763888889-0.000949756944444546
601.22981.197514340277781.1912250.006289340277777750.0322856597222221
611.26381.207908923611111.196945833333330.01096309027777780.0558910763888891
621.2641.202373506944441.20501666666667-0.002643159722222240.0616264930555557
631.22611.215643090277781.213320833333330.002322256944444450.0104569097222222
641.19891.221401006944441.22061250.000788506944444475-0.0225010069444442
651.21.235974756944441.229279166666670.00669559027777774-0.0359747569444442
661.21461.247273506944441.239258333333330.00801517361111106-0.0326735069444446
671.22661.253166006944441.245895833333330.0072701736111112-0.0265660069444442
681.21911.248718090277781.24947083333333-0.000752743055555508-0.0296180902777774
691.22241.245896423611111.254875-0.00897857638888894-0.0234964236111110
701.25071.248188923611111.2627-0.01451107638888890.0025110763888887
711.29971.254120590277781.26957916666667-0.01545857638888890.0455794097222222
721.34061.278810173611111.272520833333330.006289340277777750.0617898263888887
731.31231.282583923611111.271620833333330.01096309027777780.0297160763888891
741.30131.268473506944441.27111666666667-0.002643159722222240.0328264930555557
751.31851.273913923611111.271591666666670.002322256944444450.044586076388889
761.29431.270401006944441.26961250.0007885069444444750.0238989930555558
771.26971.269253923611111.262558333333330.006695590277777740.000446076388888939
781.21551.259102673611111.25108750.00801517361111106-0.043602673611111
791.20411.247766006944441.240495833333330.0072701736111112-0.0436660069444446
801.22951.231118090277781.23187083333333-0.000752743055555508-0.00161809027777760
811.22341.213600590277781.22257916666667-0.008978576388888940.00979940972222226
821.20221.200455590277781.21496666666667-0.01451107638888890.00174440972222256
831.17891.197008090277781.21246666666667-0.0154585763888889-0.0181080902777777
841.18611.221156006944441.214866666666670.00628934027777775-0.0350560069444443
851.21261.230604756944441.219641666666670.0109630902777778-0.0180047569444444
861.1941.221811006944441.22445416666667-0.00264315972222224-0.0278110069444444
871.20281.230955590277781.228633333333330.00232225694444445-0.0281555902777779
881.22731.233934340277781.233145833333330.000788506944444475-0.00663434027777754
891.27671.246899756944441.240204166666670.006695590277777740.0298002430555557
901.26611.258398506944441.250383333333330.008015173611111060.00770149305555567
911.26811.266866006944441.259595833333330.00727017361111120.00123399305555560
921.2811.267205590277781.26795833333333-0.0007527430555555080.0137944097222222
931.27221.268804756944441.27778333333333-0.008978576388888940.00339524305555594
941.26171.273513923611111.288025-0.0145110763888889-0.011813923611111
951.28881.280862256944441.29632083333333-0.01545857638888890.00793774305555561
961.32051.308906006944441.302616666666670.006289340277777750.0115939930555558
971.29931.321100590277781.31013750.0109630902777778-0.0218005902777778
981.3081.315248506944441.31789166666667-0.00264315972222224-0.00724850694444434
991.32461.328563923611111.326241666666670.00232225694444445-0.00396392361111109
1001.35131.338713506944441.3379250.0007885069444444750.0125864930555559
1011.35181.358833090277781.35213750.00669559027777774-0.00703309027777754
1021.34211.373273506944441.365258333333330.00801517361111106-0.0311735069444441
1031.37261.385399340277781.378129166666670.0072701736111112-0.0127993402777775
1041.36261.391601423611111.39235416666667-0.000752743055555508-0.0290014236111109
1051.3911.399846423611111.408825-0.00897857638888894-0.00884642361111099
1061.42331.413126423611111.4276375-0.01451107638888890.0101735763888893
1071.46831.429999756944441.44545833333333-0.01545857638888890.0383002430555557
1081.45591.469151840277781.46286250.00628934027777775-0.0132518402777777
1091.47281.491217256944441.480254166666670.0109630902777778-0.0184172569444445
1101.47591.491619340277781.4942625-0.00264315972222224-0.0157193402777775
1111.5521.503922256944441.50160.002322256944444450.0480777430555555
1121.57541.500159340277781.499370833333330.0007885069444444750.0752406597222222
1131.55541.493958090277781.48726250.006695590277777740.0614419097222223
1141.55621.482831840277781.474816666666670.008015173611111060.073368159722222
1151.57591.471536840277781.464266666666670.00727017361111120.104363159722223
1161.49551.449155590277781.44990833333333-0.0007527430555555080.0463444097222225
1171.43421.422463090277781.43144166666667-0.008978576388888940.0117369097222222
1181.32661.395993090277781.41050416666667-0.0145110763888889-0.0693930902777777
1191.27441.376449756944441.39190833333333-0.0154585763888889-0.102049756944445
1201.35111.383797673611111.377508333333330.00628934027777775-0.0326976736111109
1211.32441.375075590277781.36411250.0109630902777778-0.0506755902777776
1221.27971.351652673611111.35429583333333-0.00264315972222224-0.0719526736111111
1231.3051.354718090277781.352395833333330.00232225694444445-0.0497180902777781
1241.31991.360634340277781.359845833333330.000788506944444475-0.0407343402777778
1251.36461.382037256944441.375341666666670.00669559027777774-0.0174372569444443
1261.40141.396823506944441.388808333333330.008015173611111060.00457649305555541
1271.4092NANA0.0072701736111112NA
1281.4266NANA-0.000752743055555508NA
1291.4575NANA-0.00897857638888894NA
1301.4821NANA-0.0145110763888889NA
1311.4908NANA-0.0154585763888889NA
1321.4579NANA0.00628934027777775NA
 
Charts produced by software:
http://www.freestatistics.org/blog/date/2010/May/20/t1274356722lwc7yqrllxxfls4/13ipd1274356659.png (open in new window)
http://www.freestatistics.org/blog/date/2010/May/20/t1274356722lwc7yqrllxxfls4/13ipd1274356659.ps (open in new window)


http://www.freestatistics.org/blog/date/2010/May/20/t1274356722lwc7yqrllxxfls4/23ipd1274356659.png (open in new window)
http://www.freestatistics.org/blog/date/2010/May/20/t1274356722lwc7yqrllxxfls4/23ipd1274356659.ps (open in new window)


http://www.freestatistics.org/blog/date/2010/May/20/t1274356722lwc7yqrllxxfls4/3v9og1274356659.png (open in new window)
http://www.freestatistics.org/blog/date/2010/May/20/t1274356722lwc7yqrllxxfls4/3v9og1274356659.ps (open in new window)


http://www.freestatistics.org/blog/date/2010/May/20/t1274356722lwc7yqrllxxfls4/4v9og1274356659.png (open in new window)
http://www.freestatistics.org/blog/date/2010/May/20/t1274356722lwc7yqrllxxfls4/4v9og1274356659.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