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_univariatedataseries.wasp
Title produced by softwareUnivariate Data Series
Date of computationThu, 22 Dec 2016 22:43:00 +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/2016/Dec/22/t14824431107c8brs8tn3wmjs3.htm/, Retrieved Mon, 29 Apr 2024 05:03:45 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=302701, Retrieved Mon, 29 Apr 2024 05:03:45 +0000
QR Codes:

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

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] [Plot & Describe d...] [2016-12-22 21:43:00] [d4ebbcc95b180bc93fc42d05f31a3dde] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
5171
5228
5325
5197
5133
4964
4854
4787
4859
4876
4855
4906
4963
5128
5201
5190
5038
4877
4705
4632
4669
4740
4731
4852
4811
4932
4964
4975
4868
5003
4893
4843
4875
5063
5207
5335
5301
5374
5721
5769
5568
5534
5570
5659
5776
5832
5826
5800
5883
6065
6098
6123
6213
6015
6103
6232
6284
6285
6075
5894
6016
6068
6042
5983
5915
5853
5867
5977
6163
5986
5881
5809
5770
5950
5997
5924
5824
5772
5817
5858
5870
5862
5964
5940
6021
6097
6178
6287
6283
6257
6186
6176
6265
6239
6327
6155
6299
6415
6488
6282
6198
6445
6535
6555
6603
6770
6792
6484
6769
6916
6784
6826
6697
6361
6393
6484
6590
6653

Tables (Output of Computation)





Summary of computational transaction
Raw Input view raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R ServerBig 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=302701&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=302701&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=302701&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 Input view raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R ServerBig Analytics Cloud Computing Center






Univariate Dataseries
Name of dataseriesN1932
Source
Description
Number of observations118

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

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=302701&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 dataseriesN1932
Source
Description
Number of observations118






Summary Statistics of dataseries x
> summary(x)
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
   4632    5192    5882    5768    6227    6916 


\begin{tabular}{lllllllll}
\hline
Summary Statistics of dataseries x \tabularnewline

> summary(x)
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
   4632    5192    5882    5768    6227    6916 

 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=302701&T=2

[TABLE]
[ROW][C]Summary Statistics of dataseries x[/C][/ROW]
[ROW][C]
> summary(x)
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
   4632    5192    5882    5768    6227    6916 

[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=302701&T=2

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

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


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

Summary Statistics of dataseries x
> summary(x)
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
   4632    5192    5882    5768    6227    6916


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
par1 = 1 ;
Parameters (R input):
par1 = N1932 ; par2 = ; par3 = ; par4 = 12 ;
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')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Summary Statistics of dataseries x',1,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,paste('
',RC.texteval('summary(x)'),'
',sep=''))
a<-table.row.end(a)
a<-table.end(a)
table.save(a,file='mytable1.tab')