Repository of Reproducible Computations

Free Statistics

of Irreproducible Research!

Author's title

Author

*The author of this computation has been verified*

R Software Module

rwasp_edauni.wasp

Title produced by software

Univariate Explorative Data Analysis

Date of computation

Wed, 28 Oct 2009 10:06:23 -0600

Cite this page as follows

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2009/Oct/28/t1256746031fk05mvjmj3kme3d.htm/, Retrieved Mon, 06 May 2024 05:25:48 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=51488, Retrieved Mon, 06 May 2024 05:25:48 +0000

QR Codes:

Paste this QR Code to cite your computation.

Original text written by user:

IsPrivate?

No (this computation is public)

User-defined keywords

Estimated Impact

125

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]
-   PD  [Bivariate Data Series] [WS 4- gegeven model] [2009-10-28 15:05:08] [af2352cd9a951bedd08ebe247d0de1a2]
- RMPD      [Univariate Explorative Data Analysis] [WS4: Deel 1-Vraag 1] [2009-10-28 16:06:23] [d9efc2d105d810fc0b0ac636e31105d1] [Current]
- RMP         [Central Tendency] [WS4- Deel 1: Vraag 1] [2009-10-28 16:42:26] [af2352cd9a951bedd08ebe247d0de1a2] 
-  M D          [Central Tendency] [WS4] [2009-11-27 11:06:47] [af2352cd9a951bedd08ebe247d0de1a2] 
-  M D        [Univariate Explorative Data Analysis] [WS4] [2009-11-27 10:39:41] [af2352cd9a951bedd08ebe247d0de1a2] 

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

-71.15
-45.95
-25.90
13.72
47.48
61.03
56.78
50.00
44.88
39.80
29.18
24.96
20.74
17.60
15.77
4.47
-0.26
-8.24
-13.05
-27.34
-34.40
-36.76
-36.04
-36.14
-39.13
-40.25
-29.97
-32.19
-36.46
-38.92
-20.32
2.62
6.46
8.60
10.56
11.17
-1.01
6.41
0.57
-9.90
-5.80
-5.89
2.37
0.89
-8.46
-12.31
-24.04
-38.97
-41.46
-55.24
-59.23
-60.20
-61.37
-58.50
-60.15
-59.90
-58.99
-65.57
-73.24
-62.78
-62.45
-49.27
-54.35
-53.94
-51.51
-51.24
-52.49
-49.15
-48.83
-62.10
-59.95
-56.50
-52.50
-48.58
-45.70
-52.91
-52.66
-50.91
-49.70
-45.44
-52.43
-52.38
-49.30
-48.82
-43.81
-35.68
-36.15
-35.09
-33.17
-28.47
-23.15
-26.59
-26.28
-22.77
-22.47
-22.89
-20.24
-15.04
-17.27
-12.20
-7.86
-10.46
-6.44
-8.55
-13.10
-8.56
-15.69
-23.45
-13.44
52.76
46.15
36.75
31.01
29.73
25.37
14.72
-1.56
-1.09
0.57
3.27
3.09
-2.19
-4.98
-11.71
-18.84
-17.77
-18.36
-25.92
-20.11
-16.45
-31.49
-32.77
-22.89
-26.12
-29.49
-23.30
-23.89
-22.33
-13.41
-15.06
-11.44
-12.46
-16.72
-10.79
-7.02
7.35
7.69
3.41
11.31
10.21
16.98
14.34
9.89
4.57
-9.86
-3.47
-2.25
5.87
-5.18
-9.82
-1.41
5.45
15.89
15.95
4.18
6.18
0.28
2.62
5.38
10.09
0.11
-3.62
-5.99
-5.16
-9.21
-15.16
-15.60
-17.46
-19.63
-22.10
-17.80
-8.88
-11.16
-11.84
-5.85
-8.13
1.56
3.82
-2.75
-6.22
-15.32
-16.99
-17.27
-6.39
-4.52
-7.83
-4.73
-1.55
0.87
-15.54
-15.22
-22.01
-19.70
-13.54
-7.68
-20.38
-57.94
-55.69
-52.24
-47.71
28.95
106.79
78.46
72.85
76.55
74.06
79.28
64.54
55.77
54.80
47.53
52.95
53.35
62.49
59.69
52.57
47.25
41.22
35.33
31.84
28.67
31.78
22.10
23.63
12.87
-15.19
-24.44
-27.99
-34.17
-17.49
-9.34
-42.68
-103.84
-47.33
-70.93
-39.14
53.06
69.47
73.18
61.22
61.47
33.71
20.51
2.39
36.10
25.61
38.65
32.34
29.02
24.59
31.68
23.00
10.90
5.32
6.46
11.12
13.76
15.49
21.39
13.88
24.76
30.25
34.48
43.44
12.67
-8.83
27.49
50.55
44.15
46.92
43.74
43.65
45.74
52.88
43.93
39.63
29.82
29.52
36.70
47.66
46.08
32.49
22.19
47.71
42.53
36.29
32.53
42.31
34.11
28.32
26.70
30.41
12.19
18.25
32.68
30.14
46.76
45.34
34.55
29.65
24.47
33.19
41.52
36.56
43.39
46.10
36.22
41.93
35.91
39.00
37.94
30.76
24.64
31.50
21.46
17.34
20.53
21.86
11.25
-6.82
21.49
19.69
6.78
5.49
-15.81
-33.73
-7.85
-43.92
-62.69
-25.88
-11.68
9.62
19.47
34.38
39.64
21.66
-0.65
-6.58
-35.05
-23.54
0.29
-2.76
9.33
3.09
0.41
-6.67
-2.15
-3.03
-23.45
-42.26

