Free Statistics

of Irreproducible Research!

Author's title

Author*The author of this computation has been verified*
R Software Modulerwasp_univariatedataseries.wasp
Title produced by softwareUnivariate Data Series
Date of computationMon, 22 Nov 2010 19:16:22 +0000
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2010/Nov/22/t12904533229wie91gtvvg2orw.htm/, Retrieved Fri, 03 May 2024 22:16:50 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=98675, Retrieved Fri, 03 May 2024 22:16:50 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact109
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Univariate Data Series] [] [2010-11-22 19:16:22] [b7dd4adfab743bef2d672ff51f950617] [Current]
Feedback Forum

Post a new message
Dataseries X:
2.6201263381154E-14
2.6201263381154E-14
-0.011209663573374
-2.5757174171304E-14
0.011209663573374
2.6201263381154E-14
2.6201263381154E-14
2.6201263381154E-14
2.6201263381154E-14
0.024508419028726
-4.8849813083507E-15
-4.8849813083507E-15
-0.017699577099405
-3.9968028886506E-15
-0.006808841929304
0.0068088419293262
-3.9968028886506E-15
0.0056980211145961
-4.1744385725906E-14
-4.1744385725906E-14
-0.025900728432142
0.025900728432116
-4.1744385725906E-14
-4.1744385725906E-14
-0.0021329549501417
-0.023767773482
1.5543122344752E-14
1.5543122344752E-14
1.5543122344752E-14
1.5543122344752E-14
1.5543122344752E-14
1.5543122344752E-14
1.5543122344752E-14
1.5543122344752E-14
1.5543122344752E-14
1.5543122344752E-14
0.023767773482016
-0.023767773482
1.5543122344752E-14
1.5543122344752E-14
1.5543122344752E-14
0.023767773482016
-0.023767773482
1.5543122344752E-14
1.5543122344752E-14
1.5543122344752E-14
1.5543122344752E-14
1.5543122344752E-14
1.5543122344752E-14
1.5543122344752E-14
1.5543122344752E-14
0.023767773482016
-0.0252265629457
0.025226562945675
0.0021329549500999
-0.0021329549501417
0
0
0.0021329549500999
-4.1744385725906E-14
-4.1744385725906E-14
-0.025900728432142
1.5543122344752E-14
1.5543122344752E-14
0.025900728432116
-4.1744385725906E-14
-4.1744385725906E-14
-0.025900728432142
1.5543122344752E-14
0.025900728432116
-4.1744385725906E-14
-4.1744385725906E-14
-4.1744385725906E-14
-4.1744385725906E-14
-4.1744385725906E-14
-4.1744385725906E-14
-4.1744385725906E-14
-4.1744385725906E-14
-0.023716526617342
-2.5757174171304E-14
0.023716526617274
-4.1744385725906E-14
-4.1744385725906E-14
-0.023716526617342
-2.5757174171304E-14
-2.5757174171304E-14
-2.5757174171304E-14
-2.5757174171304E-14
0.023716526617274
-4.1744385725906E-14
-4.1744385725906E-14
-1.7284646188557
1.7284646188557
-4.1744385725906E-14
-4.1744385725906E-14
-4.1744385725906E-14
-4.1744385725906E-14
-4.1744385725906E-14
-4.1744385725906E-14
-4.1744385725906E-14
-4.1744385725906E-14
-4.1744385725906E-14
-0.025900728432142
0.025900728432116
-0.025900728432142
1.5543122344752E-14
1.5543122344752E-14
0.025900728432116
-4.1744385725906E-14
-0.025900728432142
1.5543122344752E-14
1.5543122344752E-14
0.025900728432116
-4.1744385725906E-14
-0.025900728432142
0.025900728432116
-4.1744385725906E-14
-4.1744385725906E-14
-4.1744385725906E-14
-4.1744385725906E-14
-4.1744385725906E-14
-4.1744385725906E-14
-4.1744385725906E-14
-4.1744385725906E-14
-0.025900728432142
0.025900728432116
-0.025900728432142
1.5543122344752E-14
1.5543122344752E-14
1.5543122344752E-14
1.5543122344752E-14
1.5543122344752E-14
1.5543122344752E-14
0.025900728432116
-0.025900728432142
1.5543122344752E-14
0.025900728432116
-4.1744385725906E-14
-4.1744385725906E-14
-0.025900728432142
1.5543122344752E-14
1.5543122344752E-14
1.5543122344752E-14
1.5543122344752E-14
1.5543122344752E-14
1.5543122344752E-14
1.5543122344752E-14
1.5543122344752E-14
0.023767773482016
0
0
0
0
0
0
0
0
-0.023767773482
0.023767773482016
0
0
0
0
-0.023767773482
1.5543122344752E-14
1.5543122344752E-14
1.5543122344752E-14
1.5543122344752E-14
1.5543122344752E-14
1.5543122344752E-14
0.023767773482016
0
0.0021329549500999
-4.1744385725906E-14
-0.025900728432142
1.5543122344752E-14
1.5543122344752E-14
0.0047264221780159
-0.012408918350006
3.1530333899354E-14
3.1530333899354E-14
3.1530333899354E-14
3.1530333899354E-14
3.1530333899354E-14
-0.0014700480412686
2.0428103653103E-14
2.0428103653103E-14
2.0428103653103E-14
2.0428103653103E-14
-0.011838836016979
4.4408920985006E-16
0.011838836017
-0.011838836016979
4.4408920985006E-16
4.4408920985006E-16
0.011838836017
2.0428103653103E-14
2.0428103653103E-14
2.0428103653103E-14
2.0428103653103E-14




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

