Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
93.028 92.285 91.685 94.260 93.858 92.437 92.980 92.099 92.803 88.551 98.334 98.329 96.455 97.109 97.687 98.512 98.673 96.028 98.014 95.580 97.838 97.760 99.913 97.588 93.942 93.656 92.881 93.120 91.063 90.930 91.946 94.624 65.484 95.862 95.530 94.574 94.677 93.845 91.533 91.214 90.922 89.563 89.945 91.850 92.505 92.437 93.876 93.561 94.119 95.264 96.089 97.160 98.644 96.266 97.938 99.757 101.550 102.449 102.416 102.587
Data Y:
283.042 276.687 277.915 277.128 277.103 275.037 270.150 267.140 264.993 287.259 291.186 292.300 288.186 281.477 282.656 280.190 280.408 276.836 275.216 274.352 271.311 289.802 290.726 292.300 278.506 269.826 265.861 269.034 264.176 255.198 253.353 246.057 235.372 258.556 260.993 254.663 250.643 243.422 247.105 248.541 245.039 237.080 237.085 225.554 226.839 247.934 248.333 246.969 245.098 246.263 255.765 264.319 268.347 273.046 273.963 267.430 271.993 292.710 295.881 293.299
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