FreeStatistics.org

Free Statistics

of Irreproducible Research!

Description of Statistical Computation

Author's title

Author*The author of this computation has been verified*
R Software Modulerwasp_spectrum.wasp
Title produced by softwareSpectral Analysis
Date of computationWed, 30 Nov 2011 11:24:43 -0500
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2011/Nov/30/t1322670417bytotuoqd6h9vw3.htm/, Retrieved Thu, 25 Apr 2024 14:23:06 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=149082, Retrieved Thu, 25 Apr 2024 14:23:06 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact88

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Univariate Explorative Data Analysis] [Run Sequence gebo...] [2008-12-12 13:32:37] [76963dc1903f0f612b6153510a3818cf]
- R  D  [Univariate Explorative Data Analysis] [Run Sequence gebo...] [2008-12-17 12:14:40] [76963dc1903f0f612b6153510a3818cf]
-         [Univariate Explorative Data Analysis] [Run Sequence Plot...] [2008-12-22 18:19:51] [1ce0d16c8f4225c977b42c8fa93bc163]
- RMP       [Univariate Data Series] [Identifying Integ...] [2009-11-22 12:08:06] [b98453cac15ba1066b407e146608df68]
- RMPD          [Spectral Analysis] [] [2011-11-30 16:24:43] [bd7a66e2f212a6bc9afe853e3942ee45] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
250782608695645
36392546583851
821118012422378
359628364389234
81128364389234
258628364389234
464961697722568
720628364389234
204295031055901
230128364389234
231795031055901
-210704968944099
155664596273294
185807453416149
-749068322981364
-284896480331261
62010351966874
22510351966874
-283156314699793
-126489648033126
-53582298136646
701035196687387
-19032298136646
-27682298136646
-108453416149067
-341310559006211
-126024844720497
-806076604554865
-223107660455486
-551607660455487
107725672877847
-418607660455486
-21894099378882
978923395445136
-51644099378882
-719409937888199
-416571428571427
-374428571428571
798571428571429
-927256728778469
116774327122153
-196725672877847
-288392339544514
-604725672877847
15894099378882
107774327122153
224409937888197
394099378881965
-321689440993788
494534161490682
341739130434783
-210843685300207
146563146997928
189156314699793
79489648033126
-408436853002073
131822981366459
-342343685300207
21832298136646
818229813664593
219254658385198
-111664596273292
836211180124221
530383022774324
-514616977225677
278038302277433
-806283643892342
470038302277433
259704968944099
-100461697722567
234204968944099
473704968944099
438074534161492
228217391304347
-312496894409938

Tables (Output of Computation)





Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time2 seconds
R Server'AstonUniversity' @ aston.wessa.net

\begin{tabular}{lllllllll}
\hline
Summary of computational transaction \tabularnewline
Raw Input & view raw input (R code)  \tabularnewline
Raw Output & view raw output of R engine  \tabularnewline
Computing time & 2 seconds \tabularnewline
R Server & 'AstonUniversity' @ aston.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=149082&T=0

[TABLE]
[ROW][C]Summary of computational transaction[/C][/ROW]
[ROW][C]Raw Input[/C][C]view raw input (R code) [/C][/ROW]
[ROW][C]Raw Output[/C][C]view raw output of R engine [/C][/ROW]
[ROW][C]Computing time[/C][C]2 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'AstonUniversity' @ aston.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=149082&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=149082&T=0

As an alternative you can also use a QR Code:  
QR Code


The GUIDs for individual cells are displayed in the table below:

Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time2 seconds
R Server'AstonUniversity' @ aston.wessa.net






Raw Periodogram
ParameterValue
Box-Cox transformation parameter (lambda)1
Degree of non-seasonal differencing (d)0
Degree of seasonal differencing (D)0
Seasonal Period (s)12
Frequency (Period)Spectrum
0.0133 (75)6.18833134308612e+29
0.0267 (37.5)7.1688403315072e+28
0.04 (25)5.8416733288691e+28
0.0533 (18.75)4.94785932235991e+28
0.0667 (15)2.93329724539044e+29
0.08 (12.5)5.44372757540431e+29
0.0933 (10.7143)1.0444873102388e+29
0.1067 (9.375)1.67193811097607e+29
0.12 (8.3333)1.87052833397648e+28
0.1333 (7.5)1.83696752763862e+29
0.1467 (6.8182)7.96049945772888e+28
0.16 (6.25)8.09571121074977e+28
0.1733 (5.7692)7.49539023783034e+28
0.1867 (5.3571)7.15936809669074e+28
0.2 (5)1.58782191571728e+29
0.2133 (4.6875)1.25630485496028e+29
0.2267 (4.4118)1.61507372203738e+29
0.24 (4.1667)6.22277701363813e+29
0.2533 (3.9474)1.22842591960615e+29
0.2667 (3.75)1.01924686885543e+29
0.28 (3.5714)1.31667817071528e+29
0.2933 (3.4091)4.6027193265211e+28
0.3067 (3.2609)1.02643219670022e+29
0.32 (3.125)2.8533774321593e+29
0.3333 (3)1.40087100641643e+29
0.3467 (2.8846)4.25911293112455e+29
0.36 (2.7778)8.34372752206372e+28
0.3733 (2.6786)1.19118585155778e+29
0.3867 (2.5862)2.28188691743276e+29
0.4 (2.5)1.26448247513838e+29
0.4133 (2.4194)1.99424166260914e+29
0.4267 (2.3438)2.66496244484732e+29
0.44 (2.2727)3.25058786385275e+29
0.4533 (2.2059)9.63748645895254e+28
0.4667 (2.1429)1.5614627948385e+28
0.48 (2.0833)3.14215240590517e+29
0.4933 (2.027)7.10284145341471e+28

\begin{tabular}{lllllllll}
\hline
Raw Periodogram \tabularnewline
Parameter & Value \tabularnewline
Box-Cox transformation parameter (lambda) & 1 \tabularnewline
Degree of non-seasonal differencing (d) & 0 \tabularnewline
Degree of seasonal differencing (D) & 0 \tabularnewline
Seasonal Period (s) & 12 \tabularnewline
Frequency (Period) & Spectrum \tabularnewline
0.0133 (75) & 6.18833134308612e+29 \tabularnewline
0.0267 (37.5) & 7.1688403315072e+28 \tabularnewline
0.04 (25) & 5.8416733288691e+28 \tabularnewline
0.0533 (18.75) & 4.94785932235991e+28 \tabularnewline
0.0667 (15) & 2.93329724539044e+29 \tabularnewline
0.08 (12.5) & 5.44372757540431e+29 \tabularnewline
0.0933 (10.7143) & 1.0444873102388e+29 \tabularnewline
0.1067 (9.375) & 1.67193811097607e+29 \tabularnewline
0.12 (8.3333) & 1.87052833397648e+28 \tabularnewline
0.1333 (7.5) & 1.83696752763862e+29 \tabularnewline
0.1467 (6.8182) & 7.96049945772888e+28 \tabularnewline
0.16 (6.25) & 8.09571121074977e+28 \tabularnewline
0.1733 (5.7692) & 7.49539023783034e+28 \tabularnewline
0.1867 (5.3571) & 7.15936809669074e+28 \tabularnewline
0.2 (5) & 1.58782191571728e+29 \tabularnewline
0.2133 (4.6875) & 1.25630485496028e+29 \tabularnewline
0.2267 (4.4118) & 1.61507372203738e+29 \tabularnewline
0.24 (4.1667) & 6.22277701363813e+29 \tabularnewline
0.2533 (3.9474) & 1.22842591960615e+29 \tabularnewline
0.2667 (3.75) & 1.01924686885543e+29 \tabularnewline
0.28 (3.5714) & 1.31667817071528e+29 \tabularnewline
0.2933 (3.4091) & 4.6027193265211e+28 \tabularnewline
0.3067 (3.2609) & 1.02643219670022e+29 \tabularnewline
0.32 (3.125) & 2.8533774321593e+29 \tabularnewline
0.3333 (3) & 1.40087100641643e+29 \tabularnewline
0.3467 (2.8846) & 4.25911293112455e+29 \tabularnewline
0.36 (2.7778) & 8.34372752206372e+28 \tabularnewline
0.3733 (2.6786) & 1.19118585155778e+29 \tabularnewline
0.3867 (2.5862) & 2.28188691743276e+29 \tabularnewline
0.4 (2.5) & 1.26448247513838e+29 \tabularnewline
0.4133 (2.4194) & 1.99424166260914e+29 \tabularnewline
0.4267 (2.3438) & 2.66496244484732e+29 \tabularnewline
0.44 (2.2727) & 3.25058786385275e+29 \tabularnewline
0.4533 (2.2059) & 9.63748645895254e+28 \tabularnewline
0.4667 (2.1429) & 1.5614627948385e+28 \tabularnewline
0.48 (2.0833) & 3.14215240590517e+29 \tabularnewline
0.4933 (2.027) & 7.10284145341471e+28 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=149082&T=1

