Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
3111 3995 5245 5588 10681 10516 7496 9935 10249 6271 3616 3724 2886 3318 4166 6401 9209 9820 7470 8207 9564 5309 3385 3706 2733 3045 3449 5542 10072 9418 7516 7840 10081 4956 3641 3970 2931 3170 3889 4850 8037 12370 6712 7297 10613 5184 3506 3810 2692 3073 3713 4555 7807 10869 9682 7704 9826 5456 3677 3431 2765 3483 3445 6081 8767 9407 6551 12480 9530 5960 3252 3717 2642 2989 3607 5366 8898 9435 7328 8594 11349 5797 3621 3851
Data Y:
5140 4749 3635 4305 5805 4260 3869 7325 9280 6222 3272 7598 1345 1900 1480 1472 3823 4454 3357 5393 8329 4152 4042 7747 1451 911 406 1387 2150 1577 2642 4273 8064 3243 1112 2280 505 744 1369 531 1041 2076 577 5080 6584 3761 294 5020 1141 3805 2127 2531 3682 3263 2798 5936 10568 5296 1870 4390 3707 5201 3748 5282 5349 6249 5517 8640 15767 8850 5582 6496 3255 6189 6452 5099 6833 7046 7739 10142 16054 7721 6182 6490
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
0 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation