Home » date » 2010 » May » 23 »

Retail sales and food services - Isabelle Hoes

*Unverified author*
R Software Module: /rwasp_decompose.wasp (opens new window with default values)
Title produced by software: Classical Decomposition
Date of computation: Sat, 22 May 2010 23:54:07 +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/May/23/t127457262212jr1y7ligalvw2.htm/, Retrieved Sun, 23 May 2010 01:57:02 +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/May/23/t127457262212jr1y7ligalvw2.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 «
357704 281463 282445 319107 315278 328499 321151 328025 326280 313444 319639 324067 386918 293009 294822 338844 335407 345080 350608 351285 355147 332791 335615 343202 404868 317902 313552 361505 351436 373350 366310 361669 375078 345547 348117 356089 416856 328087 322747 373626 358275 391287 376371 371848 387261 353159 367855 376822 425283 342191 344062 373587 370144 399979 380431 385909 384798 352554 352479 338788 387964 313593 304056 334149 336155 354668 351418 354316 359483 330411 344726 347175
 
Output produced by software:


Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time3 seconds
R Server'Sir Ronald Aylmer Fisher' @ 193.190.124.24


Classical Decomposition by Moving Averages
tObservationsFitTrendSeasonalRandom
1357704NANA1.14598247101246NA
2281463NANA0.901957858125932NA
3282445NANA0.891855154779054NA
4319107NANA1.00535075315857NA
5315278NANA0.987498053952509NA
6328499NANA1.04916044887786NA
7321151326851.658421699319309.0833333331.023621548781600.98255888175931
8328025328904.470378775321007.4166666671.024600845033770.997326061340054
9326280334762.292088832322004.2083333331.039620860303450.97466174569452
10313444312052.247687432323342.2916666670.9650833056169651.00445999771795
11319639318150.420003593325003.3750.9789142035943271.00467885598388
12324067322077.251793572326532.9583333330.9863544967635021.00617786011073
13386918376399.327332862328451.2083333331.145982471012461.02794551398822
14293009298230.336384159330647.750.9019578581259320.982492269406715
15294822296826.972489145332819.7083333330.8918551547790540.993245315705876
16338844336620.210322799334828.6251.005350753158571.00660622746052
17335407332096.007001751336300.4166666670.9874980539525091.00996998737847
18345080354367.9741295337763.3751.049160448877860.973790029552428
19350608347323.577586556339308.5833333331.023621548781601.00945637620189
20351285349484.901794036341093.7083333331.024600845033771.00515071809032
21355147356497.775367804342911.3333333331.039620860303450.996210985141743
22332791332602.409902804344635.9583333330.9650833056169651.00056701362221
23335615338947.12595422346248.0416666670.9789142035943270.990169186580829
24343202343343.917803978348093.8333333330.9863544967635020.999586659915557
25404868401009.0621515063499261.145982471012461.00962306893463
26317902316598.858491203351012.9166666670.9019578581259321.00411606508946
27313552314179.203665578352276.0416666670.8918551547790540.998003675423898
28361505355530.2296454913536381.005350753158571.01680523864445
29351436350256.096213938354690.4166666670.9874980539525091.00336868879319
30373350373237.037372531355748.2916666671.049160448877861.00030265653233
31366310365212.558376655356784.751.023621548781601.00300493944738
32361669366508.559450869357708.6251.024600845033770.986795507700776
33375078372720.842305160358516.1251.039620860303451.00632419072747
34345547346855.081854591359404.2916666670.9650833056169650.996228736659713
35348117352599.308166098360194.2916666670.9789142035943270.987287813497393
36356089356297.505919453361226.6250.9863544967635020.999414798262718
37416856415296.264363967362393.2083333331.145982471012461.00375571795336
38328087327624.053114738363236.5416666670.9019578581259321.00141304303167
39322747324785.368129999364168.2916666670.8918551547790540.993723953324206
40373626366946.071226836364993.0833333331.005350753158571.01820411580053
41358275361555.295821776366132.6666666670.9874980539525090.990927263797035
42391287385901.103430786367818.9583333331.049160448877861.01395667574239
43376371377751.11198217369033.9583333331.023621548781600.996346504514763
44371848379074.392289469369972.751.024600845033770.980936743719818
45387261386165.652445963371448.5416666671.039620860303451.00283647068842
46353159359334.332808697372335.0416666670.9650833056169650.982814520503988
47367855364966.583909574372827.9583333330.9789142035943271.00791419329267
48376822368585.551338237373684.6666666670.9863544967635021.02234609748499
49425283428844.9763723993742161.145982471012460.991694023321599
50342191338208.077600916374971.0416666670.9019578581259321.01177654427220
51344062334850.845406835375454.2916666670.8918551547790541.02750823155896
52373587377334.737565755375326.4583333331.005350753158570.990067870268365
53370144369976.596934379374660.5833333330.9874980539525091.00045246933727
54399979390744.246637900372435.1666666671.049160448877861.02363375389800
55380431378018.789017176369295.4583333331.023621548781601.00638119335046
56385909375566.329762880366548.9166666671.024600845033771.02753886442283
57384798378100.143859121363690.4166666671.039620860303451.01771450302165
58352554347796.962949068360380.250.9650833056169651.01367762676993
59352479349786.398202069357320.7916666670.9789142035943271.00769784591903
60338788349185.889997788354016.6250.9863544967635020.970222479499804
61387964402147.929981344350919.7916666671.145982471012460.96472957107599
62313593314237.194584433348394.5416666670.9019578581259320.99794997347375
63304056308602.730667796346023.3750.8918551547790540.985266719260854
64334149345886.863331579344045.9583333331.005350753158570.96606444309992
65336155338514.620915186342800.2916666670.9874980539525090.993029485967825
66354668359680.223202318342826.7083333331.049160448877860.986064779548641
67351418NANA1.02362154878160NA
68354316NANA1.02460084503377NA
69359483NANA1.03962086030345NA
70330411NANA0.965083305616965NA
71344726NANA0.978914203594327NA
72347175NANA0.986354496763502NA
 
Charts produced by software:
http://www.freestatistics.org/blog/date/2010/May/23/t127457262212jr1y7ligalvw2/1m5l51274572443.png (open in new window)
http://www.freestatistics.org/blog/date/2010/May/23/t127457262212jr1y7ligalvw2/1m5l51274572443.ps (open in new window)


http://www.freestatistics.org/blog/date/2010/May/23/t127457262212jr1y7ligalvw2/2m5l51274572443.png (open in new window)
http://www.freestatistics.org/blog/date/2010/May/23/t127457262212jr1y7ligalvw2/2m5l51274572443.ps (open in new window)


http://www.freestatistics.org/blog/date/2010/May/23/t127457262212jr1y7ligalvw2/3fwk91274572443.png (open in new window)
http://www.freestatistics.org/blog/date/2010/May/23/t127457262212jr1y7ligalvw2/3fwk91274572443.ps (open in new window)


http://www.freestatistics.org/blog/date/2010/May/23/t127457262212jr1y7ligalvw2/4fwk91274572443.png (open in new window)
http://www.freestatistics.org/blog/date/2010/May/23/t127457262212jr1y7ligalvw2/4fwk91274572443.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

Creative Commons License

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