\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 & 1 seconds \tabularnewline
R Server & 'Gwilym Jenkins' @ 72.249.127.135 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=98675&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]1 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'Gwilym Jenkins' @ 72.249.127.135[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=98675&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=98675&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 Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'Gwilym Jenkins' @ 72.249.127.135







Univariate Dataseries
Name of dataseriesHarvest & Co
Source
DescriptionTime series of Xycoon Stock Exchange
Number of observations200

\begin{tabular}{lllllllll}
\hline
Univariate Dataseries \tabularnewline
Name of dataseries & Harvest & Co \tabularnewline
Source &  \tabularnewline
Description & Time series of Xycoon Stock Exchange \tabularnewline
Number of observations & 200 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=98675&T=1

[TABLE]
[ROW][C]Univariate Dataseries[/C][/ROW]
[ROW][C]Name of dataseries[/C][C]Harvest & Co[/C][/ROW]
[ROW][C]Source[/C][C][/C][/ROW]
[ROW][C]Description[/C][C]Time series of Xycoon Stock Exchange[/C][/ROW]
[ROW][C]Number of observations[/C][C]200[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=98675&T=1

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

As an alternative you can also use a QR Code:  

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

Univariate Dataseries
Name of dataseriesHarvest & Co
Source
DescriptionTime series of Xycoon Stock Exchange
Number of observations200



Parameters (Session):
par1 = Harvest & Co ; par3 = Time series of Xycoon Stock Exchange ; par4 = No season ;
Parameters (R input):
par1 = Harvest & Co ; par2 = ; par3 = Time series of Xycoon Stock Exchange ; par4 = No season ;
R code (references can be found in the software module):
if (par4 != 'No season') {
par4 <- as.numeric(par4)
if (par4 < 4) par4 <- 12
}
summary(x)
n <- length(x)
bitmap(file='test1.png')
if (par4=='No season') {
plot(x,col=2,type='b',main=main,xlab=xlab,ylab=ylab,xaxt='n')
axis(1,at=seq(1,n,10))
}
if (par4!='No season') {
plot(x,col=2,type='b',main=main,xlab=xlab,ylab=ylab,xaxt='n')
axis(1,at=seq(1,n,par4))
grid(nx=0,ny=NULL,col='black')
abline(v=seq(1,n,par4),col='black',lty='dotted')
}
dev.off()
load(file='createtable')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Univariate Dataseries',2,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Name of dataseries',header=TRUE)
a<-table.element(a,par1)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Source',header=TRUE)
a<-table.element(a,par2)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Description',header=TRUE)
a<-table.element(a,par3)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Number of observations',header=TRUE)
a<-table.element(a,length(x))
a<-table.row.end(a)
a<-table.end(a)
table.save(a,file='mytable.tab')