Free Statistics

of Irreproducible Research!

Author's title

Author*Unverified author*
R Software Modulerwasp_univariatedataseries.wasp
Title produced by softwareUnivariate Data Series
Date of computationSun, 07 Feb 2010 08:04:58 -0700
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2010/Feb/07/t1265555939d67plz15lflnju8.htm/, Retrieved Thu, 18 Apr 2024 18:46:02 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=72837, Retrieved Thu, 18 Apr 2024 18:46:02 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywordsKDGP1W1
Estimated Impact213
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Univariate Data Series] [Opdracht 1: Indus...] [2010-02-07 15:04:58] [d38ec69e6463020b6f9ce85941b20918] [Current]
Feedback Forum

Post a new message
Dataseries X:
562.674
599.000
668.516
597.798
579.889
668.233
499.232
215.187
555.813
586.935
546.136
571.111
634.712
639.283
712.182
621.557
621.000
675.989
501.322
220.286
560.727
602.530
626.379
605.508
646.783
658.442
712.906
687.714
723.916
707.183
629.000
237.530
613.296
730.444
734.925
651.812
676.155
748.183
810.681
729.363
701.108
790.079
594.621
230.716
617.189
691.389
701.067
705.777
747.636
773.392
813.788
766.713
728.875
749.197
680.954
241.424
680.234
708.326
694.238
772.071
795.337
788.421
889.968
797.393
751.000
821.255
691.605
290.655
727.147
868.355
812.390
799.556
843.038
847.000
941.952
804.309
840.307
871.528
656.330
370.508
742.000
847.152
731.675
898.527
778.139
856.075
938.833
813.023
783.417
828.110
657.311
310.032
780.000
860.000
780.000
807.993
895.217
856.075
893.268
875.000
835.088
934.595
832.500
300.000
791.443
900.000
781.729
880.000
875.024
992.968
976.804
968.697
871.675
1006.852
832.037
345.587
849.528
913.871
868.746
993.733




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'Gwilym Jenkins' @ 72.249.127.135

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=72837&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'Gwilym Jenkins' @ 72.249.127.135







Univariate Dataseries
Name of dataseriesIndustriele verkoop van papier
Sourcehttp://www.robjhyndman.com/TSDL/index.htm
DescriptionIndustriele verkoop van papier, uitgedrukt in duizenden Franse franken. In een periode van januari 1963 tot december 1972
Number of observations120

\begin{tabular}{lllllllll}
\hline
Univariate Dataseries \tabularnewline
Name of dataseries & Industriele verkoop van papier \tabularnewline
Source & http://www.robjhyndman.com/TSDL/index.htm \tabularnewline
Description & Industriele verkoop van papier, uitgedrukt in duizenden Franse franken. In een periode van januari 1963 tot december 1972 \tabularnewline
Number of observations & 120 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=72837&T=1

[TABLE]
[ROW][C]Univariate Dataseries[/C][/ROW]
[ROW][C]Name of dataseries[/C][C]Industriele verkoop van papier[/C][/ROW]
[ROW][C]Source[/C][C]http://www.robjhyndman.com/TSDL/index.htm[/C][/ROW]
[ROW][C]Description[/C][C]Industriele verkoop van papier, uitgedrukt in duizenden Franse franken. In een periode van januari 1963 tot december 1972[/C][/ROW]
[ROW][C]Number of observations[/C][C]120[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=72837&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=72837&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 dataseriesIndustriele verkoop van papier
Sourcehttp://www.robjhyndman.com/TSDL/index.htm
DescriptionIndustriele verkoop van papier, uitgedrukt in duizenden Franse franken. In een periode van januari 1963 tot december 1972
Number of observations120



Parameters (Session):
par1 = Industriele verkoop van papier ; par2 = http://www.robjhyndman.com/TSDL/index.htm ; par3 = Industriele verkoop van papier, uitgedrukt in duizenden Franse franken. In een periode van januari 1963 tot december 1972 ;
Parameters (R input):
par1 = Industriele verkoop van papier ; par2 = http://www.robjhyndman.com/TSDL/index.htm ; par3 = Industriele verkoop van papier, uitgedrukt in duizenden Franse franken. In een periode van januari 1963 tot december 1972 ;
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')