Free Statistics

of Irreproducible Research!

Author's title

Author*Unverified author*
R Software Modulerwasp_univariatedataseries.wasp
Title produced by softwareUnivariate Data Series
Date of computationFri, 30 May 2008 12:58:36 -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/2008/May/30/t121217417568ntui86j1b0dpm.htm/, Retrieved Tue, 14 May 2024 18:15:00 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=13551, Retrieved Tue, 14 May 2024 18:15:00 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywordsStock,Exonn mobile,weekly close bars
Estimated Impact240
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Univariate Data Series] [XOM_EOW] [2008-05-30 18:58:36] [d41d8cd98f00b204e9800998ecf8427e] [Current]
Feedback Forum

Post a new message
Dataseries X:
32.86
33.71
34.24
33.30
32.83
32.55
32.14
32.39
32.28
31.90
32.97
33.48
33.21
34.27
34.52
34.30
33.62
33.43
34.32
34.81
35.14
34.41
33.25
32.55
32.95
32.35
33.14
33.67
34.84
36.25
36.66
37.19
36.88
37.07
37.57
37.34
37.08
38.60
38.71
38.84
39.14
38.71
38.22
37.52
38.60
39.10
40.40
39.58
39.19
39.84
40.11
39.49
40.09
40.20
40.77
41.70
41.02
41.46
42.13
42.49
42.01
42.92
41.83
41.89
42.20
42.38
43.89
44.18
45.11
44.61
45.59
46.48
45.71
45.42
45.90
46.99
47.27
47.24
48.43
47.13
47.02
46.69
48.73
48.06
46.68
47.88
47.29
48.07
51.84
52.87
55.98
59.60
59.90
57.52
59.03
55.59
57.05
56.54
52.94
55.99
53.73
54.27
50.85
51.15
53.79
54.12
55.29
57.66
55.07
55.22
56.25
55.08
56.35
55.64
55.01
58.10
55.98
55.59
57.75
60.14
60.62
60.74
60.47
56.72
55.80
52.69
53.59
55.10
54.06
55.72
57.50
56.50
55.96
55.54
54.62
53.73
56.85
58.32
57.90
58.62
58.72
57.15
58.22
58.10
58.64
56.91
58.71
58.82
58.52
58.97
59.20
62.50
60.66
61.54
60.15
58.42
59.51
59.58
56.83
56.83
56.15
59.29
60.73
62.72
61.78
64.75
66.38
67.70
67.09
68.38
66.12
64.87
62.77
63.02
65.15
65.56
66.41
67.53
69.38
70.05
72.57
71.26
70.58
75.28
73.62
75.38
73.53
74.72
71.42
70.85
71.70
71.78
73.66
73.66
73.73
73.66
68.56
69.65
68.41
73.47
73.89
75.62
75.81
78.11
78.69
78.88
79.89
81.89
82.13
82.83
81.32
84.52
81.16
82.50
85.03
88.84
90.42
84.18
80.73
83.45
83.08
84.61
84.65
84.67
87.56
91.15
91.40
90.21
92.31
90.98
91.05
86.83
86.09
84.36
87.52
88.38
90.70
90.38
92.61
94.17
91.28
89.51
84.34
83.21
85.20
81.35
84.99
86.78
86.62
82.12
85.53
84.62
84.84
88.35
88.23
93.58
92.05
89.21
88.82
92.67
90.70
89.35




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time2 seconds
R Server'Sir Ronald Aylmer Fisher' @ 193.190.124.24

\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 & 2 seconds \tabularnewline
R Server & 'Sir Ronald Aylmer Fisher' @ 193.190.124.24 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=13551&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]2 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'Sir Ronald Aylmer Fisher' @ 193.190.124.24[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=13551&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=13551&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 time2 seconds
R Server'Sir Ronald Aylmer Fisher' @ 193.190.124.24







Univariate Dataseries
Name of dataseriesXOM_EOW
SourceYahoo EOW
DescriptionExon mobile stock weekly bars
Number of observations262

\begin{tabular}{lllllllll}
\hline
Univariate Dataseries \tabularnewline
Name of dataseries & XOM_EOW \tabularnewline
Source & Yahoo EOW \tabularnewline
Description & Exon mobile stock weekly bars \tabularnewline
Number of observations & 262 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=13551&T=1

[TABLE]
[ROW][C]Univariate Dataseries[/C][/ROW]
[ROW][C]Name of dataseries[/C][C]XOM_EOW[/C][/ROW]
[ROW][C]Source[/C][C]Yahoo EOW[/C][/ROW]
[ROW][C]Description[/C][C]Exon mobile stock weekly bars[/C][/ROW]
[ROW][C]Number of observations[/C][C]262[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=13551&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=13551&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 dataseriesXOM_EOW
SourceYahoo EOW
DescriptionExon mobile stock weekly bars
Number of observations262



Parameters (Session):
par1 = XOM_EOW ; par2 = Yahoo EOW ; par3 = Exon mobile stock weekly bars ;
Parameters (R input):
par1 = XOM_EOW ; par2 = Yahoo EOW ; par3 = Exon mobile stock weekly bars ;
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')