Home » date » 2010 » Dec » 14 »

iko 9.2 multi

*Unverified author*
R Software Module: /rwasp_decompose.wasp (opens new window with default values)
Title produced by software: Classical Decomposition
Date of computation: Tue, 14 Dec 2010 19:39:13 +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/Dec/14/t12923554499x70fzgps4bu8yb.htm/, Retrieved Tue, 14 Dec 2010 20:37:33 +0100
 
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/Dec/14/t12923554499x70fzgps4bu8yb.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:
KDGP2W92
 
Dataseries X:
» Textbox « » Textfile « » CSV «
101.02 101.15 101.51 101.75 101.8 101.8 101.8 101.82 101.99 102.25 102.34 102.35 102.35 102.39 102.49 102.67 102.68 102.7 102.71 102.72 102.83 102.92 103.04 103.08 103.09 103.11 103.18 103.18 103.22 103.25 103.25 103.25 103.47 103.57 103.66 103.7 103.7 103.75 103.85 104.02 104.13 104.17 104.18 104.2 104.5 104.78 104.88 104.89 104.9 104.95 105.24 105.35 105.44 105.46 105.47 105.48 105.75 106.1 106.19 106.23 106.24 106.25 106.35 106.48 106.52 106.55 106.55 106.56 106.89 107.09 107.24 107.28 107.3 107.31 107.47 107.35 107.31 107.32 107.32 107.34 107.53 107.72 107.75 107.79 107.81 107.9 107.8 107.86 107.8 107.74 107.75 107.83 107.8 107.81 107.86 107.83
 
Output produced by software:


Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time9 seconds
R Server'Gwilym Jenkins' @ 72.249.127.135


