Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
91.70 74.44 100.00 74.99 76.27 105.90 74.70 71.60 78.82 88.27 76.11 82.06 78.91 84.36 99.41 93.89 109.62 106.51 79.30 94.51 99.20 90.57 85.54 109.18 109.16 96.00 116.23 93.41 102.27 106.25 87.98 90.11 95.45 100.93 78.97 88.10 90.21 80.36 97.45 80.10 78.50 97.20 81.90 87.20 72.55 105.26 80.90 72.95 83.70 91.92 83.98 87.03 78.21 91.31 74.55 72.25 83.90 76.61 78.10 91.20
Data Y:
101.26 101.08 100.00 98.02 96.76 97.84 107.03 110.09 110.45 110.09 107.03 107.21 106.49 106.13 105.23 103.24 102.16 102.52 111.89 113.33 113.15 110.27 107.21 107.57 106.85 106.31 104.50 103.42 103.24 103.24 111.71 112.79 111.71 105.95 101.98 100.36 101.08 98.92 95.86 94.77 92.07 89.91 100.00 101.80 97.66 94.95 91.89 92.61 93.15 91.53 88.83 88.29 84.50 86.13 95.14 96.22 93.33 91.17 90.45 92.97
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