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_bidensity.wasp
Title produced by softwareBivariate Kernel Density Estimation
Date of computationWed, 28 Oct 2009 08:13:01 -0600
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2009/Oct/28/t1256739239l3cpw4msd5dfn8x.htm/, Retrieved Sun, 05 May 2024 22:17:37 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=51357, Retrieved Sun, 05 May 2024 22:17:37 +0000
QR Codes:

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

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] [Workshop4_kernell...] [2009-10-28 14:13:01] [7a6d96edf94be87996de99db5f42363b] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
214912 
 210705 
 209673 
 237041 
 242081 
 241878 
 242621 
 238545 
 240337 
 244752 
 244576 
 241572 
 240541 
 236089 
 236997 
 264579 
 270349 
 269645 
 267037 
 258113 
 262813 
 267413 
 267366 
 264777 
 258863 
 254844 
 254868 
 277267 
 285351 
 286602 
 283042 
 276687 
 277915 
 277128 
 277103 
 275037 
 270150 
 267140 
 264993 
 287259 
 291186 
 292300 
 288186 
 281477 
 282656 
 280190 
 280408 
 276836 
 275216 
 274352 
 271311 
 289802 
 290726 
 292300 
 278506 
 269826 
 265861 
 269034 
 264176 
 255198 
 253353 
 246057 
 235372 
 258556 
 260993 
 254663 
 250643 
 243422 
 247105 
 248541 
 245039 
 237080 
 237085 
 225554 
 226839 
 247934 
 248333 
 246969 
 245098 
 246263 
 255765 
 264319 
 268347 
 273046 
 273963 
 267430 
 271993
Dataseries Y:
Download CSV
Histogram 
246339 
 244019 
 245953 
 279806 
 283111 
 281097 
 275964 
 270694 
 271901 
 274412 
 272433 
 268361 
 268586 
 264768 
 269974 
 304744 
 309365 
 308347 
 298427 
 289231 
 291975 
 294912 
 293488 
 290555 
 284736 
 281818 
 287854 
 316263 
 325412 
 326011 
 328282 
 317480 
 317539 
 313737 
 312276 
 309391 
 302950 
 300316 
 304035 
 333476 
 337698 
 335932 
 323931 
 313927 
 314485 
 313218 
 309664 
 302963 
 298989 
 298423 
 301631 
 329765 
 335083 
 327616 
 309119 
 295916 
 291413 
 291542 
 284678 
 276475 
 272566 
 264981 
 263290 
 296806 
 303598 
 286994 
 276427 
 266424 
 267153 
 268381 
 262522 
 255542 
 253158 
 243803 
 250741 
 280445 
 285257 
 270976 
 261076 
 255603 
 260376 
 263903 
 264291 
 263276 
 262572 
 256167 
 264221

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=51357&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=51357&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=51357&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 axis6467.89370760485
y axis10324.5576170507
Correlation
correlation used in KDE0.859985628604988
correlation(x,y)0.859985628604988

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

[TABLE]
[ROW][C]Bandwidth[/C][/ROW]
[ROW][C]x axis[/C][C]6467.89370760485[/C][/ROW]
[ROW][C]y axis[/C][C]10324.5576170507[/C][/ROW]
[ROW][C]Correlation[/C][/ROW]
[ROW][C]correlation used in KDE[/C][C]0.859985628604988[/C][/ROW]
[ROW][C]correlation(x,y)[/C][C]0.859985628604988[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=51357&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=51357&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 axis6467.89370760485
y axis10324.5576170507
Correlation
correlation used in KDE0.859985628604988
correlation(x,y)0.859985628604988


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