Classical Decomposition by Moving Averages
tObservationsFitTrendSeasonalRandom
1101.02NANA1.00024054631027NA
2101.15NANA0.99992862511327NA
3101.51NANA1.00024116109470NA
4101.75NANA1.00032381797376NA
5101.8NANA0.999958357905034NA
6101.8NANA0.999459961038287NA
7101.8101.742384830287101.853750.9989066168922311.00056628483605
8101.82101.783333684994101.9608333333330.9982591389013151.00036023888861
9101.99102.020781426591102.0533333333330.9996810304408580.99969828277964
10102.25102.232256147585102.13251.000976732652041.00017356412823
11102.34102.330374898780102.20751.001202210197681.00009405908294
12102.35102.365721891765102.2816666666671.000821801480540.999846414488415
13102.35102.381704952060102.3570833333331.000240546310270.999690326000387
14102.39102.425188891915102.43250.999928625113270.999656442987357
15102.49102.529720218012102.5051.000241161094700.999612598006436
16102.67102.601130001615102.5679166666671.000323817973761.00067124015480
17102.68102.620726480004102.6250.9999583579050341.00057759793785
18102.7102.629129657566102.6845833333330.9994599610382871.00069054802151
19102.71102.633492774773102.7458333333330.9989066168922311.00074544111438
20102.72102.627694539981102.8066666666670.9982591389013151.00089942057485
21102.83102.832605730062102.8654166666670.9996810304408580.999974660468408
22102.92103.015937514524102.9154166666671.000976732652040.999068711921297
23103.04103.082945226778102.9591666666671.001202210197680.999583391542764
24103.08103.089232652419103.0045833333331.000821801480540.999910440186801
25103.09103.074788297274103.051.000240546310271.00014757927693
26103.11103.087224969126103.0945833333330.999928625113271.00022092971153
27103.18103.168207492511103.1433333333331.000241161094701.00011430369661
28103.18103.230500403757103.1970833333331.000323817973760.999510799583851
29103.22103.245700453695103.250.9999583579050340.999751074828474
30103.25103.245879741857103.3016666666670.9994599610382871.0000399072404
31103.25103.239912333445103.3529166666670.9989066168922311.00009771091749
32103.25103.224986258090103.4050.9982591389013151.00024232255015
33103.47103.426582875649103.4595833333330.9996810304408581.00041978689757
34103.57103.623613805971103.52251.000976732652040.999482610150312
35103.66103.719960133017103.5954166666671.001202210197680.999421903624532
36103.7103.756864195823103.6716666666671.000821801480540.999451947625209
37103.7103.773706379008103.748751.000240546310270.999289739360962
38103.75103.819672687021103.8270833333330.999928625113270.999328906697375
39103.85103.934642282200103.9095833333331.000241161094700.999185620113361
40104.02104.036594680407104.0029166666671.000323817973760.99984049189174
41104.13104.099831551072104.1041666666670.9999583579050341.00028980305231
42104.17104.148308798344104.2045833333330.9994599610382871.00020827224087
43104.18104.190122252763104.3041666666670.9989066168922310.999902848249483
44104.2104.222413514376104.4041666666670.9982591389013150.99978494535273
45104.5104.478747160188104.5120833333330.9996810304408581.00020341782793
46104.78104.727607727359104.6254166666671.000976732652041.00050027183642
47104.88104.861330652642104.7354166666671.001202210197681.00017803843649
48104.89104.929910748975104.843751.000821801480540.999619643734655
49104.9104.976495635946104.951251.000240546310270.99927130701513
50104.95105.050834806692105.0583333333330.999928625113270.999040133218577
51105.24105.189111405073105.163751.000241161094701.00048378196419
52105.35105.304921921280105.2708333333331.000323817973761.00042807190678
53105.44105.376028405348105.3804166666670.9999583579050341.00060707919647
54105.46105.433864173230105.4908333333330.9994599610382871.00024788835139
55105.47105.487036010362105.60250.9989066168922310.999838501383619
56105.48105.528469221105105.71250.9982591389013150.999540700045562
57105.75105.779165567286105.8129166666670.9996810304408580.999724278716611
58106.1106.009692092430105.906251.000976732652041.00085188350034
59106.19106.125765610604105.9983333333331.001202210197681.00060526667606
60106.23106.175933891819106.088751.000821801480541.00050921245709
61106.24106.204707673436106.1791666666671.000240546310271.00033230472864
62106.25106.261581716933106.2691666666670.999928625113270.999891007486
63106.35106.387316962634106.3616666666671.000241161094700.99964923485525
64106.48106.484887224898106.4504166666671.000323817973760.99995410405152
65106.52106.530980308729106.5354166666670.9999583579050340.999896928492568
66106.55106.565336137455106.6229166666670.9994599610382870.99985608699779
67106.55106.594157510751106.7108333333330.9989066168922310.99958574173499
68106.56106.613244152045106.7991666666670.9982591389013150.999500585950009
69106.89106.855905343823106.890.9996810304408581.00031907133318
70107.09107.077400607259106.9729166666671.000976732652041.00011766621779
71107.24107.170770417498107.0420833333331.001202210197681.00064597447823
72107.28107.195104092993107.1070833333331.000821801480541.00079197560117
73107.3107.197029648755107.171251.000240546310271.00096057093730
74107.31107.228179387876107.2358333333330.999928625113271.00076305139741
75107.47107.320875379656107.2951.000241161094701.00138952109566
76107.35107.382677851530107.3479166666671.000323817973760.999695687869
77107.31107.390944496527107.3954166666670.9999583579050340.999246263296162
78107.32107.379896005701107.4379166666670.9994599610382870.999442204659072
79107.32107.362899394667107.4804166666670.9989066168922310.999600426265412
80107.34107.339061734287107.526250.9982591389013151.00000874113950
81107.53107.530273505608107.5645833333330.9996810304408580.999997456478075
82107.72107.704679359721107.5995833333331.000976732652041.00014224674703
83107.75107.770657408441107.641251.001202210197680.99980832066039
84107.79107.767657565257107.6791666666671.000821801480541.00020732040807
85107.81107.740493678917107.7145833333331.000240546310271.00064512718208
86107.9107.745225814445107.7529166666670.999928625113271.00143648300317
87107.8107.810576781442107.7845833333331.000241161094700.999901894769907
88107.86107.834490775981107.7995833333331.000323817973761.00023655904373
89107.8107.803427319163107.8079166666670.9999583579050340.999968207697584
90107.74107.755942816042107.8141666666670.9994599610382870.9998520469904
91107.75NANA0.998906616892231NA
92107.83NANA0.998259138901315NA
93107.8NANA0.999681030440858NA
94107.81NANA1.00097673265204NA
95107.86NANA1.00120221019768NA
96107.83NANA1.00082180148054NA
 
Charts produced by software:
http://www.freestatistics.org/blog/date/2010/Dec/14/t12923554499x70fzgps4bu8yb/1f84l1292355544.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Dec/14/t12923554499x70fzgps4bu8yb/1f84l1292355544.ps (open in new window)


http://www.freestatistics.org/blog/date/2010/Dec/14/t12923554499x70fzgps4bu8yb/28h3o1292355544.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Dec/14/t12923554499x70fzgps4bu8yb/28h3o1292355544.ps (open in new window)


http://www.freestatistics.org/blog/date/2010/Dec/14/t12923554499x70fzgps4bu8yb/38h3o1292355544.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Dec/14/t12923554499x70fzgps4bu8yb/38h3o1292355544.ps (open in new window)


http://www.freestatistics.org/blog/date/2010/Dec/14/t12923554499x70fzgps4bu8yb/4ir3r1292355544.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Dec/14/t12923554499x70fzgps4bu8yb/4ir3r1292355544.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