Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
70.5 77.7 56.0 56.8 69.2 71.3 79.4 80.8 72.2 69.8 73.0 82.0 76.3 65.3 51.4 60.5 83.0 89.8 78.6 85.8 69.7 69.4 76.6 76.4 77.1 79.0 67.5 60.0 71.7 79.3 66.0 78.1 57.1 49.6 64.0 57.8 61.6 82.4 61.8 62.1 79.5 65.4 72.5 84.6 62.5 65.1 79.0 65.9 66.1 83.3 40.6 58.6 67.3 68.2 59.5 65.7 53.4 39.5 51.7 42.3 45.9 54.7 41.8 48.6 57.1 76.5 62.7 53.9 53.5 47.5 49.3 59.9 49.9 54.5 54.2 46.7 61.2 51.8 37.4 41.1 30.0 34.8 45.9 45.1 42.6 49.0 29.6 46.0
Data Y:
102.0 104.7 86.0 92.1 106.9 112.6 101.7 92.0 97.4 97.0 105.4 102.7 98.1 104.5 87.4 89.9 109.8 111.7 98.6 96.9 95.1 97.0 112.7 102.9 97.4 111.4 87.4 96.8 114.1 110.3 103.9 101.6 94.6 95.9 104.7 102.8 98.1 113.9 80.9 95.7 113.2 105.9 108.8 102.3 99.0 100.7 115.5 100.7 109.9 114.6 85.4 100.5 114.8 116.5 112.9 102.0 106.0 105.3 118.8 106.1 109.3 117.2 92.5 104.2 112.5 122.4 113.3 100.0 110.7 112.8 109.8 117.3 109.1 115.9 96.0 99.8 116.8 115.7 99.4 94.3 91.0 93.2 103.1 94.1 91.8 102.7 82.6 89.1
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