Free Statistics

of Irreproducible Research!

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, 22 Dec 2010 14:51:46 +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/Dec/22/t1293029419upyn5w6kpwrcmxp.htm/, Retrieved Mon, 06 May 2024 10:00:18 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=114287, Retrieved Mon, 06 May 2024 10:00:18 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact139
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Univariate Data Series] [] [2009-10-12 09:03:04] [ebd107afac1bd6180acb277edd05815b]
-  MPD  [Univariate Data Series] [Paper uitvoer bel...] [2010-11-30 11:19:39] [247f085ab5b7724f755ad01dc754a3e8]
- R PD    [Univariate Data Series] [Werklozen - werka...] [2010-12-17 13:26:05] [8d09066a9d3795298da6860e7d4a4400]
-   P         [Univariate Data Series] [Werklozen - werka...] [2010-12-22 14:51:46] [1b6bbf3cf94635fe119752c144706ab0] [Current]
Feedback Forum

Post a new message
Dataseries X:
195604
186714
180402
174920
169839
163771
195483
211995
184523
173422
166568
171663
167913
160062
150581
150717
142447
142194
173819
189760
162856
153987
147713
151521
150763
146592
141482
143742
138181
140113
170498
185386
180257
173559
166979
173568
170732
166456
163503
158432
155658
157451
198746
207509
191659
183850
184508
187118
187978
182220
179241
179794
175964
180510
223345
233923
215779
207922
199751
204793
204238
201201
194188
191388
188755
186869
230429
248513
230247
232735
222654
227883
223812
217269
210790
205977
202206
201170
243622
251061
232563
226300
214870
218161
202880
200059
190667
198040
189077
190520
221806
221619
210208
188234
179655
178426
171418
163217
151606
148948
143963
141879
177683
178497
159000
147838
145186
153861
143491
138955
139986
134160
128423
134210
165688
166027
149440
146236
149876
161065
166428
169930
170485
169413
167184
175652
207854
210493
195862
188615
189263
204932
195014
193494
180143
182119
174024
172620
209361
208194
186646
179043
175644




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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=114287&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 dataseriesWerkloosheid - werkaanbod
SourceVDAB
Description
Number of observations143

\begin{tabular}{lllllllll}
\hline
Univariate Dataseries \tabularnewline
Name of dataseries & Werkloosheid - werkaanbod \tabularnewline
Source & VDAB \tabularnewline
Description &  \tabularnewline
Number of observations & 143 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=114287&T=1

[TABLE]
[ROW][C]Univariate Dataseries[/C][/ROW]
[ROW][C]Name of dataseries[/C][C]Werkloosheid - werkaanbod[/C][/ROW]
[ROW][C]Source[/C][C]VDAB[/C][/ROW]
[ROW][C]Description[/C][C][/C][/ROW]
[ROW][C]Number of observations[/C][C]143[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=114287&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=114287&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 dataseriesWerkloosheid - werkaanbod
SourceVDAB
Description
Number of observations143



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