Free Statistics

of Irreproducible Research!

Author's title

Author*Unverified author*
R Software Modulerwasp_univariatedataseries.wasp
Title produced by softwareUnivariate Data Series
Date of computationWed, 07 Oct 2009 12:17:11 -0600
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2009/Oct/07/t1254939713bqp87saish5bv5o.htm/, Retrieved Sat, 27 Apr 2024 14:08:01 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=44750, Retrieved Sat, 27 Apr 2024 14:08:01 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact121
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Univariate Data Series] [Datareeks - Verko...] [2009-10-07 18:17:11] [4223c028d657302779e6d755411cae22] [Current]
Feedback Forum

Post a new message
Dataseries X:
68.897
38.683 
44.720 
39.525 
45.315 
50.380 
40.600 
36.279 
42.438 
38.064 
31.879 
11.379 
70.249 
39.253 
47.060 
41.697 
38.708 
49.267 
39.018 
32.228 
40.870 
39.383 
34.571 
12.066 
70.938 
34.077 
45.409 
40.809 
37.013 
44.953 
37.848 
32.745 
43.412 
34.931 
33.008 
8.620 
68.906 
39.556 
50.669 
36.432 
40.891 
48.428 
36.222 
33.425 
39.401 
37.967 
34.801 
12.657 
69.116 
41.519 
51.321 
38.529 
41.547 
52.073 
38.401 
40.898 
40.439 
41.888 
37.898 
8.771 
68.184 
50.530 
47.221 
41.756 
45.633 
48.138 
39.486 
39.341 
41.117 
41.629 
29.722 
7.054 
56.231 
34.418 
34.568 
29.789 
30.630 
35.502 
33.091 
27.630 
33.520




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'George Udny Yule' @ 72.249.76.132

\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 & 'George Udny Yule' @ 72.249.76.132 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=44750&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]'George Udny Yule' @ 72.249.76.132[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=44750&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=44750&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'George Udny Yule' @ 72.249.76.132



Parameters (Session):
par1 = Verkoopcijfers per maand van auto's Nederland ; par2 = http://www.autoweek.nl/verkoopcijfers.php ; par3 = Deze cijfers geven de verkoop van auto's weer per maand in Nederland van januari 2003 tot en met september 2009. ;
Parameters (R input):
par1 = Verkoopcijfers per maand van auto ; par2 = http://www.autoweek.nl/verkoopcijfers.php ; par3 = Deze cijfers geven de verkoop van auto ;
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')