Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
114.08 112.95 135.31 134.31 133.03 140.11 124.69 131.68 150.95 137.26 130.51 143.15 118.01 122.56 147.97 135.74 151.62 154.82 145.59 147.12 175.86 140.66 152.69 154.38 132.45 136.44 153.24 154.11 155.93 142.53 148.73 147.73 166.79 144.30 156.07 161.70 152.10 140.45 155.56 174.53 167.16 159.48 173.22 176.13 180.31 185.84 169.43 195.25 174.99 156.42 182.08 182.00 153.28 136.72 130.19 132.04 143.89 133.38 127.98 150.45 133.55
Data Y:
136.49 142.62 141.71 149.51 147.39 131.96 136.38 127.34 133.85 125.14 141.25 149.32 120.92 134.85 131.93 134.22 143.07 145.37 134.32 126.31 162.21 124.09 153.91 154.34 138.70 150.98 146.39 178.30 168.23 162.52 158.86 152.17 171.01 171.49 189.62 177.46 179.98 156.96 167.89 194.78 192.78 165.06 196.60 151.64 187.02 210.99 219.08 235.68 241.44 187.46 229.57 208.44 215.09 217.00 171.08 178.41 196.34 172.11 154.93 182.26 181.74
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