Home » date » 2010 » Jun » 02 »

Jeroen Cornelissen - aantal liter rose wijn australie - opgave 9

*Unverified author*

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

Title produced by software: Classical Decomposition

Date of computation: Wed, 02 Jun 2010 17:24:35 +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/Jun/02/t1275499513i1hgxl2v2239k9g.htm/, Retrieved Wed, 02 Jun 2010 19:25:14 +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/Jun/02/t1275499513i1hgxl2v2239k9g.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 «

112 118 129 99 116 168 118 129 205 147 150 267 126 129 124 97 102 127 222 214 118 141 154 226 89 77 82 97 127 121 117 117 106 112 134 169 75 108 115 85 101 108 109 124 105 95 135 164 88 85 112 87 91 87 87 142 95 108 139 159 61 82 124 93 108 75 87 103 90 108 123 129 57 65 67 71 76 67 110 118 99 85 107 141 58 65 70 86 93 74 87 73 101 100 96 157 63 115 70 66 67 83 79 77 102 116 100 135 71 60 89 74 73 91 86 74 87 87 109 137 43 69 73 77 69 76 78 70 83 65 110 132 54 55 66 65 60 65 96 55 71 63 74 106 34 47 56 53 53 55 67 52 46 51 58 91 33 40 46 45 41 55 57 54 46 52 48 77 30 35 42 48 44 45

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	'RServer@AstonUniversity' @ vre.aston.ac.uk

