Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
106.5789 101.3158 98.68421 100 102.6316 102.6316 102.6316 98.68421 98.68421 93.42105 98.68421 98.68421 100 101.3158 101.3158 103.9474 106.5789 107.8947 107.8947 107.8947 103.9474 96.05263 90.78947 86.84211 88.15789 90.78947 92.10526 93.42105 94.73684 93.42105 90.78947 92.10526 89.47368 84.21053 88.15789 86.84211 84.21053 82.89474 81.57895 85.52632 89.47368 89.47368 84.21053 80.26316 76.31579 80.26316 94.73684 96.05263 90.78947 80.26316 76.31579 81.57895 93.42105 101.3158 103.9474 101.3158 97.36842 98.68421 105.2632 106.5789
Data Y:
93.76979937 89.96832101 86.16684266 87.43400211 91.23548046 93.76979937 92.50263992 87.43400211 87.43400211 86.16684266 89.96832101 91.23548046 89.96832101 88.70116156 87.43400211 89.96832101 92.50263992 95.03695882 95.03695882 95.03695882 92.50263992 88.70116156 84.89968321 82.36536431 82.36536431 82.36536431 83.63252376 86.16684266 87.43400211 87.43400211 86.16684266 86.16684266 82.36536431 77.2967265 77.2967265 74.7624076 72.2280887 74.7624076 74.7624076 77.2967265 79.83104541 78.56388596 74.7624076 72.2280887 68.42661035 70.96092925 78.56388596 79.83104541 76.02956705 70.96092925 69.6937698 74.7624076 82.36536431 86.16684266 86.16684266 82.36536431 78.56388596 78.56388596 82.36536431 84.89968321
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