Free Statistics

of Irreproducible Research!

Author's title

Author*Unverified author*
R Software Modulerwasp_univariatedataseries.wasp
Title produced by softwareUnivariate Data Series
Date of computationTue, 11 Aug 2009 11:34:48 -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/Aug/11/t1250012140qxtclji6cv4im45.htm/, Retrieved Wed, 01 May 2024 23:47:49 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=42557, Retrieved Wed, 01 May 2024 23:47:49 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact280
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Univariate Data Series] [Evolutie prijs ho...] [2009-08-11 17:29:10] [74be16979710d4c4e7c6647856088456]
-         [Univariate Data Series] [Evolutie prijzen ...] [2009-08-11 17:34:48] [0d1085ed835696cdd537ad5fa07600ec] [Current]
Feedback Forum

Post a new message
Dataseries X:
613.200
614.700
618.400
628.200
629.000
629.700
630.400
630.400
639.300
639.400
640.900
640.800
642.100
645.300
647.600
648.400
648.800
648.900
648.900
648.900
650.300
650.300
650.000
650.000
650.500
658.400
666.000
675.500
680.700
690.600
690.600
691.100
692.900
693.800
692.800
697.500
699.000
702.100
704.800
715.500
721.800
726.400
727.700
727.400
731.300
734.400
733.400
733.400
738.100
742.600
747.200
751.100
752.600
758.900
759.100
764.300
765.600
767.600
767.600
765.600
768.200
770.900
775.100
777.600
778.600
778.900
779.400
779.900
781.700
789.100
788.700
788.800
790.800
794.100
795.100
797.300
803.800
805.600
804.600
804.500
805.800
806.800
805.200
814.900
816.600
819.500
823.000
824.000
831.400
831.700
831.100
832.100
833.300
838.800
838.000
837.300
994.200
994.200
994.200
994.200
994.200
1.092.600
1.100.000
1.100.000
1.092.600
1.000.700
1.000.700
1.000.500
1.000.500
1.000.500
1.000.500
1.000.500
1.000.500
1.087.700
1.113.200
1.116.000
1.085.200
1.031.300
1.028.700
1.027.500
1.027.500
1.027.500
1.027.500
1.027.500
1.027.500
1.152.200
1.155.300
1.154.000
1.119.900
1.079.300
1.074.300
1.069.800




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=42557&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=42557&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=42557&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 = Evolutie prijzen hotelkamers 1998-2008 ; par2 = Belgostat ;
Parameters (R input):
par1 = Evolutie prijzen hotelkamers 1998-2008 ; par2 = Belgostat ; par3 = ;
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')