Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
139 158 128 224 105 159 167 165 159 119 163 153 148 188 149 244 150 132 161 105 97 166 111 145 162 163 109 148 125 116 149 138 148 159 164 176 202 214 188 110 48 54 50 124 121 221 150 153 154 94 156 151 157 194 159 39 100 187 105 111 162 99 186 183 138 101 177 126 101 139 114 114 162 111 75 82 159 158 67 121 32 117 165 147 165 150 154 126 149 145 109 120 172 132 169 172 114 156 167 2 113 165 165 118 173 158 155 49 220 122 151 44 141 152 103 107 175 154 110 143 131 167 137 121 168 149 94 51 168 145 140 109 66 119 164 132 126 83 142 93 117 166
Data Y:
12.2 7.4 6.7 12.6 13.3 11.1 8.2 11.4 6.4 10.6 11.9 6.4 13.8 13.8 11.7 10.9 9.9 9 9.7 10.8 10.3 9.3 5.9 11.4 13 10.8 11.8 10.9 13.3 10.1 12.9 14.3 12.8 14.8 9.3 12 15.9 13 14.5 7.7 4.35 6.3 12.7 9.3 10 10.8 18.1 11.5 17.85 8.3 11.7 10.4 11.8 17.1 16.1 14.7 10.6 11.3 12.7 12.6 12.5 7.6 9.2 11.1 16.2 13.6 12.3 11.4 14.1 12.6 14.5 14.75 13 14.8 12.45 12.65 13.2 19.1 13.35 17.35 8.6 16.1 17.75 18.4 16.15 18.4 15.25 17.65 16.35 17.65 14.35 13.6 18.25 14.75 9.9 16.85 16 18.25 18.95 16.1 15.6 15.4 15.4 13.35 17.1 19.1 19.1 7.6 19.25 12.75 14.75 9.85 13.6 15.25 12.4 11.9 18.15 16.35 12.35 17.75 15.6 19.3 17.1 18.4 12.85 19.05 9.5 4.5 18.55 13.6 19.1 13.35 11.7 14.05 17.6 13.35 16.1 11.95 11.85 7.7 14.6 13.2
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') x <- x[!is.na(y)] y <- y[!is.na(y)] y <- y[!is.na(x)] x <- x[!is.na(x)] 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 if (par8 == 'terrain.colors') mycol <- terrain.colors(100) if (par8 == 'rainbow') mycol <- rainbow(100) if (par8 == 'heat.colors') mycol <- heat.colors(100) if (par8 == 'topo.colors') mycol <- topo.colors(100) if (par8 == 'cm.colors') mycol <- cm.colors(100) 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=mycol, 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