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 computationTue, 17 Sep 2013 08:23:59 -0400
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2013/Sep/17/t1379420709fur5k0h80e9vvux.htm/, Retrieved Wed, 01 May 2024 12:25:40 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=211442, Retrieved Wed, 01 May 2024 12:25:40 +0000
QR Codes:

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

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] [] [2013-09-17 12:23:59] [51fe0640a383c3aded7defd919b1cd8b] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
 68.906 
 39.556 
 50.669 
 36.432 
 40.891 
 48.428 
 36.222 
 33.425 
 39.401 
 37.967 
 34.801 
 12.657 
 69.116 
 41.519 
 51.321 
 38.529 
 41.547 
 52.073 
 38.401 
 40.898 
 40.439 
 41.888 
 37.898 
 8.771 
 68.184 
 50.530 
 47.221 
 41.756 
 45.633 
 48.138 
 39.486 
 39.341 
 41.117 
 41.629 
 29.722 
 7.054 
 56.676 
 34.870 
 35.117 
 30.169 
 30.936 
 35.699 
 33.228 
 27.733 
 33.666 
 35.429 
 27.438 
 8.170 
 63.410 
 38.040 
 45.389 
 37.353 
 37.024 
 50.957 
 37.994 
 36.454 
 46.080 
 43.373 
 37.395 
 10.963 
 76.058 
 50.179 
 57.452 
 47.568 
 50.050 
 50.856 
 41.992 
 39.284 
 44.521 
 43.832 
 41.153 
 17.100 
 70.487 
 43.982 
 52.169 
 40.661 
 47.725 
 76.489 
 30.251 
 33.041 
 31.570 
 27.000 
 30.129 
 18.394 

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'Gwilym Jenkins' @ jenkins.wessa.net

\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' @ jenkins.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=211442&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' @ jenkins.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=211442&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=211442&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'Gwilym Jenkins' @ jenkins.wessa.net


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
par1 = verkoop Mini Cooper ; par2 = http://www.autoweek.nl/verkoopcijfers ; par3 = Verkoop Mini Cooper ; par4 = 12 ;
Parameters (R input):
par1 = verkoop Mini Cooper ; par2 = http://www.autoweek.nl/verkoopcijfers ; par3 = Verkoop Mini Cooper ; 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')