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 computationSat, 10 Dec 2016 12:03:48 +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/10/t148136787030snhg5fql4vh6m.htm/, Retrieved Mon, 06 May 2024 05:57:32 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=298644, Retrieved Mon, 06 May 2024 05:57:32 +0000
QR Codes:

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

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-10 11:03:48] [462f83e9ca944f1b841aaa868aea0854] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
3891
3702
3712
3796
3856
3989
3922
4084
4169
4161
4205
4198
4228
4461
4326
4305
4351
4357
4449
4519
4422
4507
4549
4658
4468
4516
4548
4656
4640
4686
4734
4702
4723
4609
4731
4791
5111
4841
4875
4975
4973
4966
4937
4861
4980
4896
4924
4920
5088
5193
5169
5102
5041
4925
5091
4798
5098
5554
5173
5240
5101
5162
5207
5189
5258
5211
5149
5259
5327
5248
5421
5476
5507
5324
5123
5447
5290
5326
5118
5241
5178
5324
5292
5371
5453
5509
5437
5342
5390
5329
5258
5262
5147
5158
5125
5026
4917
4855
4668
4884
4923
4981
5148
5052
5061
4995
5058
5009
5145
5187
5327
5418
5482
5583
5735
5669

Tables (Output of Computation)





Summary of computational transaction
Raw Input view raw input (R code)
Raw Outputview raw output of R engine
Computing time0 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 time0 seconds \tabularnewline
R ServerBig Analytics Cloud Computing Center \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=298644&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]0 seconds[/C][/ROW] [ROW]R Server[/C]Big Analytics Cloud Computing Center[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=298644&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=298644&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 time0 seconds
R ServerBig Analytics Cloud Computing Center






Univariate Dataseries
Name of dataseriesN2348
Source
Description
Number of observations116

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

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

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






Summary Statistics of dataseries x
> summary(x)
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
   3702    4658    5034    4918    5243    5735 


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

> summary(x)
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
   3702    4658    5034    4918    5243    5735 

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

[TABLE]
[ROW][C]Summary Statistics of dataseries x[/C][/ROW]
[ROW][C]
> summary(x)
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
   3702    4658    5034    4918    5243    5735 

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=298644&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. 
   3702    4658    5034    4918    5243    5735


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
par1 = N2348 ; par4 = 12 ;
Parameters (R input):
par1 = N2348 ; 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')