Free Statistics

of Irreproducible Research!

Author's title

Author*Unverified author*
R Software Modulerwasp_univariatedataseries.wasp
Title produced by softwareUnivariate Data Series
Date of computationMon, 27 Sep 2010 18:22:24 +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/Sep/27/t1285611775pl8kpr2rcfn0ruw.htm/, Retrieved Fri, 03 May 2024 18:24:03 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=79573, Retrieved Fri, 03 May 2024 18:24:03 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact285
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Univariate Data Series] [KatrienMonnens, M...] [2010-09-27 18:22:24] [d41d8cd98f00b204e9800998ecf8427e] [Current]
Feedback Forum

Post a new message
Dataseries X:
31.045
31.165
31.160
31.120
31.290
31.420
31.360
31.255
31.495
31.380
31.200
31.545
31.665
31.920
31.445
31.170
31.355
31.265
31.480
31.305
31.250
30.500
31.405
31.355
31.200
31.090
31.005
30.790
30.515
30.590
30.675
30.450
30.050
29.480
29.235
29.200
29.135
29.150
29.115
28.695
29.010
28.840
28.890
28.665
29.335
29.670
29.800
29.770
30.500
29.320
29.555
29.865
30.520
30.669
30.850
30.850
30.330
30.535
30.350
30.945
31.030
31.125
32.445
32.550
32.585
32.640
32.550
32.260
32.520
32.350
32.630
32.270
32.015
32.335
32.180
32.360
32.390
32.520
33.185
33.740
32.580
31.720
31.975
32.080
32.155
31.740
31.435
31.755
31.635
31.365
30.320
30.810
31.960
31.535
32.120
31.380
30.610
29.355
30.210
29.645
29.050
28.960
28.630




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'Sir Ronald Aylmer Fisher' @ 193.190.124.24

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=79573&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'Sir Ronald Aylmer Fisher' @ 193.190.124.24







Univariate Dataseries
Name of dataseriesGoudprijs
Sourcewww.belgostat.be
Descriptiongoudprijs euro/kilo
Number of observations103

\begin{tabular}{lllllllll}
\hline
Univariate Dataseries \tabularnewline
Name of dataseries & Goudprijs \tabularnewline
Source & www.belgostat.be \tabularnewline
Description & goudprijs euro/kilo \tabularnewline
Number of observations & 103 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=79573&T=1

[TABLE]
[ROW][C]Univariate Dataseries[/C][/ROW]
[ROW][C]Name of dataseries[/C][C]Goudprijs[/C][/ROW]
[ROW][C]Source[/C][C]www.belgostat.be[/C][/ROW]
[ROW][C]Description[/C][C]goudprijs euro/kilo[/C][/ROW]
[ROW][C]Number of observations[/C][C]103[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=79573&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=79573&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 dataseriesGoudprijs
Sourcewww.belgostat.be
Descriptiongoudprijs euro/kilo
Number of observations103



Parameters (Session):
par1 = Goudprijs ; par2 = www.belgostat.be ; par3 = goudprijs euro/kilo ; par4 = 12 ;
Parameters (R input):
par1 = Goudprijs ; par2 = www.belgostat.be ; par3 = goudprijs euro/kilo ; 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')