FreeStatistics.org

Free Statistics

of Irreproducible Research!

Description of Statistical Computation

Author's title

Author*Unverified author*
R Software Modulerwasp_univariatedataseries.wasp
Title produced by softwareUnivariate Data Series
Date of computationTue, 10 Aug 2010 10:38:22 +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/2010/Aug/10/t1281436806zqq80i7yhzvofkq.htm/, Retrieved Sun, 05 May 2024 07:34:03 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=78551, Retrieved Sun, 05 May 2024 07:34:03 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywordsDe Pessemier Jeremy
Estimated Impact140

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Univariate Data Series] [tijdreeks 1 - stap 2] [2010-08-10 10:38:22] [32a63dbffc7be1ee879fd4b0dabe8489] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
41
40
39
37
57
56
41
31
32
32
33
35
30
19
20
24
47
49
36
23
21
29
30
35
29
27
25
28
45
43
34
22
18
24
19
29
29
22
15
25
44
52
43
37
41
47
45
51
48
46
35
42
61
60
49
45
50
60
60
68
63
64
51
50
69
68
61
55
68
77
81
90
83
92
76
72
92
92
83
78
91
93
93
104
97
99
81
80
103
103
93
88
101
104
110
109
113
111
94
92
109
103
91
93
105
109
122
115
120
117
100
94
108
101
97
96
111
121
130
118

Tables (Output of Computation)





Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time2 seconds
R Server'RServer@AstonUniversity' @ vre.aston.ac.uk

\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 & 'RServer@AstonUniversity' @ vre.aston.ac.uk \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=78551&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]'RServer@AstonUniversity' @ vre.aston.ac.uk[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=78551&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=78551&T=0

As an alternative you can also use a QR Code:  
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'RServer@AstonUniversity' @ vre.aston.ac.uk






Univariate Dataseries
Name of dataseriesaantal bezoekers
Sourceniet gekend
Descriptionaantal bezoekers van voorbije 9jaar
Number of observations120

\begin{tabular}{lllllllll}
\hline
Univariate Dataseries \tabularnewline
Name of dataseries & aantal bezoekers \tabularnewline
Source & niet gekend \tabularnewline
Description & aantal bezoekers van voorbije 9jaar \tabularnewline
Number of observations & 120 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=78551&T=1

[TABLE]
[ROW][C]Univariate Dataseries[/C][/ROW]
[ROW][C]Name of dataseries[/C][C]aantal bezoekers[/C][/ROW]
[ROW][C]Source[/C][C]niet gekend[/C][/ROW]
[ROW][C]Description[/C][C]aantal bezoekers van voorbije 9jaar[/C][/ROW]
[ROW][C]Number of observations[/C][C]120[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=78551&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=78551&T=1

As an alternative you can also use a QR Code:  
QR Code


The GUIDs for individual cells are displayed in the table below:

Univariate Dataseries
Name of dataseriesaantal bezoekers
Sourceniet gekend
Descriptionaantal bezoekers van voorbije 9jaar
Number of observations120


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
par1 = aantal bezoekers ; par2 = niet gekend ; par3 = aantal bezoekers van voorbije 9jaar ; par4 = 12 ;
Parameters (R input):
par1 = aantal bezoekers ; par2 = niet gekend ; par3 = aantal bezoekers van voorbije 9jaar ; 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')