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, 08 Feb 2016 13:31:22 +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/2016/Feb/08/t1454938354dz3j9reqkrheax4.htm/, Retrieved Sat, 04 May 2024 02:43:02 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=291921, Retrieved Sat, 04 May 2024 02:43:02 +0000
QR Codes:

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

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] [] [2016-02-08 13:31:22] [3e335ee00fe90bc89d5a716289abc4a1] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
8103
8145
7909
7663
6921
6906
7399
7941
8616
8885
8887
8905
8942
8793
8729
8286
8059
7548
8047
8481
8955
8827
8602
7833
7750
7539
7071
6789
6496
6365
6943
7269
7690
7839
7683
7559
7737
7493
7045
6782
6372
6333
6789
7424
7572
7724
7671
7645
7778
7516
7070
6765
6565
6133
6160
6277
6605
6902
6819
6760
6295
5664
5351
4957
4644
4365
4758
4811
5148
5533
5608
5391
5310
5045
4646
4518
4130
3936
4296
4443
4857
4949
4958
4790
4662
4457
4058
3790
3582
3174
3581
4146
4311
4293
4227
4201
4155
3799
3485
3488
3241
3101
3544
3879
4315
4429
4521
4714
4643
4796
4580
4332
4205
4079
4258
4586
4596
5126
5488
5524
5430
5525
5147
5045
4713
4665
5225
5706
5554
5977
5882
6130
6255
6376
6219
5810
5904
5750
6571
6453
6707
7586
7633
7603
7709
7421
7232
6792
6503
6340
6612
7036
7424
7675
7388
7231
7360
7344
7411
7236
6894
6511
6825
6969
7257
7506
7573
7637
7654
7579
7383
7290
6993
6602
7099
7219
7840
8072
7862
7827
7675
7636
7449
7298
7021
6743
6904
7144
7787
7959
7766
7518
7554
7380
7267
6930

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=291921&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'Gertrude Mary Cox' @ cox.wessa.net






Univariate Dataseries
Name of dataseriesNWWZ, Man, -25Jr, Brussel
SourceNBB.Stat
DescriptionNWWZ, Man, -25jr, Brussel
Number of observations196

\begin{tabular}{lllllllll}
\hline
Univariate Dataseries \tabularnewline
Name of dataseries & NWWZ, Man, -25Jr, Brussel \tabularnewline
Source & NBB.Stat \tabularnewline
Description & NWWZ, Man, -25jr, Brussel \tabularnewline
Number of observations & 196 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=291921&T=1

[TABLE]
[ROW][C]Univariate Dataseries[/C][/ROW]
[ROW][C]Name of dataseries[/C][C]NWWZ, Man, -25Jr, Brussel[/C][/ROW]
[ROW][C]Source[/C][C]NBB.Stat[/C][/ROW]
[ROW][C]Description[/C][C]NWWZ, Man, -25jr, Brussel[/C][/ROW]
[ROW][C]Number of observations[/C][C]196[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=291921&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=291921&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 dataseriesNWWZ, Man, -25Jr, Brussel
SourceNBB.Stat
DescriptionNWWZ, Man, -25jr, Brussel
Number of observations196


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
par1 = NWWZ, Man, -25Jr, Brussel ; par2 = NBB.Stat ; par3 = NWWZ, Man, -25jr, Brussel ; par4 = 12 ;
Parameters (R input):
par1 = NWWZ, Man, -25Jr, Brussel ; par2 = NBB.Stat ; par3 = NWWZ, Man, -25jr, Brussel ; par4 = 12 ;
R code (references can be found in the software module):
par4 <- '12'
par3 <- 'NWWZ, Man, -25jr, Brussel'
par2 <- 'NBB.Stat'
par1 <- 'NWWZ, Man, -25Jr, Brussel'
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')