FreeStatistics.org

Free Statistics

of Irreproducible Research!

Description of Statistical Computation

Author's title

Author*Unverified author*
R Software Modulerwasp_bidensity.wasp
Title produced by softwareBivariate Kernel Density Estimation
Date of computationWed, 12 Nov 2008 10:59:56 -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/2008/Nov/12/t1226513293fp3aa25sbdjz0ly.htm/, Retrieved Sun, 19 May 2024 10:06:10 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=24338, Retrieved Sun, 19 May 2024 10:06:10 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywordsSeverijns Britt
Estimated Impact170

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Bivariate Kernel Density Estimation] [Variuos EDA topic...] [2008-11-09 13:17:45] [3548296885df7a66ea8efc200c4aca50]
-    D    [Bivariate Kernel Density Estimation] [various EDA topic...] [2008-11-12 17:59:56] [78308c9f3efc33d1da821bcd963df161] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
31899
31384
30650
30400
30003
29896
31557
31883
30830
30354
29756
29934
30599
30378
29925
29471
29567
29419
30796
31475
31708
31917
30871
31512
32362
31928
31699
30363
30386
30364
32806
33423
33071
33888
34805
35489
37259
37722
38764
39594
40004
40715
44028
45564
44277
44976
45406
47379
49200
50221
51573
53091
53337
54978
57885
67099
67169
69796
70600
71982
73957
75273
76322
77078
77954
79238
82179
83834
83744
84861
86478
88290
90287
91230
92380
92506
94172
94728
96581
97344
98346
98214
98366
98768
99832
99976
99961
100164
99964
99304
104008
104644
103950
104263
104241
105141
106018
105866
105944
106379
105082
104915
107026
107306
Dataseries Y:
Download CSV
Histogram 
460966
449577
431285
426208
411974
409252
456623
488681
470662
454671
434440
430236
436438
429692
418063
413396
406520
401909
453219
478198
481219
470914
440113
439555
443687
442677
438740
430888
424338
425262
484041
491769
489904
484697
474434
476749
481905
479287
471169
469533
460853
466256
525295
534150
533715
520488
501938
507409
513125
510633
503759
490508
483325
487744
535645
543664
545444
541528
523567
523472
516908
514106
508106
496022
489502
489790
538556
545050
544488
527256
508926
508851
503121
498842
487419
481699
478603
478214
522986
528465
521570
489411
467376
458506
460744
448878
431712
425755
411074
399358
451354
459947
437707
422807
405605
409117
410904
401695
386678
383864
364275
372665
421353
426284

Tables (Output of Computation)





Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'George Udny Yule' @ 72.249.76.132

\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 & 1 seconds \tabularnewline
R Server & 'George Udny Yule' @ 72.249.76.132 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=24338&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]1 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'George Udny Yule' @ 72.249.76.132[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=24338&T=0

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






Bandwidth
x axis5631.55771053052
y axis18920.6386753857
Correlation
correlation used in KDE-0.0288320356050021
correlation(x,y)-0.0288320356050021

\begin{tabular}{lllllllll}
\hline
Bandwidth \tabularnewline
x axis & 5631.55771053052 \tabularnewline
y axis & 18920.6386753857 \tabularnewline
Correlation \tabularnewline
correlation used in KDE & -0.0288320356050021 \tabularnewline
correlation(x,y) & -0.0288320356050021 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=24338&T=1

[TABLE]
[ROW][C]Bandwidth[/C][/ROW]
[ROW][C]x axis[/C][C]5631.55771053052[/C][/ROW]
[ROW][C]y axis[/C][C]18920.6386753857[/C][/ROW]
[ROW][C]Correlation[/C][/ROW]
[ROW][C]correlation used in KDE[/C][C]-0.0288320356050021[/C][/ROW]
[ROW][C]correlation(x,y)[/C][C]-0.0288320356050021[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=24338&T=1

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

Bandwidth
x axis5631.55771053052
y axis18920.6386753857
Correlation
correlation used in KDE-0.0288320356050021
correlation(x,y)-0.0288320356050021


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
par1 = 50 ; par2 = 50 ; par3 = 0 ; par4 = 0 ; par5 = 0 ; par6 = Y ; par7 = Y ;
Parameters (R input):
par1 = 50 ; par2 = 50 ; par3 = 0 ; par4 = 0 ; par5 = 0 ; par6 = Y ; par7 = Y ;
R code (references can be found in the software module):
par1 <- as(par1,'numeric')
par2 <- as(par2,'numeric')
par3 <- as(par3,'numeric')
par4 <- as(par4,'numeric')
par5 <- as(par5,'numeric')
library('GenKern')
if (par3==0) par3 <- dpik(x)
if (par4==0) par4 <- dpik(y)
if (par5==0) par5 <- cor(x,y)
if (par1 > 500) par1 <- 500
if (par2 > 500) par2 <- 500
bitmap(file='bidensity.png')
op <- KernSur(x,y, xgridsize=par1, ygridsize=par2, correlation=par5, xbandwidth=par3, ybandwidth=par4)
image(op$xords, op$yords, op$zden, col=terrain.colors(100), axes=TRUE,main=main,xlab=xlab,ylab=ylab)
if (par6=='Y') contour(op$xords, op$yords, op$zden, add=TRUE)
if (par7=='Y') points(x,y)
(r<-lm(y ~ x))
abline(r)
box()
dev.off()
load(file='createtable')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Bandwidth',2,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'x axis',header=TRUE)
a<-table.element(a,par3)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'y axis',header=TRUE)
a<-table.element(a,par4)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Correlation',2,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'correlation used in KDE',header=TRUE)
a<-table.element(a,par5)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'correlation(x,y)',header=TRUE)
a<-table.element(a,cor(x,y))
a<-table.row.end(a)
a<-table.end(a)
table.save(a,file='mytable.tab')