Home » date » 2009 » Nov » 06 »

ws 6

*The author of this computation has been verified*

R Software Module: /rwasp_bidensity.wasp (opens new window with default values)

Title produced by software: Bivariate Kernel Density Estimation

Date of computation: Fri, 06 Nov 2009 13:08:14 -0700

Cite this page as follows:

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL http://www.freestatistics.org/blog/date/2009/Nov/06/t1257538243ujomkoez56bq6pd.htm/, Retrieved Fri, 06 Nov 2009 21:10:45 +0100

BibTeX entries for LaTeX users:

@Manual{KEY,
    author = {{YOUR NAME}},
    publisher = {Office for Research Development and Education},
    title = {Statistical Computations at FreeStatistics.org, URL http://www.freestatistics.org/blog/date/2009/Nov/06/t1257538243ujomkoez56bq6pd.htm/},
    year = {2009},
}
@Manual{R,
    title = {R: A Language and Environment for Statistical Computing},
    author = {{R Development Core Team}},
    organization = {R Foundation for Statistical Computing},
    address = {Vienna, Austria},
    year = {2009},
    note = {{ISBN} 3-900051-07-0},
    url = {http://www.R-project.org},
}

Original text written by user:

IsPrivate?

No (this computation is public)

User-defined keywords:

Dataseries X:

» Textbox « » Textfile « » CSV «

100 114,242116 115,8697864 108,0366226 100,3051882 98,1688708 97,5584944 105,4933876 104,8830112 105,4933876 114,0386572 88,40284842 96,64292981 113,733469 110,681587 111,190234 103,1536114 102,2380468 102,4415056 115,4628688 107,9348932 113,5300102 116,8870804 90,13224822 101,2207528 117,0905392 120,0406918 113,3265514 109,155646 107,121058 107,121058 119,9389624 112,1057986 114,3438454 119,5320448 94,60834181 105,2899288 118,311292 122,0752798 116,276704 106,5106816 111,698881 114,5473042 116,3784334 117,7009156 116,6836216 120,4476094 96,54120041 105,595117 117,0905392 115,6663276 105,7985758 95,93082401 94,09969481 94,81180061 106,5106816 95,62563581 99,7965412 104,4760936 83,82502543

Dataseries Y:

» Textbox « » Textfile « » CSV «

100 100 93,5483871 88,17204301 89,24731183 91,39784946 92,47311828 91,39784946 88,17204301 87,09677419 84,94623656 92,47311828 93,5483871 93,5483871 91,39784946 90,32258065 91,39784946 93,5483871 93,5483871 92,47311828 91,39784946 89,24731183 86,02150538 88,17204301 87,09677419 87,09677419 86,02150538 84,94623656 84,94623656 86,02150538 86,02150538 84,94623656 86,02150538 82,79569892 77,41935484 80,64516129 78,49462366 75,2688172 75,2688172 75,2688172 77,41935484 78,49462366 76,34408602 73,11827957 68,8172043 65,59139785 69,89247312 82,79569892 84,94623656 80,64516129 74,19354839 70,96774194 74,19354839 82,79569892 86,02150538 86,02150538 82,79569892 78,49462366 79,56989247 87,09677419

Output produced by software:

Summary of computational transaction
Raw Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	1 seconds
R Server	'Gwilym Jenkins' @ 72.249.127.135

Bandwidth
x axis	3.58725546733050
y axis	3.00763238103525
Correlation
correlation used in KDE	-0.321072294081109
correlation(x,y)	-0.321072294081109

Charts produced by software:

http://www.freestatistics.org/blog/date/2009/Nov/06/t1257538243ujomkoez56bq6pd/1vh7s1257538093.png (open in new window)

http://www.freestatistics.org/blog/date/2009/Nov/06/t1257538243ujomkoez56bq6pd/1vh7s1257538093.ps (open in new window)

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

This work is licensed under a Creative Commons Attribution-Noncommercial-Share Alike 3.0 License.

Software written by Ed van Stee & Patrick Wessa

Disclaimer

Information provided on this web site is provided "AS IS" without warranty of any kind, either express or implied, including, without limitation, warranties of merchantability, fitness for a particular purpose, and noninfringement. We use reasonable efforts to include accurate and timely information and periodically update the information, and software without notice. However, we make no warranties or representations as to the accuracy or completeness of such information (or software), and we assume no liability or responsibility for errors or omissions in the content of this web site, or any software bugs in online applications. Your use of this web site is AT YOUR OWN RISK. Under no circumstances and under no legal theory shall we be liable to you or any other person for any direct, indirect, special, incidental, exemplary, or consequential damages arising from your access to, or use of, this web site.

We may request personal information to be submitted to our servers in order to be able to:

personalize online software applications according to your needs
enforce strict security rules with respect to the data that you upload (e.g. statistical data)
manage user sessions of online applications
alert you about important changes or upgrades in resources or applications

We NEVER allow other companies to directly offer registered users information about their products and services. Banner references and hyperlinks of third parties NEVER contain any personal data of the visitor.

We do NOT sell, nor transmit by any means, personal information, nor statistical data series uploaded by you to third parties.

We carefully protect your data from loss, misuse, alteration, and destruction. However, at any time, and under any circumstance you are solely responsible for managing your passwords, and keeping them secret.

We store a unique ANONYMOUS USER ID in the form of a small 'Cookie' on your computer. This allows us to track your progress when using this website which is necessary to create state-dependent features. The cookie is used for NO OTHER PURPOSE. At any time you may opt to disallow cookies from this website - this will not affect other features of this website.

We examine cookies that are used by third-parties (banner and online ads) very closely: abuse from third-parties automatically results in termination of the advertising contract without refund. We have very good reason to believe that the cookies that are produced by third parties (banner ads) do NOT cause any privacy or security risk.

FreeStatistics.org is safe. There is no need to download any software to use the applications and services contained in this website. Hence, your system's security is not compromised by their use, and your personal data - other than data you submit in the account application form, and the user-agent information that is transmitted by your browser - is never transmitted to our servers.

As a general rule, we do not log on-line behavior of individuals (other than normal logging of webserver 'hits'). However, in cases of abuse, hacking, unauthorized access, Denial of Service attacks, illegal copying, hotlinking, non-compliance with international webstandards (such as robots.txt), or any other harmful behavior, our system engineers are empowered to log, track, identify, publish, and ban misbehaving individuals - even if this leads to ban entire blocks of IP addresses, or disclosing user's identity.

FreeStatistics.org is powered by