FreeStatistics.org

Free Statistics

of Irreproducible Research!

Description of Statistical Computation

Author's title

Author*Unverified author*
R Software Modulerwasp_univariatedataseries.wasp
Title produced by softwareUnivariate Data Series
Date of computationMon, 12 Aug 2013 09:16:39 -0400
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/Aug/12/t13763135108rt9aafn47l2vdf.htm/, Retrieved Sat, 27 Apr 2024 13:40:11 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=211030, Retrieved Sat, 27 Apr 2024 13:40:11 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywordsStefanie Gubbi
Estimated Impact119

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Univariate Data Series] [Tijdreeks 1 - Stap 2] [2013-08-12 13:16:39] [3958f9c0a64aeec6b83979b094ee8a96] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
196088
192639
189187
182286
252115
248662
196088
161176
164624
164624
168076
175352
154275
133164
115877
115877
182286
189187
136613
77137
108601
108601
133164
147340
143888
108601
126263
119329
178804
164624
108601
66754
105149
115877
126263
140065
112050
87865
98252
101700
192639
192639
140065
133164
154275
143888
171903
206816
213750
164624
150789
136613
231378
238313
220651
238313
234827
206816
238313
273225
287402
245214
217199
238313
329249
357263
350363
364161
360712
325800
385275
399451
420187
357263
332701
360712
427463
486938
472762
472762
479696
455474
518436
518436
507708
448199
458927
465861
511501
570976
528785
549899
532237
521884
602474
584812
560249
525336
560249
577911
598988
626999
598988
616275
595195
591746
679233
686508
658497
609374
651221
668850
689961
721424
689961
714523
703796
665398
745984
745984

Tables (Output of Computation)





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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=211030&T=0

As an alternative you can also use a QR Code:  
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 time5 seconds
R Server'George Udny Yule' @ yule.wessa.net


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
par1 = Omzet UK Shipping (EUR) ; par2 = Niet gekend ; par3 = Deze reeks geeft de omzet weer, die de UK maandelijks verkrijgt via "Shipping" ; par4 = 12 ;
Parameters (R input):
par1 = Omzet UK Shipping (EUR) ; par2 = Niet gekend ; par3 = Deze reeks geeft de omzet weer, die de UK maandelijks verkrijgt via "Shipping" ; 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')