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 computationWed, 16 Nov 2011 14:43:33 -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/16/t132147262975ic78jqq5qv7fy.htm/, Retrieved Thu, 28 Mar 2024 09:10:22 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=144163, Retrieved Thu, 28 Mar 2024 09:10:22 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact89
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Univariate Data Series] [Arabica Price in ...] [2008-01-05 23:43:18] [74be16979710d4c4e7c6647856088456]
- RMPD    [Univariate Data Series] [] [2011-11-16 19:43:33] [d160b678fd2d7bb562db2147d7efddc2] [Current]
Feedback Forum

Post a new message
Dataseries X:
87,28
87,28
87,09
86,92
87,59
90,72
90,69
90,3
89,55
88,94
88,41
87,82
87,07
86,82
86,4
86,02
85,66
85,32
85
84,67
83,94
82,83
81,95
81,19
80,48
78,86
69,47
68,77
70,06
73,95
75,8
77,79
81,57
83,07
84,34
85,1
85,25
84,26
83,63
86,44
85,3
84,1
83,36
82,48
81,58
80,47
79,34
82,13
81,69
80,7
79,88
79,16
78,38
77,42
76,47
75,46
74,48
78,27
80,7
79,91
78,75
77,78
81,14
81,08
80,03
78,91
78,01
76,9
75,97
81,93
80,27
78,67
77,42
76,16
74,7
76,39
76,04
74,65
73,29
71,79
74,39
74,91
74,54
73,08
72,75
71,32
70,38
70,35
70,01
69,36
67,77
69,26
69,8
68,38
67,62
68,39
66,95
65,21
66,64
63,45
60,66
62,34
60,32
58,64
60,46
58,59
61,87
61,85
67,44
77,06
91,74
93,15
94,15
93,11
91,51
89,96
88,16
86,98
88,03
86,24
84,65
83,23
81,7
80,25
78,8
77,51
76,2
75,04
74
75,49
77,14
76,15
76,27
78,19
76,49
77,31
76,65
74,99
73,51
72,07
70,59
71,96
76,29
74,86
74,93
71,9
71,01
77,47
75,78
76,6
76,07
74,57
73,02
72,65
73,16
71,53
69,78
67,98
69,96
72,16
70,47
68,86
67,37
65,87
72,16
71,34
69,93
68,44
67,16
66,01
67,25
70,91
69,75
68,59
67,48
66,31
64,81
66,58
65,97
64,7
64,7
60,94
59,08
58,42
57,77
57,11
53,31
49,96
49,4
48,84
48,3
47,74
47,24
46,76
46,29
48,9
49,23
48,53
48,03
54,34
53,79
53,24
52,96
52,17
51,7
58,55
78,2
77,03
76,19
77,15
75,87
95,47
109,67
112,28
112,01
107,93
105,96
105,06
102,98
102,2
105,23
101,85
99,89
96,23
94,76
91,51
91,63
91,54
85,23
87,83
87,38
84,44
85,19
84,03
86,73
102,52
104,45
106,98
107,02
99,26
94,45
113,44
157,33
147,38
171,89
171,95
132,71
126,02
121,18
115,45
110,48
117,85
117,63
124,65
109,59
111,27
99,78
98,21
99,2
97,97
89,55
87,91
93,34
94,42
93,2
90,29
91,46
89,98
88,35
88,41
82,44
79,89
75,69
75,66
84,5
96,73
87,48
82,39
83,48
79,31
78,16
72,77
72,45
68,46
67,62
68,76
70,07
68,55
65,3
58,96
59,17
62,37
66,28
55,62
55,23
55,85
56,75
50,89
53,88
52,95
55,08
53,61
58,78
61,85
55,91
53,32
46,41
44,57
50
50
53,36
46,23
50,45
49,07
45,85
48,45
49,96
46,53
50,51
47,58
48,05
46,84
47,67
49,16
55,54
55,82
58,22
56,19
57,77
63,19
54,76
55,74
62,54
61,39
69,6
79,23
80
93,68
107,63
100,18
97,3
90,45
80,64
80,58
75,82
85,59
89,35
89,42
104,73
95,32
89,27
90,44
86,97
79,98
81,22
87,35
83,64
82,22
94,4
102,18




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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=144163&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 time0 seconds
R Server'Gertrude Mary Cox' @ cox.wessa.net







Univariate Dataseries
Name of dataseries
Source
Description
Number of observations360

\begin{tabular}{lllllllll}
\hline
Univariate Dataseries \tabularnewline
Name of dataseries &  \tabularnewline
Source &  \tabularnewline
Description &  \tabularnewline
Number of observations & 360 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=144163&T=1

[TABLE]
[ROW][C]Univariate Dataseries[/C][/ROW]
[ROW][C]Name of dataseries[/C][C][/C][/ROW]
[ROW][C]Source[/C][C][/C][/ROW]
[ROW][C]Description[/C][C][/C][/ROW]
[ROW][C]Number of observations[/C][C]360[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=144163&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=144163&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 dataseries
Source
Description
Number of observations360



Parameters (Session):
par1 = 12 ;
Parameters (R input):
par1 = ; par2 = ; par3 = ; par4 = 12 ;
R code (references can be found in the software module):
if (par4 != 'No season') {
par4 <- as.numeric(par4)
if (par4 < 4) par4 <- 12
}
summary(x)
n <- length(x)
bitmap(file='test1.png')
if (par4=='No season') {
plot(x,col=2,type='b',main=main,xlab=xlab,ylab=ylab,xaxt='n')
axis(1,at=seq(1,n,10))
}
if (par4!='No season') {
plot(x,col=2,type='b',main=main,xlab=xlab,ylab=ylab,xaxt='n')
axis(1,at=seq(1,n,par4))
grid(nx=0,ny=NULL,col='black')
abline(v=seq(1,n,par4),col='black',lty='dotted')
}
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')