Opgave 9 - Aantal gebouwen - Christophe Morre

*Unverified author*

R Software Module: rwasp_decompose.wasp (opens new window with default values)

Title produced by software: Classical Decomposition

Date of computation: Thu, 28 May 2009 08:48:41 -0600

Cite this page as follows:

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL http://www.freestatistics.org/blog/date/2009/May/28/t12435222152sm4pmh9jeih3tp.htm/, Retrieved Thu, 28 May 2009 16:50:20 +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/2009/May/28/t12435222152sm4pmh9jeih3tp.htm/}, year = {2009}, } @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 = {2009}, 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 «

2194 2419 2742 2137 2710 2173 2363 2126 1905 2121 1983 1734 2074 2049 2406 2558 2251 2059 2397 1747 1707 2319 1631 1627 1791 2034 1997 2169 2028 2253 2218 1855 2187 1852 1570 1851 1954 1828 2251 2277 2085 2282 2266 1878 2267 2069 1746 2299 2360 2214 2825 2355 2333 3016 2155 2172 2150 2533 2058 2160 2260 2498 2695 2799 2945 2930 2318 2540 2570 2669 2450 2842 3440 2678 2981 2259 2844 2546 2456 2295 2379 2479 2057 2280 2351 2275 2543 2305 2188 2720 2398 2147 1898 2538 2081 2057 2497 2460 2195 2823 2100 2640 2342 2171 2482

Output produced by software:

