Free Statistics

of Irreproducible Research!

Author's title

Author*Unverified author*
R Software Modulerwasp_univariatedataseries.wasp
Title produced by softwareUnivariate Data Series
Date of computationSat, 25 Sep 2010 11:54:31 +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/25/t1285415675kgfj3q17a408cwb.htm/, Retrieved Sat, 04 May 2024 12:07:54 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=79541, Retrieved Sat, 04 May 2024 12:07:54 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywordsKDGP1W1 - Evi Van Dingenen
Estimated Impact224
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Univariate Data Series] [opdracht 1] [2010-09-25 11:54:31] [89ec97ab3733ab465a33f3d446b0a375] [Current]
Feedback Forum

Post a new message
Dataseries X:
13.193
15.234
14.718
16.961
13.945
15.876
16.226
18.316
16.748
17.904
17.209
18.950
17.225
18.710
17.236
18.687
17.580
19.568
17.381
19.580
17.260
18.661
15.658
18.674
15.908
17.475
17.725
19.562
16.368
19.555
17.743
19.867
15.703
19.324
18.162
19.074
15.323
19.704
18.375
18.352
13.927
17.795
16.761
18.902
16.239
19.158
18.279
15.698
16.239
18.431
18.414
19.801
14.995
18.706
18.232
19.409
16.263
19.017
20.298
19.891
15.203
17.845
17.502
18.532
15.737
17.770
17.224
17.601
14.940
18.507
17.635
19.392
15.699
17.661
18.243
19.643
15.770
17.344
17.229
17.322
16.148
17.916
16.917
18.109
16.306
17.757
16.018
17.951
15.953
17.761
16.607
17.749
15.453
18.099
15.981
15.343
13.173
15.366
15.888
16.506




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time2 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 & 2 seconds \tabularnewline
R Server & 'Sir Ronald Aylmer Fisher' @ 193.190.124.24 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=79541&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]2 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=79541&T=0

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







Univariate Dataseries
Name of dataseriesverkoop gewone woningen
Source
Description
Number of observations100

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

[TABLE]
[ROW][C]Univariate Dataseries[/C][/ROW]
[ROW][C]Name of dataseries[/C][C]verkoop gewone woningen[/C][/ROW]
[ROW][C]Source[/C][C][/C][/ROW]
[ROW][C]Description[/C][C][/C][/ROW]
[ROW][C]Number of observations[/C][C]100[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=79541&T=1

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



Parameters (Session):
par1 = verkoop gewone woningen ; par4 = 12 ;
Parameters (R input):
par1 = verkoop gewone woningen ; 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')