Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
111078 150739 159129 157928 147768 137507 136919 136151 133001 125554 119647 114158 116193 152803 161761 160942 149470 139208 134588 130322 126611 122401 117352 112135 112879 148729 157230 157221 146681 136524 132111 125326 122716 116615 113719 110737 112093 143565 149946 149147 134339 122683 115614 116566 111272 104609 101802 94542 93051 124129 130374 123946 114971 105531 104919 104782 101281 94545 93248 84031 87486
Data Y:
4145 3796 3711 3949 3740 3243 4407 4814 3908 5250 3937 4004 5560 3922 3759 4138 4634 3996 4308 4142 4429 5219 4929 5754 5592 4163 4962 5208 4755 4491 5732 5730 5024 6056 4901 5353 5578 4618 4724 5011 5298 4143 4617 4736 4214 5112 4197 4119 5104 4194 4583 3790 5557 4304 3838 4277 4951 4479 4677 4274 4782
Sample Range:
(leave blank to include all observations)
From:
To:
xgridsize
ygridsize
xbandwidth
(zero to use default)
ybandwidth
(zero to use default)
correlation
(zero to use actual correlation)
display contours
(Y/N)
Y
Y
N
display data points
(Y/N)
Y
Y
N
colors
terrain.colors
rainbow
heat.colors
topo.colors
cm.colors
Chart options
Title:
Label y-axis:
Label x-axis:
R Code
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')
Compute
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
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation