Repository of Reproducible Computations

Free Statistics

of Irreproducible Research!

Author's title

Author

*The author of this computation has been verified*

R Software Module

rwasp_spectrum.wasp

Title produced by software

Spectral Analysis

Date of computation

Tue, 20 Dec 2016 00:33:28 +0100

Cite this page as follows

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2016/Dec/20/t1482190772a4rp9ktq5mdr318.htm/, Retrieved Sat, 27 Apr 2024 21:57:45 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=301545, Retrieved Sat, 27 Apr 2024 21:57:45 +0000

QR Codes:

Paste this QR Code to cite your computation.

Original text written by user:

IsPrivate?

No (this computation is public)

User-defined keywords

Estimated Impact

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)

-       [Spectral Analysis] [spectrum na lambd...] [2016-12-19 23:33:28] [9b0b4f5f4290a2ed9efd388f9ce31ae7] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

Summary of computational transaction
Raw Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	1 seconds
R Server	Big Analytics Cloud Computing Center

\begin{tabular}{lllllllll}
\hline
Summary of computational transaction \tabularnewline
Raw Input view raw input (R code)  \tabularnewline
Raw Outputview raw output of R engine  \tabularnewline
Computing time1 seconds \tabularnewline
R ServerBig Analytics Cloud Computing Center \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=301545&T=0

[TABLE]
[ROW]

Summary of computational transaction[/C][/ROW] [ROW]

Raw Input[/C]

view raw input (R code) [/C][/ROW] [ROW]

Raw Output[/C]

view raw output of R engine [/C][/ROW] [ROW]

Computing time[/C]

1 seconds[/C][/ROW] [ROW]

R Server[/C]

Big Analytics Cloud Computing Center[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=301545&T=0

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

As an alternative you can also use a QR Code:

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

Summary of computational transaction
Raw Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	1 seconds
R Server	Big Analytics Cloud Computing Center

Raw Periodogram
Parameter	Value
Box-Cox transformation parameter (lambda)	-2
Degree of non-seasonal differencing (d)	0
Degree of seasonal differencing (D)	0
Seasonal Period (s)	1
Frequency (Period)	Spectrum
0.008 (125)	0
0.016 (62.5)	0
0.024 (41.6667)	0
0.032 (31.25)	0
0.04 (25)	0
0.048 (20.8333)	0
0.056 (17.8571)	0
0.064 (15.625)	0
0.072 (13.8889)	0
0.08 (12.5)	0
0.088 (11.3636)	0
0.096 (10.4167)	0
0.104 (9.6154)	0
0.112 (8.9286)	0
0.12 (8.3333)	0
0.128 (7.8125)	0
0.136 (7.3529)	0
0.144 (6.9444)	0
0.152 (6.5789)	0
0.16 (6.25)	0
0.168 (5.9524)	0
0.176 (5.6818)	0
0.184 (5.4348)	0
0.192 (5.2083)	0
0.2 (5)	0
0.208 (4.8077)	0
0.216 (4.6296)	0
0.224 (4.4643)	0
0.232 (4.3103)	0
0.24 (4.1667)	0
0.248 (4.0323)	0
0.256 (3.9062)	0
0.264 (3.7879)	0
0.272 (3.6765)	0
0.28 (3.5714)	0
0.288 (3.4722)	0
0.296 (3.3784)	0
0.304 (3.2895)	0
0.312 (3.2051)	0
0.32 (3.125)	0
0.328 (3.0488)	0
0.336 (2.9762)	0
0.344 (2.907)	0
0.352 (2.8409)	0
0.36 (2.7778)	0
0.368 (2.7174)	0
0.376 (2.6596)	0
0.384 (2.6042)	0
0.392 (2.551)	0
0.4 (2.5)	0
0.408 (2.451)	0
0.416 (2.4038)	0
0.424 (2.3585)	0
0.432 (2.3148)	0
0.44 (2.2727)	0
0.448 (2.2321)	0
0.456 (2.193)	0
0.464 (2.1552)	0
0.472 (2.1186)	0
0.48 (2.0833)	0
0.488 (2.0492)	0
0.496 (2.0161)	0

\begin{tabular}{lllllllll}
\hline
Raw Periodogram \tabularnewline
Parameter & Value \tabularnewline
Box-Cox transformation parameter (lambda) & -2 \tabularnewline
Degree of non-seasonal differencing (d) & 0 \tabularnewline
Degree of seasonal differencing (D) & 0 \tabularnewline
Seasonal Period (s) & 1 \tabularnewline
Frequency (Period) & Spectrum \tabularnewline
0.008 (125) & 0 \tabularnewline
0.016 (62.5) & 0 \tabularnewline
0.024 (41.6667) & 0 \tabularnewline
0.032 (31.25) & 0 \tabularnewline
0.04 (25) & 0 \tabularnewline
0.048 (20.8333) & 0 \tabularnewline
0.056 (17.8571) & 0 \tabularnewline
0.064 (15.625) & 0 \tabularnewline
0.072 (13.8889) & 0 \tabularnewline
0.08 (12.5) & 0 \tabularnewline
0.088 (11.3636) & 0 \tabularnewline
0.096 (10.4167) & 0 \tabularnewline
0.104 (9.6154) & 0 \tabularnewline
0.112 (8.9286) & 0 \tabularnewline
0.12 (8.3333) & 0 \tabularnewline
0.128 (7.8125) & 0 \tabularnewline
0.136 (7.3529) & 0 \tabularnewline
0.144 (6.9444) & 0 \tabularnewline
0.152 (6.5789) & 0 \tabularnewline
0.16 (6.25) & 0 \tabularnewline
0.168 (5.9524) & 0 \tabularnewline
0.176 (5.6818) & 0 \tabularnewline
0.184 (5.4348) & 0 \tabularnewline
0.192 (5.2083) & 0 \tabularnewline
0.2 (5) & 0 \tabularnewline
0.208 (4.8077) & 0 \tabularnewline
0.216 (4.6296) & 0 \tabularnewline
0.224 (4.4643) & 0 \tabularnewline
0.232 (4.3103) & 0 \tabularnewline
0.24 (4.1667) & 0 \tabularnewline
0.248 (4.0323) & 0 \tabularnewline
0.256 (3.9062) & 0 \tabularnewline
0.264 (3.7879) & 0 \tabularnewline
0.272 (3.6765) & 0 \tabularnewline
0.28 (3.5714) & 0 \tabularnewline
0.288 (3.4722) & 0 \tabularnewline
0.296 (3.3784) & 0 \tabularnewline
0.304 (3.2895) & 0 \tabularnewline
0.312 (3.2051) & 0 \tabularnewline
0.32 (3.125) & 0 \tabularnewline
0.328 (3.0488) & 0 \tabularnewline
0.336 (2.9762) & 0 \tabularnewline
0.344 (2.907) & 0 \tabularnewline
0.352 (2.8409) & 0 \tabularnewline
0.36 (2.7778) & 0 \tabularnewline
0.368 (2.7174) & 0 \tabularnewline
0.376 (2.6596) & 0 \tabularnewline
0.384 (2.6042) & 0 \tabularnewline
0.392 (2.551) & 0 \tabularnewline
0.4 (2.5) & 0 \tabularnewline
0.408 (2.451) & 0 \tabularnewline
0.416 (2.4038) & 0 \tabularnewline
0.424 (2.3585) & 0 \tabularnewline
0.432 (2.3148) & 0 \tabularnewline
0.44 (2.2727) & 0 \tabularnewline
0.448 (2.2321) & 0 \tabularnewline
0.456 (2.193) & 0 \tabularnewline
0.464 (2.1552) & 0 \tabularnewline
0.472 (2.1186) & 0 \tabularnewline
0.48 (2.0833) & 0 \tabularnewline
0.488 (2.0492) & 0 \tabularnewline
0.496 (2.0161) & 0 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=301545&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]-2[/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]1[/C][/ROW]
[ROW][C]Frequency (Period)[/C][C]Spectrum[/C][/ROW]
[ROW][C]0.008 (125)[/C][C]0[/C][/ROW]
[ROW][C]0.016 (62.5)[/C][C]0[/C][/ROW]
[ROW][C]0.024 (41.6667)[/C][C]0[/C][/ROW]
[ROW][C]0.032 (31.25)[/C][C]0[/C][/ROW]
[ROW][C]0.04 (25)[/C][C]0[/C][/ROW]
[ROW][C]0.048 (20.8333)[/C][C]0[/C][/ROW]
[ROW][C]0.056 (17.8571)[/C][C]0[/C][/ROW]
[ROW][C]0.064 (15.625)[/C][C]0[/C][/ROW]
[ROW][C]0.072 (13.8889)[/C][C]0[/C][/ROW]
[ROW][C]0.08 (12.5)[/C][C]0[/C][/ROW]
[ROW][C]0.088 (11.3636)[/C][C]0[/C][/ROW]
[ROW][C]0.096 (10.4167)[/C][C]0[/C][/ROW]
[ROW][C]0.104 (9.6154)[/C][C]0[/C][/ROW]
[ROW][C]0.112 (8.9286)[/C][C]0[/C][/ROW]
[ROW][C]0.12 (8.3333)[/C][C]0[/C][/ROW]
[ROW][C]0.128 (7.8125)[/C][C]0[/C][/ROW]
[ROW][C]0.136 (7.3529)[/C][C]0[/C][/ROW]
[ROW][C]0.144 (6.9444)[/C][C]0[/C][/ROW]
[ROW][C]0.152 (6.5789)[/C][C]0[/C][/ROW]
[ROW][C]0.16 (6.25)[/C][C]0[/C][/ROW]
[ROW][C]0.168 (5.9524)[/C][C]0[/C][/ROW]
[ROW][C]0.176 (5.6818)[/C][C]0[/C][/ROW]
[ROW][C]0.184 (5.4348)[/C][C]0[/C][/ROW]
[ROW][C]0.192 (5.2083)[/C][C]0[/C][/ROW]
[ROW][C]0.2 (5)[/C][C]0[/C][/ROW]
[ROW][C]0.208 (4.8077)[/C][C]0[/C][/ROW]
[ROW][C]0.216 (4.6296)[/C][C]0[/C][/ROW]
[ROW][C]0.224 (4.4643)[/C][C]0[/C][/ROW]
[ROW][C]0.232 (4.3103)[/C][C]0[/C][/ROW]
[ROW][C]0.24 (4.1667)[/C][C]0[/C][/ROW]
[ROW][C]0.248 (4.0323)[/C][C]0[/C][/ROW]
[ROW][C]0.256 (3.9062)[/C][C]0[/C][/ROW]
[ROW][C]0.264 (3.7879)[/C][C]0[/C][/ROW]
[ROW][C]0.272 (3.6765)[/C][C]0[/C][/ROW]
[ROW][C]0.28 (3.5714)[/C][C]0[/C][/ROW]
[ROW][C]0.288 (3.4722)[/C][C]0[/C][/ROW]
[ROW][C]0.296 (3.3784)[/C][C]0[/C][/ROW]
[ROW][C]0.304 (3.2895)[/C][C]0[/C][/ROW]
[ROW][C]0.312 (3.2051)[/C][C]0[/C][/ROW]
[ROW][C]0.32 (3.125)[/C][C]0[/C][/ROW]
[ROW][C]0.328 (3.0488)[/C][C]0[/C][/ROW]
[ROW][C]0.336 (2.9762)[/C][C]0[/C][/ROW]
[ROW][C]0.344 (2.907)[/C][C]0[/C][/ROW]
[ROW][C]0.352 (2.8409)[/C][C]0[/C][/ROW]
[ROW][C]0.36 (2.7778)[/C][C]0[/C][/ROW]
[ROW][C]0.368 (2.7174)[/C][C]0[/C][/ROW]
[ROW][C]0.376 (2.6596)[/C][C]0[/C][/ROW]
[ROW][C]0.384 (2.6042)[/C][C]0[/C][/ROW]
[ROW][C]0.392 (2.551)[/C][C]0[/C][/ROW]
[ROW][C]0.4 (2.5)[/C][C]0[/C][/ROW]
[ROW][C]0.408 (2.451)[/C][C]0[/C][/ROW]
[ROW][C]0.416 (2.4038)[/C][C]0[/C][/ROW]
[ROW][C]0.424 (2.3585)[/C][C]0[/C][/ROW]
[ROW][C]0.432 (2.3148)[/C][C]0[/C][/ROW]
[ROW][C]0.44 (2.2727)[/C][C]0[/C][/ROW]
[ROW][C]0.448 (2.2321)[/C][C]0[/C][/ROW]
[ROW][C]0.456 (2.193)[/C][C]0[/C][/ROW]
[ROW][C]0.464 (2.1552)[/C][C]0[/C][/ROW]
[ROW][C]0.472 (2.1186)[/C][C]0[/C][/ROW]
[ROW][C]0.48 (2.0833)[/C][C]0[/C][/ROW]
[ROW][C]0.488 (2.0492)[/C][C]0[/C][/ROW]
[ROW][C]0.496 (2.0161)[/C][C]0[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=301545&T=1

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

As an alternative you can also use a QR Code:

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

Raw Periodogram
Parameter	Value
Box-Cox transformation parameter (lambda)	-2
Degree of non-seasonal differencing (d)	0
Degree of seasonal differencing (D)	0
Seasonal Period (s)	1
Frequency (Period)	Spectrum
0.008 (125)	0
0.016 (62.5)	0
0.024 (41.6667)	0
0.032 (31.25)	0
0.04 (25)	0
0.048 (20.8333)	0
0.056 (17.8571)	0
0.064 (15.625)	0
0.072 (13.8889)	0
0.08 (12.5)	0
0.088 (11.3636)	0
0.096 (10.4167)	0
0.104 (9.6154)	0
0.112 (8.9286)	0
0.12 (8.3333)	0
0.128 (7.8125)	0
0.136 (7.3529)	0
0.144 (6.9444)	0
0.152 (6.5789)	0
0.16 (6.25)	0
0.168 (5.9524)	0
0.176 (5.6818)	0
0.184 (5.4348)	0
0.192 (5.2083)	0
0.2 (5)	0
0.208 (4.8077)	0
0.216 (4.6296)	0
0.224 (4.4643)	0
0.232 (4.3103)	0
0.24 (4.1667)	0
0.248 (4.0323)	0
0.256 (3.9062)	0
0.264 (3.7879)	0
0.272 (3.6765)	0
0.28 (3.5714)	0
0.288 (3.4722)	0
0.296 (3.3784)	0
0.304 (3.2895)	0
0.312 (3.2051)	0
0.32 (3.125)	0
0.328 (3.0488)	0
0.336 (2.9762)	0
0.344 (2.907)	0
0.352 (2.8409)	0
0.36 (2.7778)	0
0.368 (2.7174)	0
0.376 (2.6596)	0
0.384 (2.6042)	0
0.392 (2.551)	0
0.4 (2.5)	0
0.408 (2.451)	0
0.416 (2.4038)	0
0.424 (2.3585)	0
0.432 (2.3148)	0
0.44 (2.2727)	0
0.448 (2.2321)	0
0.456 (2.193)	0
0.464 (2.1552)	0
0.472 (2.1186)	0
0.48 (2.0833)	0
0.488 (2.0492)	0
0.496 (2.0161)	0

Figure 1

PNG link

Postscript link

PDF link

Figure 2

PNG link

Postscript link

PDF link

Parameters (Session):

par1 = -2.0 ; par2 = 0 ; par3 = 0 ; par4 = 1 ;

Parameters (R input):

par1 = -2.0 ; par2 = 0 ; par3 = 0 ; par4 = 1 ;

R code (references can be found in the software module):

par4 <- '1'
par3 <- '0'
par2 <- '0'
par1 <- '2.0'
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')

Free Statistics

Description of Statistical Computation

Tree of Dependent Computations

Dataset

Tables (Output of Computation)

Figures (Output of Computation)

Input Parameters & R Code