Home » date » 2009 » Aug » 19 »

clasiccal composition- huur niet -sociale woning - olivier bosiers

*Unverified author*

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

Title produced by software: Classical Decomposition

Date of computation: Wed, 19 Aug 2009 03:25:11 -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/Aug/19/t1250674560yepql5361f40mux.htm/, Retrieved Wed, 19 Aug 2009 11:36:00 +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/Aug/19/t1250674560yepql5361f40mux.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 «

102,2 102,4 102,4 102,5 102,5 102,6 102,8 102,9 102,9 103,1 103,2 103,3 103,6 103,7 103,8 104 104 104,1 104,2 104,3 104,4 104,5 104,7 104,7 104,9 105 105,2 105,3 105,4 105,5 105,7 105,8 105,9 106 106,1 106,2 106,6 106,8 107 107,1 107,3 107,4 107,6 107,7 107,9 108,2 108,3 108,5 108,92 109,23 109,41 109,65 109,91 110,01 110,2 110,49 110,57 110,72 110,94 111,09 111,28 111,41 111,62 111,76 111,89 112,04 112,12 112,3 112,47 112,59 112,78 112,73 112,99 113,1 113,33 113,38 113,68 113,65 113,81 113,88 114,02 114,25 114,28 114,38 114,73 114,97 115,05 115,29 115,37 115,54 115,76 115,92 116,02 116,21 116,26 116,51

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	3 seconds
R Server	'Sir Ronald Aylmer Fisher' @ 193.190.124.24

