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, 18 Oct 2009 13:39:18 -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/18/t12558948526tzl3vzb5xy0o6t.htm/, Retrieved Mon, 29 Apr 2024 10:16:31 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=47479, Retrieved Mon, 29 Apr 2024 10:16:31 +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

ShwWs3V2

Estimated Impact

165

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]
F RMPD  [Univariate Explorative Data Analysis] [Colombia Coffee] [2008-01-07 14:21:11] [74be16979710d4c4e7c6647856088456]
F RMPD    [Univariate Data Series] [] [2009-10-14 08:30:28] [74be16979710d4c4e7c6647856088456]
- RMP       [Kernel Density Estimation] [WS3 part 1 kernal...] [2009-10-18 14:43:08] [e0fc65a5811681d807296d590d5b45de]
-    D        [Kernel Density Estimation] [WS3 Part 2 Yt] [2009-10-18 18:13:13] [e0fc65a5811681d807296d590d5b45de]
-    D          [Kernel Density Estimation] [WS3Part2Yt-Xt] [2009-10-18 19:03:19] [e0fc65a5811681d807296d590d5b45de]
-    D              [Kernel Density Estimation] [WS3Part2Yt/Xt] [2009-10-18 19:39:18] [51108381f3361ca8af49c4f74052c840] [Current]
-    D                [Kernel Density Estimation] [Ws3Part2Yt*Xt] [2009-10-19 19:46:46] [e0fc65a5811681d807296d590d5b45de] 

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

557,1102662
445,4847909
486,5340909
437,8314394
444,5009416
426,9238006
387,4718045
316,1365762
291,9309701
397,250699
313,3737185
200,5400372
524,6025105
492,7412626
494,0112577
483,557852
384,1178651
354,2627048
326,4841872
243,8965836
293,7868189
349,990797
252,5128393
168,6416583
463,688893
400,7759722
442,5694761
399,6995356
342,2891017
367,4831543
322,7739882
263,5942608
313,0730822
386,5517241
275,5341395
240,1579808
430,9061195
452,1613573
553,8884383
484,0616272
359,7648774
399,7359075
286,1388838
271,3378109
307,0683241
354,829932
305,3823849
227,0744729
464,9493854
410,9418657
472,3691311
436,7658962
373,7577223
443,912265
292,8284003
298,6400644
319,028014
330,6311936
318,979081
187,1831489

Summary of computational transaction
Raw Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	4 seconds
R Server	'Sir Ronald Aylmer Fisher' @ 193.190.124.24

\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 & 4 seconds \tabularnewline
R Server & 'Sir Ronald Aylmer Fisher' @ 193.190.124.24 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=47479&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]4 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'Sir Ronald Aylmer Fisher' @ 193.190.124.24[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=47479&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=47479&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	4 seconds
R Server	'Sir Ronald Aylmer Fisher' @ 193.190.124.24

Properties of Density Trace
Bandwidth	36.5713852889006
#Observations	60

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

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

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

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