Classical Decomposition by Moving Averages
t	Observations	Fit	Trend	Seasonal	Random
1	112	NA	NA	0.676922153520202	NA
2	118	NA	NA	0.810835078416293	NA
3	129	NA	NA	0.90114617724239	NA
4	99	NA	NA	0.840365709528715	NA
5	116	NA	NA	0.886018527075763	NA
6	168	NA	NA	0.923026411596705	NA
7	118	159.87508855117	147.083333333333	1.08696944057452	0.738076213557392
8	129	156.39559348251	148.125	1.05583523026167	0.82483142349165
9	205	147.690071580139	148.375	0.995383801719554	1.38804184876276
10	147	151.576118831304	148.083333333333	1.0235866212581	0.969809763790052
11	150	176.566117390188	147.416666666667	1.19773510948686	0.849540116853334
12	267	232.515754168701	145.125	1.60217573931922	1.14830928749146
13	126	100.01524818261	147.75	0.676922153520202	1.25980790219054
14	129	126.186209078536	155.625	0.810835078416293	1.02229871982059
15	124	140.165778318577	155.541666666667	0.90114617724239	0.884666724556444
16	97	127.455465945188	151.666666666667	0.840365709528715	0.761050138420226
17	102	134.305641729234	151.583333333333	0.886018527075763	0.759461767106077
18	127	138.492421173322	150.041666666667	0.923026411596705	0.91701768893953
19	222	159.558055797669	146.791666666667	1.08696944057452	1.3913431001034
20	214	151.072424196607	143.083333333333	1.05583523026167	1.41653912775966
21	118	138.524245739305	139.166666666667	0.995383801719554	0.851836437514844
22	141	140.657861537884	137.416666666667	1.0235866212581	1.00243241620749
23	154	165.836407034369	138.458333333333	1.19773510948686	0.92862600410828
24	226	223.102971700201	139.25	1.60217573931922	1.01298516231192
25	89	91.1306449176572	134.625	0.676922153520202	0.976619885444876
26	77	102.334143855123	126.208333333333	0.810835078416293	0.752437037134066
27	82	109.639451564491	121.666666666667	0.90114617724239	0.74790596660151
28	97	100.808869905549	119.958333333333	0.840365709528715	0.962216916932831
29	127	104.476351317684	117.916666666667	0.886018527075763	1.2155860957838
30	121	105.878821296905	114.708333333333	0.923026411596705	1.14281589573699
31	117	121.468834984203	111.75	1.08696944057452	0.963210028442405
32	117	118.737470269844	112.458333333333	1.05583523026167	0.985367127445994
33	106	114.593560172964	115.125	0.995383801719554	0.925008349858466
34	112	118.73604806594	116	1.0235866212581	0.943268719351354
35	134	137.040858777122	114.416666666667	1.19773510948686	0.977810568291407
36	169	180.712071930713	112.791666666667	1.60217573931922	0.935189321855577
37	75	75.7588710148026	111.916666666667	0.676922153520202	0.989983073867953
38	108	90.7121743978228	111.875	0.810835078416293	1.19057889105778
39	115	101.041015123303	112.125	0.90114617724239	1.13815166899959
40	85	93.5957308987606	111.375	0.840365709528715	0.908161079397325
41	101	98.0896344350125	110.708333333333	0.886018527075763	1.02967047009351
42	108	102.032877915252	110.541666666667	0.923026411596705	1.05848234614831
43	109	120.5177367237	110.875	1.08696944057452	0.90443118965878
44	124	116.62579980932	110.458333333333	1.05583523026167	1.06322957872732
45	105	108.870103313076	109.375	0.995383801719554	0.96445210213545
46	95	111.912137257553	109.333333333333	1.0235866212581	0.848880222717654
47	135	130.553126934068	109	1.19773510948686	1.03406178902308
48	164	172.567678589174	107.708333333333	1.60217573931922	0.95035177700008
49	88	71.6973380936814	105.916666666667	0.676922153520202	1.22738169002895
50	85	85.745809542523	105.75	0.810835078416293	0.991302087571368
51	112	95.5965903024636	106.083333333333	0.90114617724239	1.17158990342267
52	87	89.253841399529	106.208333333333	0.840365709528715	0.974747961945526
53	91	94.7301475198503	106.916666666667	0.886018527075763	0.960623438076367
54	87	98.6484477393978	106.875	0.923026411596705	0.881919604349277
55	87	114.72056637397	105.541666666667	1.08696944057452	0.758364456782708
56	142	110.114815889373	104.291666666667	1.05583523026167	1.28956306972043
57	95	104.18350457998	104.666666666667	0.995383801719554	0.911852604526948
58	108	107.903089657625	105.416666666667	1.0235866212581	1.00089812388767
59	139	127.409072271665	106.375	1.19773510948686	1.09097411606311
60	159	170.76523088244	106.583333333333	1.60217573931922	0.931102890081065
61	61	71.8101584526014	106.083333333333	0.676922153520202	0.849461988588471
62	82	84.6984808995687	104.458333333333	0.810835078416293	0.96814014996599
63	124	92.4801264395004	102.625	0.90114617724239	1.34082861663386
64	93	86.0674547508992	102.416666666667	0.840365709528715	1.08054781298187
65	108	90.1523851299588	101.75	0.886018527075763	1.19797163263416
66	75	92.1488034244043	99.8333333333333	0.923026411596705	0.813900964666648
67	87	106.975909109876	98.4166666666667	1.08696944057452	0.813267218048518
68	103	102.987928085107	97.5416666666667	1.05583523026167	1.00011721679538
69	90	94.0222949374262	94.4583333333333	0.995383801719554	0.957219774946962
70	108	93.3169803046971	91.1666666666667	1.0235866212581	1.15734563685366
71	123	106.498613485207	88.9166666666667	1.19773510948686	1.15494461359429
72	129	139.789833255602	87.25	1.60217573931922	0.922813891365957
73	57	59.4845342405877	87.875	0.676922153520202	0.958232265372728
74	65	72.5359547233242	89.4583333333333	0.810835078416293	0.896107320127393
75	67	81.5161812830513	90.4583333333333	0.90114617724239	0.821922702283535
76	71	75.5278681438933	89.875	0.840365709528715	0.940050364783673
77	76	78.191135014436	88.25	0.886018527075763	0.97197719391039
78	67	81.303243088143	88.0833333333333	0.923026411596705	0.824075368400292
79	110	96.3326666709172	88.625	1.08696944057452	1.14187641431927
80	118	93.6173904165348	88.6666666666667	1.05583523026167	1.26044957539383
81	99	88.3817867276821	88.7916666666667	0.995383801719554	1.1201402875576
82	85	91.6536520451527	89.5416666666667	1.0235866212581	0.92740439800615
83	107	108.844178074619	90.875	1.19773510948686	0.98305671366865
84	141	147.199896049953	91.875	1.60217573931922	0.957881111221376
85	58	61.7409414189884	91.2083333333333	0.676922153520202	0.939409064179934
86	65	71.6575500550399	88.375	0.810835078416293	0.907092134046918
87	70	78.024239846237	86.5833333333333	0.90114617724239	0.897157090385623
88	86	73.3569233942774	87.2916666666667	0.840365709528715	1.17235014802582
89	93	77.4897036805011	87.4583333333333	0.886018527075763	1.20015944806615
90	74	80.9186487499778	87.6666666666667	0.923026411596705	0.914498711275382
91	87	96.2420858842027	88.5416666666667	1.08696944057452	0.903970432484987
92	73	95.905033415435	90.8333333333333	1.05583523026167	0.761169642512749
93	101	92.4877449097753	92.9166666666667	0.995383801719554	1.09203657304574
94	100	94.2552680408504	92.0833333333333	1.0235866212581	1.06094865654257
95	96	107.995782372065	90.1666666666667	1.19773510948686	0.888923603231673
96	157	143.327971346598	89.4583333333333	1.60217573931922	1.09538981487668
97	63	60.584532740058	89.5	0.676922153520202	1.03986937178018
98	115	72.4346003385222	89.3333333333333	0.810835078416293	1.5876390490532
99	70	80.690130620579	89.5416666666667	0.90114617724239	0.867516255849849
100	66	75.8430052849665	90.25	0.840365709528715	0.870218680707823
101	67	80.7015208411507	91.0833333333333	0.886018527075763	0.830219793898058
102	83	83.3800525142357	90.3333333333333	0.923026411596705	0.995441925223413
103	79	97.5555072915635	89.75	1.08696944057452	0.809795389243307
104	77	92.6935345900558	87.7916666666667	1.05583523026167	0.830694398919389
105	102	85.8933272233832	86.2916666666667	0.995383801719554	1.18751948838503
106	116	89.4785304749792	87.4166666666667	1.0235866212581	1.29640036983438
107	100	105.400689634844	88	1.19773510948686	0.948760395652492
108	135	141.926067574694	88.5833333333333	1.60217573931922	0.951199468194602
109	71	60.387097111948	89.2083333333333	0.676922153520202	1.17574785667172
110	60	72.4683851334562	89.375	0.810835078416293	0.827947247472195
111	89	79.8640799581069	88.625	0.90114617724239	1.11439335489353
112	74	72.936740539513	86.7916666666666	0.840365709528715	1.01457783076982
113	73	76.1606758898874	85.9583333333333	0.886018527075763	0.958499897053735
114	91	79.764865735482	86.4166666666667	0.923026411596705	1.14085317089076
115	86	92.7547255956927	85.3333333333333	1.08696944057452	0.927176480202898
116	74	89.2620700917054	84.5416666666667	1.05583523026167	0.829019536786167
117	87	83.8610852948725	84.25	0.995383801719554	1.03742993182226
118	87	85.6827300878137	83.7083333333333	1.0235866212581	1.01537380882748
119	109	100.210504160401	83.6666666666667	1.19773510948686	1.08771032451379
120	137	132.78031439608	82.875	1.60217573931922	1.03177945181944
121	43	55.4512064091965	81.9166666666667	0.676922153520202	0.775456528081389
122	69	66.0154893010599	81.4166666666667	0.810835078416293	1.04520924907986
123	73	73.0679358714039	81.0833333333333	0.90114617724239	0.999070236888539
124	77	67.2292567622972	80	0.840365709528715	1.14533469070243
125	69	70.1062159548697	79.125	0.886018527075763	0.984220857739892
126	76	72.8806270823231	78.9583333333333	0.923026411596705	1.04280112620537
127	78	86.0970377721738	79.2083333333333	1.08696944057452	0.905954513863766
128	70	83.4989694598604	79.0833333333333	1.05583523026167	0.838333699838659
129	83	77.8473081594835	78.2083333333333	0.995383801719554	1.06618972399097
130	65	79.2426642623982	77.4166666666667	1.0235866212581	0.82026520189634
131	110	91.676641505307	76.5416666666667	1.19773510948686	1.19986943450183
132	132	121.298054930959	75.7083333333333	1.60217573931922	1.08822849694608
133	54	51.4460836675353	76	0.676922153520202	1.04964258016157
134	55	61.7248203444403	76.125	0.810835078416293	0.891051601172525
135	66	67.5859632931793	75	0.90114617724239	0.976534132001646
136	65	62.5372148840952	74.4166666666667	0.840365709528715	1.03938111283768
137	60	64.531682722018	72.8333333333333	0.886018527075763	0.929775847601262
138	65	64.8426054146685	70.25	0.923026411596705	1.00242733283657
139	96	74.2762451059258	68.3333333333333	1.08696944057452	1.2924724434184
140	55	70.9169329659089	67.1666666666667	1.05583523026167	0.775555254574243
141	71	66.1100741642071	66.4166666666667	0.995383801719554	1.07396642489989
142	63	67.0449236924058	65.5	1.0235866212581	0.939668457063753
143	74	77.5034427097124	64.7083333333333	1.19773510948686	0.954796295658317
144	106	102.53924731643	64	1.60217573931922	1.03375051772021
145	34	42.2230193258226	62.375	0.676922153520202	0.805247955804203
146	47	49.4947245783279	61.0416666666667	0.810835078416293	0.949596151921608
147	56	53.9561273623881	59.875	0.90114617724239	1.03788026935077
148	53	49.0213330558417	58.3333333333333	0.840365709528715	1.08116194921966
149	53	50.6507257978311	57.1666666666667	0.886018527075763	1.04638184675864
150	55	51.5741007479659	55.875	0.923026411596705	1.0664267374971
151	67	60.0097711983852	55.2083333333333	1.08696944057452	1.11648484341835
152	52	57.9389582606092	54.875	1.05583523026167	0.897496288526698
153	46	53.9166225931425	54.1666666666667	0.995383801719554	0.853169167273667
154	51	54.6765853522037	53.4166666666667	1.0235866212581	0.932757590319134
155	58	62.9809045071842	52.5833333333333	1.19773510948686	0.920914052502754
156	91	83.4466530895425	52.0833333333333	1.60217573931922	1.09051707445177
157	33	34.9743112652104	51.6666666666667	0.676922153520202	0.943549674209759
158	40	41.6228673587031	51.3333333333333	0.810835078416293	0.961010197958797
159	46	46.3339326132129	51.4166666666667	0.90114617724239	0.992792914514713
160	45	43.2438188028318	51.4583333333333	0.840365709528715	1.04061114965761
161	41	45.2607797581202	51.0833333333333	0.886018527075763	0.90586154766024
162	55	46.2282394474683	50.0833333333333	0.923026411596705	1.18974896421265
163	57	53.6691161283671	49.375	1.08696944057452	1.0620633263955
164	54	51.7799194174161	49.0416666666667	1.05583523026167	1.04287531938177
165	46	48.442011683685	48.6666666666667	0.995383801719554	0.949588970424458
166	52	49.7718994586753	48.625	1.0235866212581	1.04476623487465
167	48	58.5393034761704	48.875	1.19773510948686	0.819961925572609
168	77	77.8390380019252	48.5833333333333	1.60217573931922	0.989220858537531
169	30	NA	NA	NA	NA
170	35	NA	NA	NA	NA
171	42	NA	NA	NA	NA
172	48	NA	NA	NA	NA
173	44	NA	NA	NA	NA
174	45	NA	NA	NA	NA

Charts produced by software:

http://www.freestatistics.org/blog/date/2010/Jun/02/t1275499513i1hgxl2v2239k9g/1fhb41275499472.png (open in new window)

http://www.freestatistics.org/blog/date/2010/Jun/02/t1275499513i1hgxl2v2239k9g/1fhb41275499472.ps (open in new window)

http://www.freestatistics.org/blog/date/2010/Jun/02/t1275499513i1hgxl2v2239k9g/2fhb41275499472.png (open in new window)

http://www.freestatistics.org/blog/date/2010/Jun/02/t1275499513i1hgxl2v2239k9g/2fhb41275499472.ps (open in new window)

http://www.freestatistics.org/blog/date/2010/Jun/02/t1275499513i1hgxl2v2239k9g/3p8ap1275499472.png (open in new window)

http://www.freestatistics.org/blog/date/2010/Jun/02/t1275499513i1hgxl2v2239k9g/3p8ap1275499472.ps (open in new window)

http://www.freestatistics.org/blog/date/2010/Jun/02/t1275499513i1hgxl2v2239k9g/4p8ap1275499472.png (open in new window)

http://www.freestatistics.org/blog/date/2010/Jun/02/t1275499513i1hgxl2v2239k9g/4p8ap1275499472.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