FreeStatistics.org

Free Statistics

of Irreproducible Research!

Description of Statistical Computation

Author's title

Author*The author of this computation has been verified*
R Software Modulerwasp_edauni.wasp
Title produced by softwareUnivariate Explorative Data Analysis
Date of computationSun, 01 Nov 2009 11:52:44 -0700
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/Nov/01/t1257101698d0gsbk2cm86xdho.htm/, Retrieved Mon, 06 May 2024 12:54:47 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=52390, Retrieved Mon, 06 May 2024 12:54:47 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywordsSHWS4
Estimated Impact137

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Bivariate Data Series] [Bivariate dataset] [2008-01-05 23:51:08] [74be16979710d4c4e7c6647856088456]
- RMPD    [Univariate Explorative Data Analysis] [Workshop 4 - Part1] [2009-11-01 18:52:44] [d41d8cd98f00b204e9800998ecf8427e] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
-71,29
-46,09
-26,04
13,57
47,34
60,87
56,63
49,85
44,73
39,65
29,03
24,81
20,59
17,45
15,63
4,33
-0,41
-8,38
-13,19
-27,49
-34,54
-36,90
-36,18
-36,28
-39,27
-40,39
-30,09
-32,30
-36,58
-39,04
-20,45
2,49
6,32
8,46
10,42
11,02
-1,15
6,27
0,43
-10,05
-5,95
-6,04
2,23
0,75
-8,59
-12,45
-24,17
-39,11
-41,60
-55,37
-59,36
-60,34
-61,50
-58,63
-60,28
-60,02
-59,12
-65,70
-73,37
-62,92
-62,58
-49,40
-54,48
-54,07
-51,64
-51,38
-52,62
-49,28
-48,96
-62,24
-60,08
-56,64
-52,63
-48,71
-45,82
-53,04
-52,79
-51,03
-49,83
-45,56
-52,55
-52,51
-49,43
-48,94
-43,93
-35,80
-36,27
-35,21
-33,29
-28,59
-23,26
-26,71
-26,40
-22,88
-22,58
-23,00
-20,35
-15,15
-17,38
-12,30
-7,97
-10,56
-6,54
-8,65
-13,20
-8,65
-15,80
-23,56
-13,55
52,63
45,99
36,60
30,86
29,57
25,22
14,57
-1,71
-1,24
0,43
3,12
2,95
-2,33
-5,12
-11,85
-18,97
-17,90
-18,49
-26,05
-20,23
-16,58
-31,62
-32,89
-23,02
-26,25
-29,62
-23,43
-24,02
-22,46
-13,53
-15,18
-11,55
-12,58
-16,85
-10,92
-7,15
7,23
7,57
3,27
11,19
10,08
16,85
14,22
9,77
4,45
-9,99
-3,59
-2,36
5,75
-5,29
-9,95
-1,53
5,33
15,78
15,84
4,05
6,06
0,16
2,51
5,26
9,98
0,00
-3,74
-6,11
-5,27
-9,33
-15,27
-15,71
-17,57
-19,75
-22,21
-17,91
-8,98
-11,26
-11,94
-5,94
-8,23
1,47
3,74
-2,83
-6,30
-15,40
-17,07
-17,35
-6,47
-4,60
-7,91
-4,82
-1,63
0,79
-15,63
-15,31
-22,10
-19,79
-13,63
-7,77
-20,48
-58,07
-55,81
-52,37
-47,84
28,82
106,62
78,27
72,67
76,36
73,88
79,11
64,36
55,59
54,63
47,35
52,77
53,18
62,32
59,53
52,42
47,10
41,06
35,18
31,69
28,52
31,64
21,96
23,49
12,72
-15,36
-24,61
-28,17
-34,35
-17,66
-9,50
-42,87
-104,10
-47,58
-71,22
-39,43
52,84
69,26
72,97
61,03
61,28
33,51
20,31
2,18
35,92
25,43
38,49
32,18
28,85
24,42
31,53
22,85
10,75
5,16
6,31
10,96
13,61
15,34
21,24
13,73
24,62
30,12
34,35
43,31
12,53
-9,00
27,34
50,41
44,01
46,79
43,60
43,53
45,62
52,77
43,82
39,52
29,70
29,40
36,59
47,56
45,98
32,38
22,08
47,62
42,43
36,19
32,43
42,23
34,02
28,23
26,61
30,32
12,10
18,14
32,58
30,05
46,68
45,27
34,47
29,57
24,38
33,11
41,44
36,48
43,31
46,02
36,14
41,86
35,83
38,92
37,86
30,69
24,56
31,41
21,36
17,25
20,43
21,77
11,16
-6,93
21,40
19,59
6,67
5,39
-15,93
-33,87
-7,98
-44,08
-62,87
-26,05
-11,85
9,47
19,34
34,25
39,51
21,52
-0,80
-6,73
-35,23
-23,70
0,14
-2,91
9,18
2,95
0,27
-6,82
-2,29
-3,17
-23,60
-42,43

Tables (Output of Computation)





Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time5 seconds
R Server'Gwilym Jenkins' @ 72.249.127.135

\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 & 5 seconds \tabularnewline
R Server & 'Gwilym Jenkins' @ 72.249.127.135 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=52390&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]5 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'Gwilym Jenkins' @ 72.249.127.135[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=52390&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=52390&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 time5 seconds
R Server'Gwilym Jenkins' @ 72.249.127.135






Descriptive Statistics
# observations360
minimum-104.1
Q1-23.005
median-1.58
mean5.55555555556025e-05
Q328.3025
maximum106.62

\begin{tabular}{lllllllll}
\hline
Descriptive Statistics \tabularnewline
# observations & 360 \tabularnewline
minimum & -104.1 \tabularnewline
Q1 & -23.005 \tabularnewline
median & -1.58 \tabularnewline
mean & 5.55555555556025e-05 \tabularnewline
Q3 & 28.3025 \tabularnewline
maximum & 106.62 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=52390&T=1

[TABLE]
[ROW][C]Descriptive Statistics[/C][/ROW]
[ROW][C]# observations[/C][C]360[/C][/ROW]
[ROW][C]minimum[/C][C]-104.1[/C][/ROW]
[ROW][C]Q1[/C][C]-23.005[/C][/ROW]
[ROW][C]median[/C][C]-1.58[/C][/ROW]
[ROW][C]mean[/C][C]5.55555555556025e-05[/C][/ROW]
[ROW][C]Q3[/C][C]28.3025[/C][/ROW]
[ROW][C]maximum[/C][C]106.62[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=52390&T=1

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

Descriptive Statistics
# observations360
minimum-104.1
Q1-23.005
median-1.58
mean5.55555555556025e-05
Q328.3025
maximum106.62


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
par1 = 0 ; par2 = 36 ;
Parameters (R input):
par1 = 0 ; par2 = 36 ;
R code (references can be found in the software module):
par1 <- as.numeric(par1)
par2 <- as.numeric(par2)
x <- as.ts(x)
library(lattice)
bitmap(file='pic1.png')
plot(x,type='l',main='Run Sequence Plot',xlab='time or index',ylab='value')
grid()
dev.off()
bitmap(file='pic2.png')
hist(x)
grid()
dev.off()
bitmap(file='pic3.png')
if (par1 > 0)
{
densityplot(~x,col='black',main=paste('Density Plot   bw = ',par1),bw=par1)
} else {
densityplot(~x,col='black',main='Density Plot')
}
dev.off()
bitmap(file='pic4.png')
qqnorm(x)
qqline(x)
grid()
dev.off()
if (par2 > 0)
{
bitmap(file='lagplot1.png')
dum <- cbind(lag(x,k=1),x)
dum
dum1 <- dum[2:length(x),]
dum1
z <- as.data.frame(dum1)
z
plot(z,main='Lag plot (k=1), lowess, and regression line')
lines(lowess(z))
abline(lm(z))
dev.off()
if (par2 > 1) {
bitmap(file='lagplotpar2.png')
dum <- cbind(lag(x,k=par2),x)
dum
dum1 <- dum[(par2+1):length(x),]
dum1
z <- as.data.frame(dum1)
z
mylagtitle <- 'Lag plot (k='
mylagtitle <- paste(mylagtitle,par2,sep='')
mylagtitle <- paste(mylagtitle,'), and lowess',sep='')
plot(z,main=mylagtitle)
lines(lowess(z))
dev.off()
}
bitmap(file='pic5.png')
acf(x,lag.max=par2,main='Autocorrelation Function')
grid()
dev.off()
}
summary(x)
load(file='createtable')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Descriptive Statistics',2,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'# observations',header=TRUE)
a<-table.element(a,length(x))
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'minimum',header=TRUE)
a<-table.element(a,min(x))
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Q1',header=TRUE)
a<-table.element(a,quantile(x,0.25))
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'median',header=TRUE)
a<-table.element(a,median(x))
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'mean',header=TRUE)
a<-table.element(a,mean(x))
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Q3',header=TRUE)
a<-table.element(a,quantile(x,0.75))
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'maximum',header=TRUE)
a<-table.element(a,max(x))
a<-table.row.end(a)
a<-table.end(a)
table.save(a,file='mytable.tab')