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_density.wasp
Title produced by softwareKernel Density Estimation
Date of computationThu, 01 Dec 2011 21:11:37 -0500
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2011/Dec/01/t1322791980e501lpg710yki5n.htm/, Retrieved Fri, 19 Apr 2024 20:17:05 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=150037, Retrieved Fri, 19 Apr 2024 20:17:05 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Harrell-Davis Quantiles] [] [2011-12-02 01:48:55] [77e355412ccdb651b3c7eae41c3da865]
- RM D    [Kernel Density Estimation] [] [2011-12-02 02:11:37] [2be7aedefc35278abdba659ba29c8de8] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
35.323
35.478
4.39
41.667
22.173
28.021
18.109
13.962
40.174
16.065
18.145
18.439
10.603
34.811
69.064
51.202
14.786
33.01
81.101
89.232
21.223
15.173
26.848
8.752
60.535
60.535
26.052
49.218
30.669
18.673
86
10.632
35.802
33.974
36.972
4.928
53.976
15.467
35.723
40.424
9.706
26.532
23.843
18.062
35.681
68.125
23.937
31.479
66.659
49.469
42.951
43.402
24.112
56.95
17.313
25.658
48.172
13.891
32.048
19.797
31.317
20.966
22.708
26.81
52.004
32.354
27.128
26.529
28.392
57.393
9.415
57.751
8.236
20.407
13.681
79.659
53.48
6.906
50.202
37.877
85.903
35.351
5.974
3.441
51.987
13.22
1.455
18.187
21.29
5.686
4.944
32.789
50.494
35.162
38.095
19.172
24.5
20.573
42.042
25.027
16.488
32.36
6.193
37.7
6.343
23.025
48.578
21.564
33.697
10.831
19.172
21.075
33.189
60.5
33.686
40.838
13.491
35.897
7.314
49.094
14.667
54.179
145.846
18.56
23.525
21.804
26.301
41.33
10.5
13.338
60.31
34.256
48.267
41.559
32.45
10.951
22.561
57.095
19.105
13.151
27.426
15.355
13.82
47.21
110.349
34.985
27.257
23.556
50.108
18.158
87.357
18.187
28.33
13.474
26.244

Tables (Output of Computation)





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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=150037&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 time3 seconds
R Server'George Udny Yule' @ yule.wessa.net






Properties of Density Trace
Bandwidth5.75281526295943
#Observations155

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

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

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

Properties of Density Trace
Bandwidth5.75281526295943
#Observations155


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
par1 = 0.93 ; par2 = 0.94 ; par3 = 0.00001 ;
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')