[TABLE]
[ROW][C]Raw Periodogram[/C][/ROW]
[ROW][C]Parameter[/C][C]Value[/C][/ROW]
[ROW][C]Box-Cox transformation parameter (lambda)[/C][C]1[/C][/ROW]
[ROW][C]Degree of non-seasonal differencing (d)[/C][C]0[/C][/ROW]
[ROW][C]Degree of seasonal differencing (D)[/C][C]0[/C][/ROW]
[ROW][C]Seasonal Period (s)[/C][C]12[/C][/ROW]
[ROW][C]Frequency (Period)[/C][C]Spectrum[/C][/ROW]
[ROW][C]0.0133 (75)[/C][C]6.18833134308612e+29[/C][/ROW]
[ROW][C]0.0267 (37.5)[/C][C]7.1688403315072e+28[/C][/ROW]
[ROW][C]0.04 (25)[/C][C]5.8416733288691e+28[/C][/ROW]
[ROW][C]0.0533 (18.75)[/C][C]4.94785932235991e+28[/C][/ROW]
[ROW][C]0.0667 (15)[/C][C]2.93329724539044e+29[/C][/ROW]
[ROW][C]0.08 (12.5)[/C][C]5.44372757540431e+29[/C][/ROW]
[ROW][C]0.0933 (10.7143)[/C][C]1.0444873102388e+29[/C][/ROW]
[ROW][C]0.1067 (9.375)[/C][C]1.67193811097607e+29[/C][/ROW]
[ROW][C]0.12 (8.3333)[/C][C]1.87052833397648e+28[/C][/ROW]
[ROW][C]0.1333 (7.5)[/C][C]1.83696752763862e+29[/C][/ROW]
[ROW][C]0.1467 (6.8182)[/C][C]7.96049945772888e+28[/C][/ROW]
[ROW][C]0.16 (6.25)[/C][C]8.09571121074977e+28[/C][/ROW]
[ROW][C]0.1733 (5.7692)[/C][C]7.49539023783034e+28[/C][/ROW]
[ROW][C]0.1867 (5.3571)[/C][C]7.15936809669074e+28[/C][/ROW]
[ROW][C]0.2 (5)[/C][C]1.58782191571728e+29[/C][/ROW]
[ROW][C]0.2133 (4.6875)[/C][C]1.25630485496028e+29[/C][/ROW]
[ROW][C]0.2267 (4.4118)[/C][C]1.61507372203738e+29[/C][/ROW]
[ROW][C]0.24 (4.1667)[/C][C]6.22277701363813e+29[/C][/ROW]
[ROW][C]0.2533 (3.9474)[/C][C]1.22842591960615e+29[/C][/ROW]
[ROW][C]0.2667 (3.75)[/C][C]1.01924686885543e+29[/C][/ROW]
[ROW][C]0.28 (3.5714)[/C][C]1.31667817071528e+29[/C][/ROW]
[ROW][C]0.2933 (3.4091)[/C][C]4.6027193265211e+28[/C][/ROW]
[ROW][C]0.3067 (3.2609)[/C][C]1.02643219670022e+29[/C][/ROW]
[ROW][C]0.32 (3.125)[/C][C]2.8533774321593e+29[/C][/ROW]
[ROW][C]0.3333 (3)[/C][C]1.40087100641643e+29[/C][/ROW]
[ROW][C]0.3467 (2.8846)[/C][C]4.25911293112455e+29[/C][/ROW]
[ROW][C]0.36 (2.7778)[/C][C]8.34372752206372e+28[/C][/ROW]
[ROW][C]0.3733 (2.6786)[/C][C]1.19118585155778e+29[/C][/ROW]
[ROW][C]0.3867 (2.5862)[/C][C]2.28188691743276e+29[/C][/ROW]
[ROW][C]0.4 (2.5)[/C][C]1.26448247513838e+29[/C][/ROW]
[ROW][C]0.4133 (2.4194)[/C][C]1.99424166260914e+29[/C][/ROW]
[ROW][C]0.4267 (2.3438)[/C][C]2.66496244484732e+29[/C][/ROW]
[ROW][C]0.44 (2.2727)[/C][C]3.25058786385275e+29[/C][/ROW]
[ROW][C]0.4533 (2.2059)[/C][C]9.63748645895254e+28[/C][/ROW]
[ROW][C]0.4667 (2.1429)[/C][C]1.5614627948385e+28[/C][/ROW]
[ROW][C]0.48 (2.0833)[/C][C]3.14215240590517e+29[/C][/ROW]
[ROW][C]0.4933 (2.027)[/C][C]7.10284145341471e+28[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=149082&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=149082&T=1

As an alternative you can also use a QR Code:  
QR Code


The GUIDs for individual cells are displayed in the table below:

Raw Periodogram
ParameterValue
Box-Cox transformation parameter (lambda)1
Degree of non-seasonal differencing (d)0
Degree of seasonal differencing (D)0
Seasonal Period (s)12
Frequency (Period)Spectrum
0.0133 (75)6.18833134308612e+29
0.0267 (37.5)7.1688403315072e+28
0.04 (25)5.8416733288691e+28
0.0533 (18.75)4.94785932235991e+28
0.0667 (15)2.93329724539044e+29
0.08 (12.5)5.44372757540431e+29
0.0933 (10.7143)1.0444873102388e+29
0.1067 (9.375)1.67193811097607e+29
0.12 (8.3333)1.87052833397648e+28
0.1333 (7.5)1.83696752763862e+29
0.1467 (6.8182)7.96049945772888e+28
0.16 (6.25)8.09571121074977e+28
0.1733 (5.7692)7.49539023783034e+28
0.1867 (5.3571)7.15936809669074e+28
0.2 (5)1.58782191571728e+29
0.2133 (4.6875)1.25630485496028e+29
0.2267 (4.4118)1.61507372203738e+29
0.24 (4.1667)6.22277701363813e+29
0.2533 (3.9474)1.22842591960615e+29
0.2667 (3.75)1.01924686885543e+29
0.28 (3.5714)1.31667817071528e+29
0.2933 (3.4091)4.6027193265211e+28
0.3067 (3.2609)1.02643219670022e+29
0.32 (3.125)2.8533774321593e+29
0.3333 (3)1.40087100641643e+29
0.3467 (2.8846)4.25911293112455e+29
0.36 (2.7778)8.34372752206372e+28
0.3733 (2.6786)1.19118585155778e+29
0.3867 (2.5862)2.28188691743276e+29
0.4 (2.5)1.26448247513838e+29
0.4133 (2.4194)1.99424166260914e+29
0.4267 (2.3438)2.66496244484732e+29
0.44 (2.2727)3.25058786385275e+29
0.4533 (2.2059)9.63748645895254e+28
0.4667 (2.1429)1.5614627948385e+28
0.48 (2.0833)3.14215240590517e+29
0.4933 (2.027)7.10284145341471e+28


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
par1 = 1 ; par2 = 0 ; par3 = 0 ; par4 = 12 ;
Parameters (R input):
par1 = 1 ; par2 = 0 ; par3 = 0 ; par4 = 12 ;
R code (references can be found in the software module):
par1 <- as.numeric(par1)
par2 <- as.numeric(par2)
par3 <- as.numeric(par3)
par4 <- as.numeric(par4)
if (par1 == 0) {
x <- log(x)
} else {
x <- (x ^ par1 - 1) / par1
}
if (par2 > 0) x <- diff(x,lag=1,difference=par2)
if (par3 > 0) x <- diff(x,lag=par4,difference=par3)
bitmap(file='test1.png')
r <- spectrum(x,main='Raw Periodogram')
dev.off()
bitmap(file='test2.png')
cpgram(x,main='Cumulative Periodogram')
dev.off()
load(file='createtable')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Raw Periodogram',2,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Parameter',header=TRUE)
a<-table.element(a,'Value',header=TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Box-Cox transformation parameter (lambda)',header=TRUE)
a<-table.element(a,par1)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Degree of non-seasonal differencing (d)',header=TRUE)
a<-table.element(a,par2)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Degree of seasonal differencing (D)',header=TRUE)
a<-table.element(a,par3)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Seasonal Period (s)',header=TRUE)
a<-table.element(a,par4)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Frequency (Period)',header=TRUE)
a<-table.element(a,'Spectrum',header=TRUE)
a<-table.row.end(a)
for (i in 1:length(r$freq)) {
a<-table.row.start(a)
mylab <- round(r$freq[i],4)
mylab <- paste(mylab,' (',sep='')
mylab <- paste(mylab,round(1/r$freq[i],4),sep='')
mylab <- paste(mylab,')',sep='')
a<-table.element(a,mylab,header=TRUE)
a<-table.element(a,round(r$spec[i],6))
a<-table.row.end(a)
}
a<-table.end(a)
table.save(a,file='mytable.tab')