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 computationThu, 08 Mar 2012 09:59:42 -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/2012/Mar/08/t1331218886bvlg2kfhp24nzyr.htm/, Retrieved Sat, 04 May 2024 09:04:37 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=163799, Retrieved Sat, 04 May 2024 09:04:37 +0000
QR Codes:

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

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] [Opgave 1 deel 1 (...] [2012-03-08 14:59:42] [2c3906e099e396db093769aeca236bf5] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
1157364 
1185986 
1430183 
1686944 
1787903 
1789879 
2070194 
1943461 
1870554 
1700436 
1403305 
1266932 
1240303 
1262079 
1567165 
1750958 
1846579 
1888635 
2241216 
2142676 
2065581 
1892108 
1614968 
1505911 
1426367 
1513251 
1767385 
1915718 
2057762 
2057994 
2356367 
2258319 
2108897 
1908910 
1545304 
1423982 
1279458 
1302560 
1570100 
1905182 
1954595 
1987875 
2340472 
2271636 
2063460 
1914860 
1623402 
1502776 
1371881 
1424803 
1704379 
1563479 
2107736 
2124789 
2521039 
2441647 
2243761 
2168578 
1780592 
1587783

Tables (Output of Computation)





Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time0 seconds
R Server'Herman Ole Andreas Wold' @ wold.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 & 0 seconds \tabularnewline
R Server & 'Herman Ole Andreas Wold' @ wold.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=163799&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]0 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'Herman Ole Andreas Wold' @ wold.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=163799&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=163799&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 time0 seconds
R Server'Herman Ole Andreas Wold' @ wold.wessa.net






Univariate Dataseries
Name of dataseriesAirpassenger transport Belgium
Sourcehttp://epp.eurostat.ec.europa.eu/portal/page/portal/transport/data/database
DescriptionAantal passagiers vanuit België
Number of observations60

\begin{tabular}{lllllllll}
\hline
Univariate Dataseries \tabularnewline
Name of dataseries & Airpassenger transport Belgium \tabularnewline
Source & http://epp.eurostat.ec.europa.eu/portal/page/portal/transport/data/database \tabularnewline
Description & Aantal passagiers vanuit België \tabularnewline
Number of observations & 60 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=163799&T=1

[TABLE]
[ROW][C]Univariate Dataseries[/C][/ROW]
[ROW][C]Name of dataseries[/C][C]Airpassenger transport Belgium[/C][/ROW]
[ROW][C]Source[/C][C]http://epp.eurostat.ec.europa.eu/portal/page/portal/transport/data/database[/C][/ROW]
[ROW][C]Description[/C][C]Aantal passagiers vanuit België[/C][/ROW]
[ROW][C]Number of observations[/C][C]60[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=163799&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=163799&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 dataseriesAirpassenger transport Belgium
Sourcehttp://epp.eurostat.ec.europa.eu/portal/page/portal/transport/data/database
DescriptionAantal passagiers vanuit België
Number of observations60


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
par1 = Airpassenger transport Belgium ; par2 = http://epp.eurostat.ec.europa.eu/portal/page/portal/transport/data/database ; par3 = Aantal passagiers vanuit België ; par4 = 12 ;
Parameters (R input):
par1 = Airpassenger transport Belgium ; par2 = http://epp.eurostat.ec.europa.eu/portal/page/portal/transport/data/database ; par3 = Aantal passagiers vanuit België ; 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')