Free Statistics

of Irreproducible Research!

Author's title

Author*Unverified author*
R Software Modulerwasp_univariatedataseries.wasp
Title produced by softwareUnivariate Data Series
Date of computationThu, 18 Feb 2016 17:02:44 +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/2016/Feb/18/t1455814998ij6ceenjbynzud9.htm/, Retrieved Mon, 06 May 2024 23:13:30 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=292151, Retrieved Mon, 06 May 2024 23:13:30 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact108
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Univariate Data Series] [Wekelijkse verkoo...] [2016-02-18 17:02:44] [b1d105767b629000b6b6bd83f6a3d689] [Current]
- RMP     [Histogram] [Wekelijkse verkoo...] [2016-02-18 17:16:41] [f8d601cd5161acfd11d652d6c88bbc7d]
- RMP       [Kernel Density Estimation] [Wekelijkse verkoo...] [2016-02-18 17:32:04] [f8d601cd5161acfd11d652d6c88bbc7d]
- RMPD      [Univariate Data Series] [Maximumprijs bios...] [2016-02-18 17:42:05] [f8d601cd5161acfd11d652d6c88bbc7d]
Feedback Forum

Post a new message
Dataseries X:
283411
234585
207695
204000
220791
222335
303510
201602
218279
207253
217639
231043
302988
221415
213989
190507
199397
201077
261048
241508
194637
240044
253534
269220
270820
354121
315233
297098
258289
276246
246652
242945
210838
246343
234636
229011
238756
283696
226656
229790
219831
232331
315447
251031
297019
208424
311626
352320
375214
419501
664867
483142
312717
228228
230978
218033
225566
207708
241861
208381
209071
214514
195868
190208
187651
215934
213012
236845
154595
193485
231875
192259
191609
212911
238596
203033
258272
314681
289789
297541
239578
207798
254091
242544
218067
217463
229438
216485
238410
223108
221267
224802
233630
235134
309660
253229
293530
273323
297578
341589
389911
398685
629637
522502
358941
252783
236585
224995
225721
223338
228952
212759
200270
211925
191206
200511
205944
289288
186209
197515
182038
181606
223337
201213
220700
194043
224593
249907
238613
266200
274197
288601
242662
232105
267842
219037
198404
203910
209685
214274
215376
217711
224819
217142
221445
213483
282063
236194
297296
255885
264502
311580
416595
356762
537286
532855




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

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







Univariate Dataseries
Name of dataseriesWekelijkse boekverkoop Vlaanderen
Source
Description
Number of observations156

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

[TABLE]
[ROW][C]Univariate Dataseries[/C][/ROW]
[ROW][C]Name of dataseries[/C][C]Wekelijkse boekverkoop Vlaanderen[/C][/ROW]
[ROW][C]Source[/C][C][/C][/ROW]
[ROW][C]Description[/C][C][/C][/ROW]
[ROW][C]Number of observations[/C][C]156[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=292151&T=1

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



Parameters (Session):
par1 = Wekelijkse boekverkoop Vlaanderen ; par4 = 12 ;
Parameters (R input):
par1 = Wekelijkse boekverkoop Vlaanderen ; 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')