Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
51978 50330 48538 46636 44574 43028 56924 65193 67132 64398 57591 56279 56331 55015 53405 51200 48695 48057 65964 71371 72184 69400 65605 64727 64506 62751 59938 57870 55263 55777 73944 78201 78715 75009 69705 69979 69755 68155 64211 61110 58373 58288 74822 79606 80232 75631 70996 69144 67141 65413 63391 60964 58412 57539 73377 77413 78932 74789 70076 67944 64076 63136 60198 59057 57388 56708 70019 72263 74152 67057 61941 58331
Data Y:
88900 87280 85519 83647 81616 80100 94027 102327 104296 101593 94816 93535 93618 92330 90751 88576 86102 85494 103432 108870 109713 106960 103195 102348 102158 100431 97649 95611 93035 93579 111777 116065 116609 112934 107660 107965 107772 106201 102288 99217 96511 96456 113021 117836 118492 113922 109317 107496 105524 103824 101833 99436 96915 96072 111941 116008 117557 113445 108762 106661 102824 101912 99005 97894 96256 95606 108948 111223 113142 106078 100992 97413
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