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 computationFri, 25 Nov 2011 07:36:36 -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/25/t1322224688vk7vwd56jxcnlp8.htm/, Retrieved Thu, 31 Oct 2024 23:17:27 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=147300, Retrieved Thu, 31 Oct 2024 23:17:27 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact160
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
F     [Univariate Data Series] [HPC Retail Sales] [2008-03-02 15:42:48] [74be16979710d4c4e7c6647856088456]
- RMPD    [Univariate Data Series] [] [2011-11-25 12:36:36] [858ef1d716a843f745df26a736207017] [Current]
Feedback Forum

Post a new message
Dataseries X:
 68897 
 38683 
 44720 
 39525 
 45315 
 50380 
 40600 
 36279 
 42438 
 38064 
 31879 
 11379 
 70249 
 39253 
 47060 
 41697 
 38708 
 49267 
 39018 
 32228 
 40870 
 39383 
 34571 
 12066 
 70938 
 34077 
 45409 
 40809 
 37013 
 44953 
 37848 
 32745 
 39401 
 34931 
 33008 
 8620 
 68906 
 39556 
 50669 
 36432 
 40891 
 48428 
 36222 
 33425 
 39401 
 37967 
 34801 
 12657 
 69116 
 41519 
 51321 
 38529 
 41547 
 52073 
 38401 
 40898 
 40439 
 41888 
 37898 
 8771 
 68184 
 50530 
 47221 
 41756 
 45633 
 48138 
 39486 
 39341 
 41117 
 41629 
 29722 
 7054 
 56676 
 34870 
 35117 
 30169 
 30936 
 35699 
 33228 
 27733 
 33666 
 35429 
 27438 
 8170 
 63410 
 38040 
 45389 
 37353 
 37024 
 50957 
 37994 
 36454 
 46080 
 43373 
 37395 




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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=147300&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 time11 seconds
R Server'AstonUniversity' @ aston.wessa.net



Parameters (Session):
par1 = CO2 uitstoot ; par4 = 12 ;
Parameters (R input):
par1 = CO2 uitstoot ; par2 = ; par3 = ; par4 = 12 ;
R code (references can be found in the software module):
bitmap(file='test1.png')
plot(x,col=2,type='b',main=main,xlab=xlab,ylab=ylab)
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')