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 computationMon, 04 Feb 2013 11:53:36 -0500
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/Feb/04/t1359996905waukmyg3si6ni2r.htm/, Retrieved Mon, 29 Apr 2024 01:04:24 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=206032, Retrieved Mon, 29 Apr 2024 01:04:24 +0000
QR Codes:

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

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-02-04 16:53:36] [62245d2aecd9fec3f8945b8ab574a701] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
547.084
639.842
770.730
911.599
971.249
925.102
906.046
1.006.991
1.013.942
991.188
819.356
793.778
601.962
685.640
785.923
954.888
1.029.140
972.811
951.330
1.012.865
1.005.502
987.489
828.421
817.308
625.827
683.491
848.657
978.027
1.019.467
980.306
992.574
1.080.411
1.047.988
1.023.560
871.245
824.793
645.999
736.888
874.488
992.614
1.107.708
955.938
1.024.122
1.081.598
1.028.158
1.006.457
826.725
839.116
591.481
671.244
788.395
912.291
987.428
873.452
952.046
1.037.521
958.597
965.368
780.741
814.377
594.739
668.940
815.882
928.023
1.025.552
945.840
1.020.639
1.109.899
1.033.403
1.050.530
840.420
820.378
609.379
678.402
889.241
998.445
1.054.502
1.076.699
1.093.802
1.134.793
1.054.084
1.068.675
857.337
855.380

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=206032&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=206032&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=206032&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 = Totaal gespendeerde nachten van toeristen in Belgische hotels ; par2 = http://appsso.eurostat.ec.europa.eu/nui/show.do ; par3 = Totaal gespendeerde nachten van toeristen in Belgische hotels tussen 2005 en 2011 ; par4 = 12 ;
Parameters (R input):
par1 = Totaal gespendeerde nachten van toeristen in Belgische hotels ; par2 = http://appsso.eurostat.ec.europa.eu/nui/show.do ; par3 = Totaal gespendeerde nachten van toeristen in Belgische hotels tussen 2005 en 2011 ; 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')