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 computationSun, 28 Nov 2010 13:25:56 +0000
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2010/Nov/28/t12909506362zte5w6dlvg4uxq.htm/, Retrieved Thu, 02 May 2024 21:51:35 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=102548, Retrieved Thu, 02 May 2024 21:51:35 +0000
QR Codes:

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

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] [Paper - Werkloosh...] [2010-11-28 12:45:51] [4a7069087cf9e0eda253aeed7d8c30d6]
-   PD  [Univariate Data Series] [Paper - Werkloosh...] [2010-11-28 12:47:28] [4a7069087cf9e0eda253aeed7d8c30d6]
-   PD    [Univariate Data Series] [Paper - Werkloosh...] [2010-11-28 12:55:09] [4a7069087cf9e0eda253aeed7d8c30d6]
-    D        [Univariate Data Series] [Paper - Werkloosh...] [2010-11-28 13:25:56] [cfd788255f1b1b5389e58d7f218c70bf] [Current]
-   PD          [Univariate Data Series] [Paper - Werkloosh...] [2010-11-28 14:16:38] [4a7069087cf9e0eda253aeed7d8c30d6]
-   PD            [Univariate Data Series] [Bouwvergunningen ...] [2010-12-09 20:59:59] [05ab9592748364013445d860bb938e43]
-   PD          [Univariate Data Series] [Paper - Werkloosh...] [2010-11-28 14:18:16] [4a7069087cf9e0eda253aeed7d8c30d6]
-   PD          [Univariate Data Series] [Paper - Wisselkoe...] [2010-11-28 14:35:40] [4a7069087cf9e0eda253aeed7d8c30d6]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
507.087
508.421
509.463
500.043
498.249
501.588
515.159
513.239
516.859
532.239
522.901
529.499
526.862
528.257
526.382
517.318
516.12
515.726
531.124
527.259
526.967
519.367
509.804
516.096
517.57
515.84
509.329
505.552
505.478
503.025
519.184
517.132
508.288
486.578
473.332
471.099
472.27
463.52
449.525
444.831
434.663
421.368
447.7
449.535
427.949
420.037
410.086
415.262
417.449
409.993
399.221
396.807
383.195
389.809
415.628
415.317
398.67
393.133
392.407
406.055
415.708
420.392
425.146
426.731
419.524
428.754
454.782
457.397
440.141
433.264
430.672
447.805
452.691

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' @ 72.249.127.135

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=102548&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' @ 72.249.127.135






Univariate Dataseries
Name of dataseries25-50 jaar (Leeftijd)
Sourcebelgostat.be
DescriptionDe werkloosheid in tijd
Number of observations73

\begin{tabular}{lllllllll}
\hline
Univariate Dataseries \tabularnewline
Name of dataseries & 25-50 jaar (Leeftijd) \tabularnewline
Source & belgostat.be \tabularnewline
Description & De werkloosheid in tijd \tabularnewline
Number of observations & 73 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=102548&T=1

[TABLE]
[ROW][C]Univariate Dataseries[/C][/ROW]
[ROW][C]Name of dataseries[/C][C]25-50 jaar (Leeftijd)[/C][/ROW]
[ROW][C]Source[/C][C]belgostat.be[/C][/ROW]
[ROW][C]Description[/C][C]De werkloosheid in tijd[/C][/ROW]
[ROW][C]Number of observations[/C][C]73[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=102548&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=102548&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 dataseries25-50 jaar (Leeftijd)
Sourcebelgostat.be
DescriptionDe werkloosheid in tijd
Number of observations73


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
par1 = 25-50 jaar (Leeftijd) ; par2 = belgostat.be ; par3 = De werkloosheid in tijd ; par4 = 12 ;
Parameters (R input):
par1 = 25-50 jaar (Leeftijd) ; par2 = belgostat.be ; par3 = De werkloosheid in tijd ; 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')