Summary of computational transaction Raw Input view raw input (R code) Raw Output view raw output of R engine Computing time 2 seconds R Server 'Gwilym Jenkins' @ 72.249.127.135 Classical Decomposition by Moving Averages t Observations Fit Trend Seasonal Random 1 2194 NA NA 1.01111867619074 NA 2 2419 NA NA 0.97773079632636 NA 3 2742 NA NA 1.11063594195623 NA 4 2137 NA NA 1.05707892124478 NA 5 2710 NA NA 1.04259505968261 NA 6 2173 NA NA 1.11483795099515 NA 7 2363 2261.01515966999 2212.25 1.02204324089501 1.04510577467552 8 2126 1996.62795191710 2191.83333333333 0.910939678465713 1.06479527042516 9 1905 2047.35320888200 2162.41666666667 0.946789414103975 0.93046963842661 10 2121 2224.62245072248 2165.95833333333 1.02708460106842 0.953420208139665 11 1983 1825.36823116594 2164.375 0.84336967076682 1.08635614784058 12 1734 2003.02863139511 2140.5 0.935776048304184 0.865689073446879 13 2074 2160.92913079898 2137.16666666667 1.01111867619074 0.959772336093762 14 2049 2075.51878668496 2122.79166666667 0.97773079632636 0.987223056300388 15 2406 2330.94718318064 2098.75 1.11063594195623 1.03219842017911 16 2558 2218.54438596249 2098.75 1.05707892124478 1.15300825901224 17 2251 2181.45639654257 2092.33333333333 1.04259505968261 1.03187943777728 18 2059 2311.29133031941 2073.20833333333 1.11483795099515 0.890843994000295 19 2397 2102.30036138600 2056.95833333333 1.02204324089501 1.14017960707561 20 1747 1862.45412844309 2044.54166666667 0.910939678465713 0.938009679443972 21 1707 1919.02379371199 2026.875 0.946789414103975 0.889514765576786 22 2319 2047.62153780502 1993.625 1.02708460106842 1.13253350640465 23 1631 1659.85693327795 1968.125 0.84336967076682 0.98261480691534 24 1627 1840.59350567697 1966.91666666667 0.935776048304184 0.88395400450008 25 1791 1989.41812535013 1967.54166666667 1.01111867619074 0.900263236359524 26 2034 1920.83362694949 1964.58333333333 0.97773079632636 1.05891523943707 27 1997 2209.14744154611 1989.08333333333 1.11063594195623 0.903968636245648 28 2169 2103.19064868165 1989.625 1.05707892124478 1.03129024530401 29 2028 2051.43610430799 1967.625 1.04259505968261 0.98857575712021 30 2253 2201.15463107735 1974.41666666667 1.11483795099515 1.02355371503240 31 2218 2034.41965613656 1990.54166666667 1.02204324089501 1.09023720514580 32 1855 1811.63128554869 1988.75 0.910939678465713 1.02393904035400 33 2187 1884.82102612749 1990.75 0.946789414103975 1.16032236996706 34 1852 2060.1605289764 2005.83333333333 1.02708460106842 0.898959073310746 35 1570 1697.45716443297 2012.70833333333 0.84336967076682 0.924912883162183 36 1851 1886.79744806199 2016.29166666667 0.935776048304184 0.981027402756581 37 1954 2041.95416656720 2019.5 1.01111867619074 0.956926473665633 38 1828 1977.41979678688 2022.45833333333 0.97773079632636 0.924436987517939 39 2251 2250.98139535979 2026.75 1.11063594195623 1.00000826512393 40 2277 2155.51605528327 2039.125 1.05707892124478 1.05635956383575 41 2085 2143.05414517759 2055.5 1.04259505968261 0.972910556036006 42 2282 2320.53519499641 2081.5 1.11483795099515 0.983393832991844 43 2266 2163.75071124482 2117.08333333333 1.02204324089501 1.04725557719002 44 1878 1958.59622034115 2150.08333333333 0.910939678465713 0.95885000721225 45 2267 2073.54771600555 2190.08333333333 0.946789414103975 1.09329531339029 46 2069 2277.30333171895 2217.25 1.02708460106842 0.908530704356491 47 1746 1881.41717386898 2230.83333333333 0.84336967076682 0.928023845136639 48 2299 2125.84923773503 2271.75 0.935776048304184 1.08145016080701 49 2360 2323.25580827244 2297.70833333333 1.01111867619074 1.01581581829979 50 2214 2253.99539579770 2305.33333333333 0.97773079632636 0.982255777508566 51 2825 2568.57699826170 2312.70833333333 1.11063594195623 1.09983076306914 52 2355 2459.99882955682 2327.16666666667 1.05707892124478 0.957317528652753 53 2333 2460.00304332111 2359.5 1.04259505968261 0.94837281048659 54 3016 2638.49626893649 2366.70833333333 1.11483795099515 1.14307533253237 55 2155 2408.70040797932 2356.75 1.02204324089501 0.894673323781203 56 2172 2153.84095809231 2364.41666666667 0.910939678465713 1.00843100408109 57 2150 2244.67990260484 2370.83333333333 0.946789414103975 0.957820309927055 58 2533 2448.48409856368 2383.91666666667 1.02708460106842 1.03451764358441 59 2058 2047.63127981594 2427.91666666667 0.84336967076682 1.00506376332803 60 2160 2292.49535567053 2449.83333333333 0.935776048304184 0.942204744126175 61 2260 2480.31624264073 2453.04166666667 1.01111867619074 0.911174132212203 62 2498 2420.04667604046 2475.16666666667 0.97773079632636 1.03221149605556 63 2695 2785.47494242623 2508 1.11063594195623 0.967519024835519 64 2799 2675.64292949075 2531.16666666667 1.05707892124478 1.0461037118031 65 2945 2661.91895321297 2553.16666666667 1.04259505968261 1.10634472790591 66 2930 2896.25609352283 2597.91666666667 1.11483795099515 1.01165087112035 67 2318 2734.47669101461 2675.5 1.02204324089501 0.847694188660252 68 2540 2488.83902484807 2732.16666666667 0.910939678465713 1.02055616078065 69 2570 2605.16997202493 2751.58333333333 0.946789414103975 0.98649993190364 70 2669 2815.23889152853 2741 1.02708460106842 0.948054535631563 71 2450 2289.15126928179 2714.29166666667 0.84336967076682 1.07026566259585 72 2842 2521.05865546883 2694.08333333333 0.935776048304184 1.12730419573339 73 3440 2713.67400711659 2683.83333333333 1.01111867619074 1.26765410693349 74 2678 2619.70745240694 2679.375 0.97773079632636 1.02225154856108 75 2981 2955.63362403344 2661.20833333333 1.11063594195623 1.00858238171345 76 2259 2796.32610633287 2645.33333333333 1.05707892124478 0.807845692562116 77 2844 2732.68509288893 2621.04166666667 1.04259505968261 1.04073462668667 78 2546 2877.67546100624 2581.25 1.11483795099515 0.884741880903323 79 2456 2567.84105761368 2512.45833333333 1.02204324089501 0.95644549054854 80 2295 2232.06790298055 2450.29166666667 0.910939678465713 1.02819452622181 81 2379 2286.73313241463 2415.25 0.946789414103975 1.04034876928903 82 2479 2463.89036757971 2398.91666666667 1.02708460106842 1.00613242886904 83 2057 2001.73791356505 2373.5 0.84336967076682 1.02760705388076 84 2280 2202.27094834654 2353.41666666667 0.935776048304184 1.03529495392555 85 2351 2384.47061812682 2358.25 1.01111867619074 0.985963082173304 86 2275 2297.34146110150 2349.66666666667 0.97773079632636 0.990275080357105 87 2543 2580.51633463773 2323.45833333333 1.11063594195623 0.985461694570908 88 2305 2437.49185752532 2305.875 1.05707892124478 0.945644184567727 89 2188 2407.69952449370 2309.33333333333 1.04259505968261 0.908751269725031 90 2720 2565.28857682114 2301.04166666667 1.11483795099515 1.06030955915711 91 2398 2348.48502703659 2297.83333333333 1.02204324089501 1.02108379333629 92 2147 2105.75093423330 2311.625 0.910939678465713 1.01958876764394 93 1898 2182.19180127398 2304.83333333333 0.946789414103975 0.869767725683844 94 2538 2374.53400728676 2311.91666666667 1.02708460106842 1.06884129358081 95 2081 1964.91077127490 2329.83333333333 0.84336967076682 1.05908117071890 96 2057 2173.65179753590 2322.83333333333 0.935776048304184 0.946333723888922 97 2497 NA 2317.16666666667 NA NA 98 2460 NA 2315.83333333333 NA NA 99 2195 NA 2341.16666666667 NA NA 100 2823 NA NA NA NA 101 2100 NA NA NA NA 102 2640 NA NA NA NA 103 2342 NA NA NA NA 104 2171 NA NA NA NA 105 2482 NA NA NA NA

Charts produced by software:

http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2009/May/28/t12435222152sm4pmh9jeih3tp/1ojpn1243522118.png (open in new window) http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2009/May/28/t12435222152sm4pmh9jeih3tp/1ojpn1243522118.ps (open in new window) http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2009/May/28/t12435222152sm4pmh9jeih3tp/29zc31243522118.png (open in new window) http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2009/May/28/t12435222152sm4pmh9jeih3tp/29zc31243522118.ps (open in new window) http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2009/May/28/t12435222152sm4pmh9jeih3tp/3v8bg1243522118.png (open in new window) http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2009/May/28/t12435222152sm4pmh9jeih3tp/3v8bg1243522118.ps (open in new window) http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2009/May/28/t12435222152sm4pmh9jeih3tp/4xwtq1243522118.png (open in new window) http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2009/May/28/t12435222152sm4pmh9jeih3tp/4xwtq1243522118.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

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