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 computationTue, 29 Nov 2011 04:38:01 -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/2011/Nov/29/t1322559526o58wio0c9x0dan6.htm/, Retrieved Thu, 28 Mar 2024 13:35:03 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=148134, Retrieved Thu, 28 Mar 2024 13:35:03 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact115
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Univariate Data Series] [] [2011-11-29 09:38:01] [3bdb54d050744f47368418ea7c7e8e96] [Current]
Feedback Forum

Post a new message
Dataseries X:
193572
180303
178978
183016
173405
185085
197695
176908
201772
217889
186296
178952
182010
160719
175751
184732
181583
180793
184314
174547
181904
180553
188285
184075
184710
185165
183858
176374
179867
152919
134569
170594
175472
172444
167593
178081
176617
167033
171483
174373
169615
169627
167165
171452
172603
164246
164538
184937
173475
167173
162951
162925
165517
176580
163429
161378
169646
168842
162903
166636
174396
189289
174750
165089
162605
169358
172718
162125
162719
169897
169705
169465
163228
180314
168509
160680
173548
159224
162800
163336
163625
148873
142365
168464
162302
161287
155836
161265
162697
178590
162764
155748
168340
156793
170320
149149
166763
165642
154608
160565
157996
155448
155564
159700
157902
152370
156769
175004
159617
151568
155308
139183
153829
155532
147321
143100
146407
159126
163729
153325
147558
153640
148529
163150
156807
156221
154862
151588
161384
148655
155579
150044
156718
153577
138813
149389
161463
150575
147350
156568




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'Gertrude Mary Cox' @ cox.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 & 'Gertrude Mary Cox' @ cox.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=148134&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]'Gertrude Mary Cox' @ cox.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=148134&T=0

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







Univariate Dataseries
Name of dataseriesQTafelbier
Source
Description
Number of observations140

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

[TABLE]
[ROW][C]Univariate Dataseries[/C][/ROW]
[ROW][C]Name of dataseries[/C][C]QTafelbier[/C][/ROW]
[ROW][C]Source[/C][C][/C][/ROW]
[ROW][C]Description[/C][C][/C][/ROW]
[ROW][C]Number of observations[/C][C]140[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=148134&T=1

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



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