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 computationWed, 04 Apr 2012 07:30:04 -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/2012/Apr/04/t13335390422xgkd4xp9nwqutx.htm/, Retrieved Sun, 28 Apr 2024 22:15:49 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=164289, Retrieved Sun, 28 Apr 2024 22:15:49 +0000
QR Codes:

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

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] [OMEC] [2012-04-04 11:30:04] [7a9891c1925ad1e8ddfe52b8c5887b5b] [Current]
- RMPD    [Multiple Regression] [Multipele regressie] [2012-04-04 12:00:43] [91ce4971c808115c699d50336245df56]
- R  D      [Multiple Regression] [double log] [2012-04-04 12:07:18] [91ce4971c808115c699d50336245df56]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
4264830
3924674
3734753
3762290
3609739
3877594
3636415
3578195
3604342
3459513
3366571
3371277
3724848
3350830
3305159
3390736
3349758
3253655
3734250
3455433
2966726
2993716
3009320
3169713
3170061
3368934
3292638
3337344
3208306
3359130
3223078
3437159
3400156
3657576
3765613
3481921
3604800
3981340
3734078
4018173
3887417
3919880
4014466
4197758
3896531
3964742
4201847
4050512
3997402
4314479
4925744
5130631
4444855
3967319
3931250
4235952
4169219
3779064
3558810
3699466
3650693
3525633
3470276
3859094
3661155
3356365
3344440
3338684
3404294
3289319
3469252
3571850
3639914
3091730
3078149
3188115
3246082
3486992
3378187
3282306
3288345
3325749
3352262
3531954
3722622
3809365
3750617
3615286
3696556
4123959
4136163
3933392
4035576
4551202
4032195
3970893
4489016
5426127
4578224
4126390
4892100
4128697
4408721
4199465
4074767
4161758
3891319
4470302
4283111
3845962
3911471
3798478
3644313
3784029
3647134
3994662
3607836
3566008
3511412
3258665
3486573
3369443
3465544
3905224
3733881
3220642
3225812
3354461
3352261
3450652

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

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






Univariate Dataseries
Name of dataseriesQBEPIL
Source
Description
Number of observations130

\begin{tabular}{lllllllll}
\hline
Univariate Dataseries \tabularnewline
Name of dataseries & QBEPIL \tabularnewline
Source &  \tabularnewline
Description &  \tabularnewline
Number of observations & 130 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=164289&T=1

[TABLE]
[ROW][C]Univariate Dataseries[/C][/ROW]
[ROW][C]Name of dataseries[/C][C]QBEPIL[/C][/ROW]
[ROW][C]Source[/C][C][/C][/ROW]
[ROW][C]Description[/C][C][/C][/ROW]
[ROW][C]Number of observations[/C][C]130[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=164289&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=164289&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 dataseriesQBEPIL
Source
Description
Number of observations130


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
par1 = QBEPIL ; par4 = 12 ;
Parameters (R input):
par1 = QBEPIL ; par2 = ; par3 = ; 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')