FreeStatistics.org

Free Statistics

of Irreproducible Research!

Description of Statistical Computation

Author's title

Author*Unverified author*
R Software Modulerwasp_univariatedataseries.wasp
Title produced by softwareUnivariate Data Series
Date of computationWed, 24 Sep 2014 14:18:37 +0100
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2014/Sep/24/t141156563521bd8j3l4crcw78.htm/, Retrieved Thu, 09 May 2024 21:57:38 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=236126, Retrieved Thu, 09 May 2024 21:57:38 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Univariate Data Series] [] [2014-09-24 13:18:37] [5f87c1f524450f94c6870e724864065e] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
80
100
60
60
100
100
100
90
120
100
80
160
50
120
100
80
100
80
100
80
80
60
60
50
80
20
80
60
100
90
80
90
100
80
80
140
120
100
80
80
80
100
100
60
80
140
100
100
120
90
40
90
100
100
90
120
80
100
100
90
100
100
100
90
100
50
70
80
80
90
120
100
90
80
200
120
100
80
120
90
100
120
90
100
90
90
100
100
100
80
90
60
80
120
80
100
120
140
90
50
120
60
40
120
40
100
80
80
140
100
140
120
50
100
60
100
100
80
80
20
60
160
80
160
100
100
80
60
60
90
100
90
80
100
100
100
140
160
80
90
90
80
100
100
70
100
80
100
120
80
90
140
90
100
100
100
100
90
90
140
60
100
70
90
100
100
110
120
80
100
100
120
90
120
40
40
100
80
90
100
100
60
90
100
100
110
90
120
100
80
100
100
80
120
80
120
200
80
80
110
80
100
140
100
100
60
60
80
80
100
120
80
100
100
100
80
80
100
100
120
90
80
100
100
70
70
80
100
100
120
100
80
100
80
80
80
90
70
90
80
60
100
100
80
100
60
90
100
100
60
50
100
120
90
60
90
100
50
70
120
100
100
160
100
100
60
100
80
100
100
100
80
120
80
100
120
90
100
100
100
200
80
200
100
140
80
80
80
80
80
100
100
100
80
80
80
80
100
70
100
90
90
120
120
30
80
100
120
200
90
80
40
100
100
100
100
70
100
80
100
120
70
80
100
90
90
80
80
100
80
80
80
80
100
80
40
80
100
120
100
200
120
120
200
60
100
100
90
80
90
120
100
70
90
90
120
160
100
80
40
80
40
60
80
60
80
120
50
60
50
80
60
50
100
80
100
100
100
120
80
100
60
60
90
40
60
40
80
100
80
80
150
80
80
80
160
100
100
120
100
40
80
100
50
60
100
80
90
90
80
100
100
100
60
160
80
80
60
100
60
80
100
80
120
200
80
100
80
120
120
100
100
50
100
100
100
80
80
80
60
80
100
60
100
200
120
80
80
100
50
60
80
80
140
90
60
70
120
90
50
50
80
80
60
100
60
80
80
100
70
120
80
100
100
100
80
80
100
80
90
60
60
90
80
40
100
80
80
60
50
80
20
80
60
60
100
100
100
60
100
90
100
80
70
90
100
140
100
100
100
140
120
90
120
200
60
100
100
80
100
100
100
50
60
90
100
100
100
100
60
80
80
60
140
120
80
90
260
80
100
90
80
100
100
80
100
60
80
50
60
40
100
60
120
140
100
100
100
100
100
160
160
100
100
80
100
100
90
100
120
100
100
120
100
100
120
100
100
80
90
90
80
100
90
100
90
160
100
100
100
90
80
140
80
140
100
90
100
100
100
100
100
160
100
120
100
80
100
100
120
90
90
80
60
60
100
100
80
80
60
100
60
80
90
100
60
60
70
20
60
100
70
160
100
100
80
120
80
100
100
100
90
90
100
100
120
100
100
100
100
80
80
100
100
100
100
80
120
100
90
120
80
80
120
100
100
120
80
100
100
100
100
120
70
60
90
90
100
90
90
100
60
80
90
70
140
80
80
80
100
100
120
60
100
90
100
100
80
100
100
100
90
100
100
80
90
120
60
120
100
80
100
100
140
90
80
100
80
80
70
80
90
100
40
80
100
80
80
120
100
80
60
80
100
40
80
100
90
90
100
100
60
100
80
40
100
60
100
140
100
60
100
100
120
100
40
90
80
100
80
80
100
90
70
120
80
100
80
100
80
100
80
90
50
120
50
90
100
100
100
100
120
120
40
90
90
100
80
90
80
100
80
60
100
80
100
80
120
60
160
100
80
90
90
120
80
160
80
100
80
100
80
200
200
100
100
160
120
90
120
80
100
100
120
100
100
80
70
70
110
100
90
60
160
160
50
50
70
50
100
100
70
100
90
60
100
60
60
60
100
60
50
90
80
80
100
80
50
40
60
50
60
100
80
80
60
60
120
80
100
90
90
200
60
100
60
100
90
70
200
80
200
80
80
120
100
80
90
100
200
160
100
100
100
100
120
160
100
120
80

Tables (Output of Computation)





Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'Herman Ole Andreas Wold' @ wold.wessa.net
R Framework error message
Warning: there are blank lines in the 'Data' field.
Please, use NA for missing data - blank lines are simply
 deleted and are NOT treated as missing values.

\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 & 'Herman Ole Andreas Wold' @ wold.wessa.net \tabularnewline
R Framework error message & 
Warning: there are blank lines in the 'Data' field.
Please, use NA for missing data - blank lines are simply
 deleted and are NOT treated as missing values.
 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=236126&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]'Herman Ole Andreas Wold' @ wold.wessa.net[/C][/ROW]
[ROW][C]R Framework error message[/C][C]
Warning: there are blank lines in the 'Data' field.
Please, use NA for missing data - blank lines are simply
 deleted and are NOT treated as missing values.
[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=236126&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=236126&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 time1 seconds
R Server'Herman Ole Andreas Wold' @ wold.wessa.net
R Framework error message
Warning: there are blank lines in the 'Data' field.
Please, use NA for missing data - blank lines are simply
 deleted and are NOT treated as missing values.






Univariate Dataseries
Name of dataseriesmaximumprijs Tomorrowland
Source
Descriptionmaximumprijs Tomorrowland
Number of observations900

\begin{tabular}{lllllllll}
\hline
Univariate Dataseries \tabularnewline
Name of dataseries & maximumprijs Tomorrowland \tabularnewline
Source &  \tabularnewline
Description & maximumprijs Tomorrowland \tabularnewline
Number of observations & 900 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=236126&T=1

[TABLE]
[ROW][C]Univariate Dataseries[/C][/ROW]
[ROW][C]Name of dataseries[/C][C]maximumprijs Tomorrowland[/C][/ROW]
[ROW][C]Source[/C][C][/C][/ROW]
[ROW][C]Description[/C][C]maximumprijs Tomorrowland[/C][/ROW]
[ROW][C]Number of observations[/C][C]900[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=236126&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=236126&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:

Univariate Dataseries
Name of dataseriesmaximumprijs Tomorrowland
Source
Descriptionmaximumprijs Tomorrowland
Number of observations900


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
par1 = maximumprijs Tomorrowland ; par3 = maximumprijs Tomorrowland ; par4 = No season ;
Parameters (R input):
par1 = maximumprijs Tomorrowland ; par2 = ; par3 = maximumprijs Tomorrowland ; 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')