Wessa.net

Send output to:


Data X:
86 70 71 108 64 119 97 129 153 78 80 99 68 147 40 57 120 71 84 68 137 79 101 111 189 66 81 63 69 71 64 143 85 86 55 69 120 96 60 95 100 68 57 105 85 103 57 51 69 41 49 50 93 58 54 74 15 69 107 65 58 107 70 53 136 126 95 69 136 58 118 82 50 102 65 90 64 83 70 50 77 37 81 101 79 71 60 55 44 40 56 43 45 32 56 40 34 89 50 56 76 64 74 57 30 62 51 36

Data Y:
68 39 32 62 33 52 62 77 76 41 48 63 30 78 19 31 66 35 42 45 25 44 54 74 80 42 61 41 46 39 34 51 42 31 39 20 49 53 31 39 54 49 34 46 55 42 50 13 37 25 30 28 45 35 28 41 6 45 73 17 40 64 37 25 65 100 28 35 56 29 59 50 3 59 27 61 28 51 35 29 48 25 44 64 32 20 28 34 31 26 58 23 21 21 33 16 20 37 35 33 41 40 35 28 22 44 27 17


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)


display data points (Y/N)


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')

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