Classical Decomposition by Moving Averages
t	Observations	Fit	Trend	Seasonal	Random
1	102.2	NA	NA	1.00029980351900	NA
2	102.4	NA	NA	1.00043604078401	NA
3	102.4	NA	NA	1.00058351300229	NA
4	102.5	NA	NA	1.00055421507937	NA
5	102.5	NA	NA	1.00051619356683	NA
6	102.6	NA	NA	0.999991294881945	NA
7	102.8	102.793848850280	102.791666666667	1.00002122918797	1.00005983966734
8	102.9	102.891748847867	102.904166666667	0.999879326375192	1.00008019255407
9	102.9	102.968028170229	103.016666666667	0.99952785798637	0.999339327251011
10	103.1	103.107902353069	103.1375	0.999713027299178	0.999923358414936
11	103.2	103.215904014540	103.2625	0.99954876179194	0.999845915077796
12	103.3	103.276744747572	103.3875	0.998928736525903	1.00022517414240
13	103.6	103.539365495912	103.508333333333	1.00029980351900	1.00058561788357
14	103.7	103.670184726243	103.625	1.00043604078401	1.00028759738237
15	103.8	103.806370376017	103.745833333333	1.00058351300229	0.99993863212832
16	104	103.924231139577	103.866666666667	1.00055421507937	1.00072907790216
17	104	104.041177678531	103.9875	1.00051619356683	0.99960421748917
18	104.1	104.107427058001	104.108333333333	0.999991294881945	0.999928659671927
19	104.2	104.223045856995	104.220833333333	1.00002122918797	0.999778879452187
20	104.3	104.316576887952	104.329166666667	0.999879326375192	0.999841090568284
21	104.4	104.392355367860	104.441666666667	0.99952785798637	1.000073229808
22	104.5	104.524162475076	104.554166666667	0.999713027299178	0.999768833593075
23	104.7	104.619437067556	104.666666666667	0.99954876179194	1.00077005702479
24	104.7	104.671082775639	104.783333333333	0.998928736525903	1.00027626755732
25	104.9	104.935617304991	104.904166666667	1.00029980351900	0.999660579449517
26	105	105.074963666844	105.029166666667	1.00043604078401	0.999286569662006
27	105.2	105.215525490162	105.154166666667	1.00058351300229	0.999852441071893
28	105.3	105.337513968377	105.279166666667	1.00055421507937	0.999643868865292
29	105.4	105.454406801944	105.4	1.00051619356683	0.999484072751492
30	105.5	105.519914762022	105.520833333333	0.999991294881945	0.9998112701089
31	105.7	105.656409618831	105.654166666667	1.00002122918797	1.00041256731443
32	105.8	105.787232730495	105.8	0.999879326375192	1.00012068818869
33	105.9	105.899976553656	105.95	0.99952785798637	1.00000022140084
34	106	106.069552196443	106.1	0.999713027299178	0.99934427745755
35	106.1	106.206220726901	106.254166666667	0.99954876179194	0.998999863415023
36	106.2	106.298504175563	106.4125	0.998928736525903	0.999073324913397
37	106.6	106.602783644189	106.570833333333	1.00029980351900	0.99997388769698
38	106.8	106.775704936176	106.729166666667	1.00043604078401	1.00022753363078
39	107	106.954039344003	106.891666666667	1.00058351300229	1.00042972342399
40	107.1	107.126004627831	107.066666666667	1.00055421507937	0.999757251958368
41	107.3	107.305361760043	107.25	1.00051619356683	0.999950032692169
42	107.4	107.436564743879	107.4375	0.999991294881945	0.999659662015757
43	107.6	107.632284897501	107.63	1.00002122918797	0.999700044484496
44	107.7	107.814904681107	107.827916666667	0.999879326375192	0.998934241221593
45	107.9	107.978578028327	108.029583333333	0.99952785798637	0.999272281319485
46	108.2	108.205189151011	108.23625	0.999713027299178	0.999952043418145
47	108.3	108.402312652288	108.45125	0.99954876179194	0.999056176480142
48	108.5	108.552337137349	108.66875	0.998928736525903	0.999517862639079
49	108.92	108.918477689336	108.885833333333	1.00029980351900	1.00001397660614
50	109.23	109.157993258293	109.110416666667	1.00043604078401	1.00065965615121
51	109.41	109.401716762685	109.337916666667	1.00058351300229	1.00007571396099
52	109.65	109.614883237841	109.554166666667	1.00055421507937	1.00032036490960
53	109.91	109.825828804337	109.769166666667	1.00051619356683	1.00076640619588
54	110.01	109.986125882788	109.987083333333	0.999991294881945	1.00021706480722
55	110.2	110.195672648320	110.193333333333	1.00002122918797	1.00003926970612
56	110.49	110.369179743610	110.3825	0.999879326375192	1.00109469198440
57	110.57	110.513214088204	110.565416666667	0.99952785798637	1.00051383820717
58	110.72	110.713635755342	110.745416666667	0.999713027299178	1.0000574838376
59	110.94	110.865783871455	110.915833333333	0.99954876179194	1.00066942320664
60	111.09	110.963917595446	111.082916666667	0.998928736525903	1.00113624687454
61	111.28	111.280852391980	111.2475	1.00029980351900	0.99999234017388
62	111.41	111.451492881791	111.402916666667	1.00043604078401	0.999627704567093
63	111.62	111.622595251753	111.5575	1.00058351300229	0.99997674976337
64	111.76	111.776497240002	111.714583333333	1.00055421507937	0.999852408686892
65	111.89	111.926912810827	111.869166666667	1.00051619356683	0.999670206120225
66	112.04	112.013191570122	112.014166666667	0.999991294881945	1.00023933279199
67	112.12	112.156130933040	112.15375	1.00002122918797	0.99967785146706
68	112.3	112.281865571688	112.295416666667	0.999879326375192	1.00016150807808
69	112.47	112.383997062402	112.437083333333	0.99952785798637	1.00076525964413
70	112.59	112.543527142394	112.575833333333	0.999713027299178	1.00041293230082
71	112.78	112.667054035934	112.717916666667	0.99954876179194	1.00100247552430
72	112.73	112.738680984007	112.859583333333	0.998928736525903	0.99992299906358
73	112.99	113.030960256553	112.997083333333	1.00029980351900	0.999637619140276
74	113.1	113.182664080697	113.133333333333	1.00043604078401	0.999269640086946
75	113.33	113.329840870813	113.26375	1.00058351300229	1.00000140412433
76	113.38	113.460346604463	113.3975	1.00055421507937	0.99929185299651
77	113.68	113.587769692148	113.529166666667	1.00051619356683	1.00081197393084
78	113.65	113.659427239321	113.660416666667	0.999991294881945	0.999917057128033
79	113.81	113.804082583640	113.801666666667	1.00002122918797	1.00005199652092
80	113.88	113.938332322383	113.952083333333	0.999879326375192	0.99948803601743
81	114.02	114.047794476008	114.101666666667	0.99952785798637	0.9997562909819
82	114.25	114.220129198594	114.252916666667	0.999713027299178	1.00026151959042
83	114.28	114.351293699553	114.402916666667	0.99954876179194	0.99937653788386
84	114.38	114.429367870577	114.552083333333	0.998928736525903	0.999568573422232
85	114.73	114.746474419588	114.712083333333	1.00029980351900	0.999856427662186
86	114.97	114.928424971865	114.878333333333	1.00043604078401	1.00036174713214
87	115.05	115.113797892537	115.046666666667	1.00058351300229	0.999445784139654
88	115.29	115.275518709653	115.211666666667	1.00055421507937	1.00012562329373
89	115.37	115.435389596268	115.375833333333	1.00051619356683	0.999433539432778
90	115.54	115.546077482332	115.547083333333	0.999991294881945	0.999947402088722
91	115.76	NA	NA	1.00002122918797	NA
92	115.92	NA	NA	0.999879326375192	NA
93	116.02	NA	NA	0.99952785798637	NA
94	116.21	NA	NA	0.999713027299178	NA
95	116.26	NA	NA	0.99954876179194	NA
96	116.51	NA	NA	0.998928736525903	NA

Charts produced by software:

http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2009/Aug/19/t1250674560yepql5361f40mux/1se1b1250673905.png (open in new window)

http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2009/Aug/19/t1250674560yepql5361f40mux/1se1b1250673905.ps (open in new window)

http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2009/Aug/19/t1250674560yepql5361f40mux/2ik4k1250673905.png (open in new window)

http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2009/Aug/19/t1250674560yepql5361f40mux/2ik4k1250673905.ps (open in new window)

http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2009/Aug/19/t1250674560yepql5361f40mux/3iidd1250673905.png (open in new window)

http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2009/Aug/19/t1250674560yepql5361f40mux/3iidd1250673905.ps (open in new window)

http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2009/Aug/19/t1250674560yepql5361f40mux/48v6a1250673905.png (open in new window)

http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2009/Aug/19/t1250674560yepql5361f40mux/48v6a1250673905.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')

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.

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