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_density.wasp

Title produced by software

Kernel Density Estimation

Date of computation

Sun, 01 Nov 2009 13:12:47 -0700

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/Nov/01/t1257106426gokqtlmokumnpty.htm/, Retrieved Mon, 06 May 2024 15:27:58 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=52401, Retrieved Mon, 06 May 2024 15:27:58 +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

140

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    [Kernel Density Estimation] [Workshop 4] [2009-11-01 20:12:47] [d904c6aa144b8c40108ebe5ec22fe1a0] [Current]

Feedback Forum

Post a new message

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

Summary of computational transaction
Raw Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	2 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 & 2 seconds \tabularnewline
R Server & 'Gwilym Jenkins' @ 72.249.127.135 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=52401&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]'Gwilym Jenkins' @ 72.249.127.135[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=52401&T=0

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

Properties of Density Trace
Bandwidth	9.5959470710003
#Observations	360

\begin{tabular}{lllllllll}
\hline
Properties of Density Trace \tabularnewline
Bandwidth & 9.5959470710003 \tabularnewline
#Observations & 360 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=52401&T=1

[TABLE]
[ROW][C]Properties of Density Trace[/C][/ROW]
[ROW][C]Bandwidth[/C][C]9.5959470710003[/C][/ROW]
[ROW][C]#Observations[/C][C]360[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=52401&T=1

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

As an alternative you can also use a QR Code:

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

Properties of Density Trace
Bandwidth	9.5959470710003
#Observations	360

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 ;

Parameters (R input):

par1 = 0 ;

R code (references can be found in the software module):

if (par1 == '0') bw <- 'nrd0'
if (par1 != '0') bw <- as.numeric(par1)
bitmap(file='density1.png')
mydensity1<-density(x,bw=bw,kernel='gaussian',na.rm=TRUE)
plot(mydensity1,main='Gaussian Kernel',xlab=xlab,ylab=ylab)
grid()
dev.off()
mydensity1
bitmap(file='density2.png')
mydensity2<-density(x,bw=bw,kernel='epanechnikov',na.rm=TRUE)
plot(mydensity2,main='Epanechnikov Kernel',xlab=xlab,ylab=ylab)
grid()
dev.off()
bitmap(file='density3.png')
mydensity3<-density(x,bw=bw,kernel='rectangular',na.rm=TRUE)
plot(mydensity3,main='Rectangular Kernel',xlab=xlab,ylab=ylab)
grid()
dev.off()
bitmap(file='density4.png')
mydensity4<-density(x,bw=bw,kernel='triangular',na.rm=TRUE)
plot(mydensity4,main='Triangular Kernel',xlab=xlab,ylab=ylab)
grid()
dev.off()
bitmap(file='density5.png')
mydensity5<-density(x,bw=bw,kernel='biweight',na.rm=TRUE)
plot(mydensity5,main='Biweight Kernel',xlab=xlab,ylab=ylab)
grid()
dev.off()
bitmap(file='density6.png')
mydensity6<-density(x,bw=bw,kernel='cosine',na.rm=TRUE)
plot(mydensity6,main='Cosine Kernel',xlab=xlab,ylab=ylab)
grid()
dev.off()
bitmap(file='density7.png')
mydensity7<-density(x,bw=bw,kernel='optcosine',na.rm=TRUE)
plot(mydensity7,main='Optcosine Kernel',xlab=xlab,ylab=ylab)
grid()
dev.off()
load(file='createtable')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Properties of Density Trace',2,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Bandwidth',header=TRUE)
a<-table.element(a,mydensity1$bw)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'#Observations',header=TRUE)
a<-table.element(a,mydensity1$n)
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