Free Statistics

of Irreproducible Research!

Author's title

Author*Unverified author*
R Software Modulerwasp_univariatedataseries.wasp
Title produced by softwareUnivariate Data Series
Date of computationMon, 26 Jan 2015 11:21:30 +0000
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2015/Jan/26/t14222714553cjwm7kvpoenwyb.htm/, Retrieved Mon, 13 May 2024 21:38:07 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=276151, Retrieved Mon, 13 May 2024 21:38:07 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact168
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Univariate Data Series] [] [2015-01-26 11:21:30] [d41d8cd98f00b204e9800998ecf8427e] [Current]
Feedback Forum

Post a new message
Dataseries X:
352
314
329
258
242
225
224
228
227
249
281
307
324
297
292
245
254
242
244
245
255
295
318
345
338
316
320
273
246
234
242
236
248
283
284
318
342
303
299
238
237
223
235
229
248
279
287
346
371
326
319
271
266
240
235
233
248
290
320
371
337
303
303
241
245
233
235
236
241
270
293
310
325
343
287
267
244
228
231
230
233
273
292
316
339
309
321
261
252
228
230
230
235
256
290
306
195
170
170
114
88
78
76
79
77
99
133
154
159
145
135
96
88
77
76
79
89
122
150
179
167
155
156
122
84
79
78
78
96
126
141
172
191
157
141
92
82
82
86
83
94
129
137
192
219
185
161
118
112
84
81
82
95
131
158
217
184
158
149
99
94
80
83
85
87
114
142
158
166
186
123
114
86
79
69
71
78
108
135
158
183
169
170
112
94
76
67
67
79
98
132
150




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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=276151&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' @ jenkins.wessa.net







Univariate Dataseries
Name of dataseriesXXXXX
Sourcecbs statline
Descriptionenergieverbruik PJ
Number of observations192

\begin{tabular}{lllllllll}
\hline
Univariate Dataseries \tabularnewline
Name of dataseries & XXXXX \tabularnewline
Source & cbs statline \tabularnewline
Description & energieverbruik PJ \tabularnewline
Number of observations & 192 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=276151&T=1

[TABLE]
[ROW][C]Univariate Dataseries[/C][/ROW]
[ROW][C]Name of dataseries[/C][C]XXXXX[/C][/ROW]
[ROW][C]Source[/C][C]cbs statline[/C][/ROW]
[ROW][C]Description[/C][C]energieverbruik PJ[/C][/ROW]
[ROW][C]Number of observations[/C][C]192[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=276151&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=276151&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 dataseriesXXXXX
Sourcecbs statline
Descriptionenergieverbruik PJ
Number of observations192



Parameters (Session):
par1 = XXXXX ; par2 = cbs statline ; par3 = energieverbruik PJ ; par4 = 12 ;
Parameters (R input):
par1 = XXXXX ; par2 = cbs statline ; par3 = energieverbruik PJ ; 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')