Summary of computational transaction
Raw Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	5 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=51488&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=51488&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=51488&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 Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	5 seconds
R Server	'Gwilym Jenkins' @ 72.249.127.135

Descriptive Statistics
# observations	360
minimum	-103.84
Q1	-22.89
median	-1.48
mean	0.1305
Q3	28.4075
maximum	106.79

\begin{tabular}{lllllllll}
\hline
Descriptive Statistics \tabularnewline
# observations & 360 \tabularnewline
minimum & -103.84 \tabularnewline
Q1 & -22.89 \tabularnewline
median & -1.48 \tabularnewline
mean & 0.1305 \tabularnewline
Q3 & 28.4075 \tabularnewline
maximum & 106.79 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=51488&T=1

[TABLE]
[ROW][C]Descriptive Statistics[/C][/ROW]
[ROW][C]# observations[/C][C]360[/C][/ROW]
[ROW][C]minimum[/C][C]-103.84[/C][/ROW]
[ROW][C]Q1[/C][C]-22.89[/C][/ROW]
[ROW][C]median[/C][C]-1.48[/C][/ROW]
[ROW][C]mean[/C][C]0.1305[/C][/ROW]
[ROW][C]Q3[/C][C]28.4075[/C][/ROW]
[ROW][C]maximum[/C][C]106.79[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=51488&T=1

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

As an alternative you can also use a QR Code:

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

Descriptive Statistics
# observations	360
minimum	-103.84
Q1	-22.89
median	-1.48
mean	0.1305
Q3	28.4075
maximum	106.79

Figure 1

PNG link

Postscript link

PDF link

Figure 2

PNG link

Postscript link

PDF link

Figure 3

PNG link

Postscript link

PDF link

Figure 4

PNG link

Postscript link

PDF link

Figure 5

PNG link

Postscript link

PDF link

Figure 6

PNG link

Postscript link

PDF link

Figure 7

PNG link

Postscript link

PDF link

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')

Free Statistics

Description of Statistical Computation

Tree of Dependent Computations

Dataset

Tables (Output of Computation)

Figures (Output of Computation)

Input Parameters & R Code