Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
107.11 107.57 107.81 108.75 109.43 109.62 109.54 109.53 109.84 109.67 109.79 109.56 110.22 110.40 110.69 110.72 110.89 110.58 110.94 110.91 111.22 111.09 111.00 111.06 111.55 112.32 112.64 112.36 112.04 112.37 112.59 112.89 113.22 112.85 113.06 112.99 113.32 113.74 113.91 114.52 114.96 114.91 115.30 115.44 115.52 116.08 115.94 115.56 115.88 116.66 117.41 117.68 117.85 118.21 118.92 119.03 119.17 118.95 118.92 118.90
Data Y:
107.56 107.70 107.67 107.67 107.72 108.35 108.25 108.26 108.31 108.33 108.36 108.36 108.97 109.62 109.60 109.64 109.65 109.64 109.93 109.81 109.77 110.10 110.40 110.50 111.89 112.10 111.92 112.15 112.16 112.17 112.32 112.38 112.34 113.14 113.18 113.21 113.76 113.99 113.95 113.93 114.01 114.10 114.11 114.10 114.12 114.68 114.71 114.73 115.81 116.01 116.12 116.49 116.51 116.60 117.01 117.01 117.12 117.22 118.38 118.80
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