Free Statistics

of Irreproducible Research!

Author's title

Author*Unverified author*
R Software Modulerwasp_univariatedataseries.wasp
Title produced by softwareUnivariate Data Series
Date of computationSun, 20 Feb 2011 21:06:25 +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/2011/Feb/20/t12982358451m25ykz4uap130j.htm/, Retrieved Sun, 19 May 2024 15:26:57 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=118519, Retrieved Sun, 19 May 2024 15:26:57 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywordsKDGP1W1
Estimated Impact121
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Univariate Data Series] [] [2011-02-20 21:02:34] [fa681f9c2d0d4b68475526f59b9a55ed]
-   PD    [Univariate Data Series] [] [2011-02-20 21:06:25] [27d67796c93aa2f19be3a7f001ce610e] [Current]
Feedback Forum

Post a new message
Dataseries X:
86.065
85.826
85.514
84.594
84.531
84.163
83.298
83.178
84.603
86.464
86.851
86.385
85.730
85.557
85.268
85.032
84.190
83.329
82.521
82.268
81.736
81.206
80.602
80.060
79.873
79.779
79.004
78.540
77.488
76.973
76.672
76.621
76.720
76.592
76.212
75.836
75.110
75.223
75.532
75.397
75.705
74.962
74.507
73.957
73.478
72.526
71.539
70.647
69.763
69.705
69.525
69.375
69.144
68.776
68.216
66.995
66.184
65.732
65.630
65.307
65.338
65.246
64.795
64.597
53.837
52.947
52.799
52.199
51.834
51.345
51.183
50.671
51.059
51.696
51.537
52.171
51.450
51.191
50.848
50.261
50.479




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'Herman Ole Andreas Wold' @ www.yougetit.org

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=118519&T=0

As an alternative you can also use a 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'Herman Ole Andreas Wold' @ www.yougetit.org







Univariate Dataseries
Name of dataseriesBBP
Sourcehttp://www.nbb.be/belgostat/PublicatieSelectieLinker?LinkID=656000098|910000082&Lang=N
Description
Number of observations81

\begin{tabular}{lllllllll}
\hline
Univariate Dataseries \tabularnewline
Name of dataseries & BBP \tabularnewline
Source & http://www.nbb.be/belgostat/PublicatieSelectieLinker?LinkID=656000098|910000082&Lang=N \tabularnewline
Description &  \tabularnewline
Number of observations & 81 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=118519&T=1

[TABLE]
[ROW][C]Univariate Dataseries[/C][/ROW]
[ROW][C]Name of dataseries[/C][C]BBP[/C][/ROW]
[ROW][C]Source[/C][C]http://www.nbb.be/belgostat/PublicatieSelectieLinker?LinkID=656000098|910000082&Lang=N[/C][/ROW]
[ROW][C]Description[/C][C][/C][/ROW]
[ROW][C]Number of observations[/C][C]81[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=118519&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=118519&T=1

As an alternative you can also use a QR Code:  

The GUIDs for individual cells are displayed in the table below:

Univariate Dataseries
Name of dataseriesBBP
Sourcehttp://www.nbb.be/belgostat/PublicatieSelectieLinker?LinkID=656000098|910000082&Lang=N
Description
Number of observations81



Parameters (Session):
par1 = BBP ; par2 = http://www.nbb.be/belgostat/PublicatieSelectieLinker?LinkID=656000098|910000082&Lang=N ; par4 = 4 ;
Parameters (R input):
par1 = BBP ; par2 = http://www.nbb.be/belgostat/PublicatieSelectieLinker?LinkID=656000098|910000082&Lang=N ; par3 = ; par4 = 4 ;
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')