Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
-8.420276058 5.603810549 7.227897157 -0.439987367 -8.023929628 -10.08378528 -10.65969868 -2.827583199 -3.339265638 -2.699121292 5.708907577 -19.42686147 -11.31080373 5.505254006 2.529340614 3.06145609 -4.822486171 -5.698399564 -5.450226349 7.438091212 0.070206688 5.602322165 8.934437641 -17.34950462 -6.409360275 9.214726333 12.15487068 5.578957286 1.503043893 -0.488927238 -0.46484063 12.15121711 4.459245977 6.675303715 11.79939032 -12.67652307 -2.168494201 10.64756354 14.39573675 8.711794491 -0.832003425 4.284054313 7.172371874 9.140978126 10.51323795 9.58549777 13.30155551 -10.16632902 -1.210126931 10.14607515 8.762132891 -0.865607287 -10.54954955 -12.32546294 -11.6094052 -0.077289726 -10.75320312 -6.588972166 -1.932770082 -22.20868347
Data Y:
0.650033625 0.669304839 0.088576053 -0.385728995 -0.272881519 -0.04076283 0.078508384 0.004203336 -0.225135547 -0.293016857 -0.486593119 0.264796785 0.37764426 0.390491736 0.20976295 0.135457902 0.248305378 0.467576592 0.506119019 0.476780137 0.402475088 0.22817004 -0.046135008 0.166712468 0.098831158 0.118102371 0.050221061 -0.030507725 -0.011236511 0.095187227 0.114458441 0.027305917 0.133729654 -0.15342287 -0.634151656 -0.314880442 -0.508456704 -0.795609228 -0.7570668 -0.744219325 -0.499253159 -0.386405683 -0.515744566 -0.680846069 -1.023032427 -1.265218786 -0.85237131 0.373323642 0.618289807 0.263255973 -0.323896551 -0.56608291 -0.253235434 0.56603578 0.878883256 0.904578208 0.623849422 0.275239325 0.420205491 1.139476705
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
N
display data points
(Y/N)
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