Home » date » 2009 » Jun » 06 »

Classical Decomposition-Omzetcijfers droge voeding carrefour-Angelique Vigar

*Unverified author*

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

Title produced by software: Classical Decomposition

Date of computation: Sat, 06 Jun 2009 05:05:36 -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/Jun/06/t1244286389ycxbfon963d9d4f.htm/, Retrieved Sat, 06 Jun 2009 13:06:34 +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/Jun/06/t1244286389ycxbfon963d9d4f.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 «

831581 808744 899237 929532 883165 908232 955613 937590 849396 978630 868513 1156102 1505713 1415151 1545021 1681193 1457973 1638575 1688972 1563924 1596359 1722061 1549332 2264959 1420268 1415099 1597279 1605693 1575400 1654752 1553966 1570959 1642414 1664774 1551560 2304365 1644081 1425600 1569344 1456489 1610786 1601519 1496600 1486452 1637939 1605759 1504221 1993384 1507620 1477037 1679184 1504731 1570141 1734191 1657498 1652164 1610941 1813765 1711573 2165466 1492778 1385488 1470589 1514657 1641395 1606185 1581162 1517847 1630080 1604623 1548973 2125558

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	831581	NA	NA	-43868.8722222222	NA
2	808744	NA	NA	-144334.255555556	NA
3	899237	NA	NA	-7067.03055555553	NA
4	929532	NA	NA	-38520.1388888888	NA
5	883165	NA	NA	-30820.8472222222	NA
6	908232	NA	NA	31335.2527777778	NA
7	955613	921731.961111111	945283.416666667	-23551.4555555556	33881.0388888889
8	937590	936459.577777778	998639.208333333	-62179.6305555555	1130.42222222220
9	849396	1004258.73611111	1050813.83333333	-46555.0972222222	-154862.736111111
10	978630	1142436.30277778	1109040.70833333	33395.5944444444	-163806.302777778
11	868513	1066553.21944444	1164310.25	-97757.0305555556	-198040.219444445
12	1156102	1648615.05277778	1218691.54166667	429923.511111111	-492513.052777778
13	1505713	1235810.25277778	1279679.125	-43868.8722222222	269902.747222222
14	1415151	1191998.74444444	1336333	-144334.255555556	223152.255555556
15	1545021	1386486.67777778	1393553.70833333	-7067.03055555553	158534.322222223
16	1681193	1417133.31944444	1455653.45833333	-38520.1388888888	264059.680555556
17	1457973	1484176.36111111	1514997.20833333	-30820.8472222222	-26203.361111111
18	1638575	1620902.29444444	1589567.04166667	31335.2527777778	17672.7055555556
19	1688972	1608657.75277778	1632209.20833333	-23551.4555555556	80314.2472222222
20	1563924	1566467.20277778	1628646.83333333	-62179.6305555555	-2543.2027777778
21	1596359	1584266.98611111	1630822.08333333	-46555.0972222222	12092.013888889
22	1722061	1663249.26111111	1629853.66666667	33395.5944444444	58811.7388888889
23	1549332	1533843.59444444	1631600.625	-97757.0305555556	15488.4055555556
24	2264959	2067090.96944444	1637167.45833333	429923.511111111	197868.030555556
25	1420268	1588347.37777778	1632216.25	-43868.8722222222	-168079.377777778
26	1415099	1482549.86944444	1626884.125	-144334.255555556	-67450.8694444441
27	1597279	1622029.17777778	1629096.20833333	-7067.03055555553	-24750.1777777774
28	1605693	1590108.06944444	1628628.20833333	-38520.1388888888	15584.9305555555
29	1575400	1595513.23611111	1626334.08333333	-30820.8472222222	-20113.236111111
30	1654752	1659404.08611111	1628068.83333333	31335.2527777778	-4652.08611111133
31	1553966	1615484.83611111	1639036.29166667	-23551.4555555556	-61518.8361111109
32	1570959	1586619.74444444	1648799.375	-62179.6305555555	-15660.7444444443
33	1642414	1601517.86111111	1648072.95833333	-46555.0972222222	40896.138888889
34	1664774	1674087.76111111	1640692.16666667	33395.5944444444	-9313.76111111091
35	1551560	1538192.71944444	1635949.75	-97757.0305555556	13367.2805555556
36	2304365	2065129.63611111	1635206.125	429923.511111111	239235.363888889
37	1644081	1586728.96111111	1630597.83333333	-43868.8722222222	57352.0388888889
38	1425600	1480352.20277778	1624686.45833333	-144334.255555556	-54752.2027777778
39	1569344	1613911.84444444	1620978.875	-7067.03055555553	-44567.8444444446
40	1456489	1579813.31944444	1618333.45833333	-38520.1388888888	-123324.319444444
41	1610786	1583081.19444444	1613902.04166667	-30820.8472222222	27704.8055555557
42	1601519	1630307.29444444	1598972.04166667	31335.2527777778	-28788.2944444444
43	1496600	1556777.16944444	1580328.625	-23551.4555555556	-60177.1694444444
44	1486452	1514606.32777778	1576785.95833333	-62179.6305555555	-28154.3277777778
45	1637939	1536950.73611111	1583505.83333333	-46555.0972222222	100988.263888889
46	1605759	1623488.17777778	1590092.58333333	33395.5944444444	-17729.1777777779
47	1504221	1492652.09444444	1590409.125	-97757.0305555556	11568.9055555556
48	1993384	2024167.09444444	1594243.58333333	429923.511111111	-30783.0944444444
49	1507620	1562606.79444444	1606475.66666667	-43868.8722222222	-54986.7944444444
50	1477037	1475750.16111111	1620084.41666667	-144334.255555556	1286.83888888895
51	1679184	1618797.13611111	1625864.16666667	-7067.03055555553	60386.8638888891
52	1504731	1594886.02777778	1633406.16666667	-38520.1388888888	-90155.0277777778
53	1570141	1619891.90277778	1650712.75	-30820.8472222222	-49750.9027777778
54	1734191	1697857.75277778	1666522.5	31335.2527777778	36333.2472222222
55	1657498	1649522.71111111	1673074.16666667	-23551.4555555556	7975.28888888913
56	1652164	1606461.57777778	1668641.20833333	-62179.6305555555	45702.4222222224
57	1610941	1609580.11111111	1656135.20833333	-46555.0972222222	1360.88888888923
58	1813765	1681252.92777778	1647857.33333333	33395.5944444444	132512.072222223
59	1711573	1553482.80277778	1651239.83333333	-97757.0305555556	158090.197222223
60	2165466	2078798.67777778	1648875.16666667	429923.511111111	86667.3222222226
61	1492778	1596492.04444444	1640360.91666667	-43868.8722222222	-103714.044444444
62	1385488	1487249.45277778	1631583.70833333	-144334.255555556	-101761.452777777
63	1470589	1619717.59444444	1626784.625	-7067.03055555553	-149128.594444444
64	1514657	1580347.69444444	1618867.83333333	-38520.1388888888	-65690.6944444445
65	1641395	1572557.73611111	1603378.58333333	-30820.8472222222	68837.263888889
66	1606185	1626276.00277778	1594940.75	31335.2527777778	-20091.0027777776
67	1581162	NA	NA	-23551.4555555556	NA
68	1517847	NA	NA	-62179.6305555555	NA
69	1630080	NA	NA	-46555.0972222222	NA
70	1604623	NA	NA	33395.5944444444	NA
71	1548973	NA	NA	-97757.0305555556	NA
72	2125558	NA	NA	429923.511111111	NA

Charts produced by software:

http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2009/Jun/06/t1244286389ycxbfon963d9d4f/137qn1244286333.png (open in new window)

http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2009/Jun/06/t1244286389ycxbfon963d9d4f/137qn1244286333.ps (open in new window)

http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2009/Jun/06/t1244286389ycxbfon963d9d4f/27ute1244286333.png (open in new window)

http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2009/Jun/06/t1244286389ycxbfon963d9d4f/27ute1244286333.ps (open in new window)

http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2009/Jun/06/t1244286389ycxbfon963d9d4f/3g2jl1244286333.png (open in new window)

http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2009/Jun/06/t1244286389ycxbfon963d9d4f/3g2jl1244286333.ps (open in new window)

http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2009/Jun/06/t1244286389ycxbfon963d9d4f/4rd831244286333.png (open in new window)

http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2009/Jun/06/t1244286389ycxbfon963d9d4f/4rd831244286333.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')

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