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, 31 Jan 2013 12:12:07 -0500
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2013/Jan/31/t1359652516gdbfhhipkimr3qa.htm/, Retrieved Sun, 28 Apr 2024 08:55:45 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=205973, Retrieved Sun, 28 Apr 2024 08:55:45 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact124
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Univariate Data Series] [] [2013-01-31 17:12:07] [62245d2aecd9fec3f8945b8ab574a701] [Current]
Feedback Forum

Post a new message
Dataseries X:
1 968 287
393 414
335 829
277 276
265 894
210 836
218 974
226 654
199 827
183 391
149 580
1 024 887
131 724
121 144
122 979
156 918
169 770
182 399
190 026
189 338
181 574
203 803
204 168
258 950
261 337
152 725
Gesloten
Gesloten
Gesloten
Gesloten
311 714
417 869
426 635
422 172
551 444
585 730
631 758
657 004
555 087
634 819
577 624
580 075
822 550
339 242
363 720
322 969
288 643
264 145
809 978
258 306
252 495
Gesloten
Gesloten
Gesloten
Gesloten
Gesloten
Gesloten
603 349
1 009 161
958 386
1 143 046
1 026 631
1 129 637
1 250 094
1 204 371
1 301 152
1 435 192
1 476 400
1 632 647
1 591 005
1 668 558
1 735 230
1 763 448
1 735 796
2 013 594
2 143 173
2 295 193
2 405 554
2 416 502
2 070 417
2 561 157
2 757 768
2 899 070
3 003 659
2 914 814
3 018 455
3 045 573
3 050 606
3 298 844
3 430 886
3 429 571
3 594 190
3 393 208
3 399 683
3 701 558
4 183 857
4 368 573
4 386 291
4 293 187
4 668 468
5 580 363
5 698 613
5 442 346
5 747 357
5 537 155
5 419 462
5 212 677
5 530 279
5 719 773
6 051 603
6 368 534
6 315 324
6 103 987
6 157 042
5 864 969
6 230 050
6 428 441
6 719 200
6 822 374
6 826 591
6 503 413
6 612 000




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time0 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 & 0 seconds \tabularnewline
R Server & 'Herman Ole Andreas Wold' @ wold.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=205973&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]0 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=205973&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=205973&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 time0 seconds
R Server'Herman Ole Andreas Wold' @ wold.wessa.net



Parameters (Session):
par1 = Aantal bezoekers eifeltoren ; par2 = http://nl.wikipedia.org/wiki/Eiffeltoren#Jaarlijks_bezoekersaantal_van_de_Eiffeltoren ; par3 = Aantal bezoekers eifeltoren per jaar ; par4 = 12 ;
Parameters (R input):
par1 = Aantal bezoekers eifeltoren ; par2 = http://nl.wikipedia.org/wiki/Eiffeltoren#Jaarlijks_bezoekersaantal_van_de_Eiffeltoren ; par3 = Aantal bezoekers eifeltoren per jaar ; 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')