Home » date » 2010 » Aug » 19 »

Omzet product Y

*Unverified author*

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

Title produced by software: Classical Decomposition

Date of computation: Thu, 19 Aug 2010 12:59:20 +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/Aug/19/t1282222816bd7q93m45fxc6ef.htm/, Retrieved Thu, 19 Aug 2010 15:00:35 +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/Aug/19/t1282222816bd7q93m45fxc6ef.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:

Philippe De Vocht

Dataseries X:

» Textbox « » Textfile « » CSV «

73 72 71 69 89 88 73 63 64 64 65 67 69 71 70 72 88 83 76 70 75 71 75 81 87 90 80 85 105 104 98 94 107 112 121 118 120 122 109 112 132 127 116 113 123 125 137 127 123 128 114 120 143 135 119 117 132 139 158 141 139 150 142 149 166 150 139 140 158 169 186 177 175 187 176 185 204 188 171 171 182 185 200 192 185 195 190 195 213 194 171 171 186 182 193 185 172 185 179 182 193 173 155 164 188 186 200 185 173 190 190 193 195 178 163 165 188 182 200 177

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	73	NA	NA	0.989217697902438	NA
2	72	NA	NA	1.03521490179771	NA
3	71	NA	NA	0.967627649778817	NA
4	69	NA	NA	0.993183284417102	NA
5	89	NA	NA	1.11226999674049	NA
6	88	NA	NA	1.02596191448900	NA
7	73	66.9844554432466	71.3333333333333	0.939034422101588	1.08980508264115
8	63	64.3097232933933	71.125	0.904178886374599	0.97963413265801
9	64	69.8043735629402	71.0416666666667	0.982583557484203	0.916847995810654
10	64	70.1639221227768	71.125	0.986487481515315	0.912149692658418
11	65	75.1472023520106	71.2083333333333	1.05531471998142	0.864968993729424
12	67	71.5916710446534	70.9583333333333	1.00892548741731	0.935863055329586
13	69	70.1108043388353	70.875	0.989217697902438	0.98415644565327
14	71	73.8021957073286	71.2916666666667	1.03521490179771	0.962030998123131
15	70	69.7095086028156	72.0416666666667	0.967627649778817	1.00416717034744
16	72	72.2954665781949	72.7916666666667	0.993183284417102	0.995913069073628
17	88	81.751844760426	73.5	1.11226999674049	1.07642830883981
18	83	76.4341626294304	74.5	1.02596191448900	1.08590186828372
19	76	71.2101103427038	75.8333333333333	0.939034422101588	1.06726417968241
20	70	69.9608413332346	77.375	0.904178886374599	1.00055972263940
21	75	77.2146912256336	78.5833333333333	0.982583557484203	0.971317748080324
22	71	78.4668584255307	79.5416666666667	0.986487481515315	0.90484060945785
23	75	85.260635085166	80.7916666666667	1.05531471998142	0.87965565732748
24	81	83.110237026001	82.375	1.00892548741731	0.97460918051117
25	87	83.2591562401218	84.1666666666667	0.989217697902438	1.04493011854563
26	90	89.1147494630865	86.0833333333333	1.03521490179771	1.00993382736581
27	80	85.5544113679437	88.4166666666667	0.967627649778817	0.935077440436638
28	85	90.8348878873141	91.4583333333333	0.993183284417102	0.935763801519162
29	105	105.758338856742	95.0833333333333	1.11226999674049	0.99282951240593
30	104	101.09999699027	98.5416666666667	1.02596191448900	1.02868450144473
31	98	95.272867409057	101.458333333333	0.939034422101588	1.02862444119829
32	94	94.1853006640207	104.166666666667	0.904178886374599	0.998032594654215
33	107	104.849853779877	106.708333333333	0.982583557484203	1.02050690718785
34	112	107.568239130232	109.041666666667	0.986487481515315	1.04119952976456
35	121	117.447734044599	111.291666666667	1.05531471998142	1.03024550438795
36	118	114.386927135938	113.375	1.00892548741731	1.03158641423918
37	120	113.842470066939	115.083333333333	0.989217697902438	1.05408816173297
38	122	120.731937922158	116.625	1.03521490179771	1.01050312038112
39	109	114.260698311382	118.083333333333	0.967627649778817	0.95395881183007
40	112	118.478489303590	119.291666666667	0.993183284417102	0.945319278278527
41	132	134.028534607229	120.5	1.11226999674049	0.984864904975842
42	127	124.697121023517	121.541666666667	1.02596191448900	1.01846777982989
43	116	114.601325930648	122.041666666667	0.939034422101588	1.01220469360187
44	113	110.686565340357	122.416666666667	0.904178886374599	1.02090077194580
45	123	120.734954625871	122.875	0.982583557484203	1.01876047728802
46	125	121.748996677015	123.416666666667	0.986487481515315	1.02670250607165
47	137	131.078882511026	124.208333333333	1.05531471998142	1.04517216942611
48	127	126.115685927164	125	1.00892548741731	1.00701192771014
49	123	124.105603682677	125.458333333333	0.989217697902438	0.991091428188017
50	128	130.178273901062	125.75	1.03521490179771	0.983266993517537
51	114	122.203308603316	126.291666666667	0.967627649778817	0.932871632551741
52	120	126.382572942076	127.25	0.993183284417102	0.949497998074453
53	143	143.158417497141	128.708333333333	1.11226999674049	0.998893411229949
54	135	133.546042535985	130.166666666667	1.02596191448900	1.01088731224382
55	119	123.404773637850	131.416666666667	0.939034422101588	0.964306294578386
56	117	120.255791887822	133	0.904178886374599	0.972926111610002
57	132	132.730662223491	135.083333333333	0.982583557484203	0.994495151223906
58	139	135.600925063293	137.458333333333	0.986487481515315	1.02506675330659
59	158	147.348317777406	139.625	1.05531471998142	1.07228913355282
60	141	142.468686535720	141.208333333333	1.00892548741731	0.98969116251836
61	139	141.128391567414	142.666666666667	0.989217697902438	0.984918757000092
62	150	149.545419355528	144.458333333333	1.03521490179771	1.00303974970568
63	142	141.757450692597	146.5	0.967627649778817	1.00171101629028
64	149	147.818778830745	148.833333333333	0.993183284417102	1.00799100884609
65	166	168.230837006999	151.25	1.11226999674049	0.986739428711834
66	150	157.912638005098	153.916666666667	1.02596191448900	0.949892306878928
67	139	147.350151401441	156.916666666667	0.939034422101588	0.943331232971103
68	140	144.630947699670	159.958333333333	0.904178886374599	0.967980935108809
69	158	160.079237906801	162.916666666667	0.982583557484203	0.987011195617935
70	169	163.592507351290	165.833333333333	0.986487481515315	1.03305464740569
71	186	178.260244783529	168.916666666667	1.05531471998142	1.04341829119482
72	177	173.619260959729	172.083333333333	1.00892548741731	1.01947214278867
73	175	173.113097132927	175	0.989217697902438	1.01089982732863
74	187	183.880046931819	177.625	1.03521490179771	1.01696732799583
75	176	174.092341322705	179.916666666667	0.967627649778817	1.01095774037388
76	185	180.345531395405	181.583333333333	0.993183284417102	1.02580861620790
77	204	203.360031070720	182.833333333333	1.11226999674049	1.00314697497788
78	188	188.819740679079	184.041666666667	1.02596191448900	0.995658607113158
79	171	173.799620957302	185.083333333333	0.939034422101588	0.983891673975572
80	171	168.026576384613	185.833333333333	0.904178886374599	1.01769615068857
81	182	183.497479360175	186.75	0.982583557484203	0.991839237435869
82	185	185.213024654500	187.75	0.986487481515315	0.99884983977289
83	200	198.970796163164	188.541666666667	1.05531471998142	1.00517263767690
84	192	190.855071369775	189.166666666667	1.00892548741731	1.00599894266371
85	185	187.374318944353	189.416666666667	0.989217697902438	0.987328471917977
86	195	196.086955982183	189.416666666667	1.03521490179771	0.994456765485807
87	190	183.446075270567	189.583333333333	0.967627649778817	1.03572670998693
88	195	188.332380307593	189.625	0.993183284417102	1.03540346955482
89	213	210.450752299940	189.208333333333	1.11226999674049	1.01211327435136
90	194	193.522066120487	188.625	1.02596191448900	1.00246966089756
91	171	176.342839183827	187.791666666667	0.939034422101588	0.969701978211557
92	171	168.930755270988	186.833333333333	0.904178886374599	1.01224907048863
93	186	182.7196007105	185.958333333333	0.982583557484203	1.01795318770807
94	182	182.45908043527	184.958333333333	0.986487481515315	0.997483926619739
95	193	193.738194009923	183.583333333333	1.05531471998142	0.99618973422512
96	185	183.498323024024	181.875	1.00892548741731	1.00818360054320
97	172	178.388924855073	180.333333333333	0.989217697902438	0.964185417562983
98	185	185.691673009965	179.375	1.03521490179771	0.996275153329425
99	179	173.366620585371	179.166666666667	0.967627649778817	1.03249402564120
100	182	178.193634279168	179.416666666667	0.993183284417102	1.02136084005598
101	193	200.069565663696	179.875	1.11226999674049	0.964664462382153
102	173	184.844138260435	180.166666666667	1.02596191448900	0.935923646960625
103	155	169.221828149557	180.208333333333	0.939034422101588	0.915957484296955
104	164	163.166614870350	180.458333333333	0.904178886374599	1.00510757136386
105	188	177.970446849326	181.125	0.982583557484203	1.05635516080468
106	186	179.581825280850	182.041666666667	0.986487481515315	1.03573955609991
107	200	192.682879289942	182.583333333333	1.05531471998142	1.03797493963669
108	185	184.507248511441	182.875	1.00892548741731	1.00267063485329
109	173	181.439012756939	183.416666666667	0.989217697902438	0.953488433227732
110	190	190.263872159571	183.791666666667	1.03521490179771	0.998613125252965
111	190	177.882216284339	183.833333333333	0.967627649778817	1.06812251369913
112	193	182.414663237941	183.666666666667	0.993183284417102	1.05802897954673
113	195	204.10154440188	183.5	1.11226999674049	0.955406783282546
114	178	187.922024003902	183.166666666667	1.02596191448900	0.947201377504876
115	163	NA	NA	0.939034422101588	NA
116	165	NA	NA	0.904178886374599	NA
117	188	NA	NA	0.982583557484203	NA
118	182	NA	NA	0.986487481515315	NA
119	200	NA	NA	1.05531471998142	NA
120	177	NA	NA	1.00892548741731	NA

Charts produced by software:

http://www.freestatistics.org/blog/date/2010/Aug/19/t1282222816bd7q93m45fxc6ef/1gjk41282222758.png (open in new window)

http://www.freestatistics.org/blog/date/2010/Aug/19/t1282222816bd7q93m45fxc6ef/1gjk41282222758.ps (open in new window)

http://www.freestatistics.org/blog/date/2010/Aug/19/t1282222816bd7q93m45fxc6ef/2gjk41282222758.png (open in new window)

http://www.freestatistics.org/blog/date/2010/Aug/19/t1282222816bd7q93m45fxc6ef/2gjk41282222758.ps (open in new window)

http://www.freestatistics.org/blog/date/2010/Aug/19/t1282222816bd7q93m45fxc6ef/3qs2o1282222758.png (open in new window)

http://www.freestatistics.org/blog/date/2010/Aug/19/t1282222816bd7q93m45fxc6ef/3qs2o1282222758.ps (open in new window)

http://www.freestatistics.org/blog/date/2010/Aug/19/t1282222816bd7q93m45fxc6ef/412jr1282222758.png (open in new window)

http://www.freestatistics.org/blog/date/2010/Aug/19/t1282222816bd7q93m45fxc6ef/412jr1282222758.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