• QR Code (size=2)
• QR Code (size=3)
• QR Code (size=4)
• QR Code (size=5)
• QR Code (size=6)

11
8
12
10
7
6
8
16
8
16
7
11
16
16
12
13
19
7
8
12
13
11
8
16
15
11
12
7
9
15
6
14
14
7
15
14
17
14
5
14
8
8
13
14
16
11
10
10
10
8
14
14
12
13
5
10
6
15
12
16
15
12
8
14
14
13
12
15
8
16
14
13
15
7
5
7
13
14
14
13
11
15
13
14
13
9
8
6
13
16
7
11
8
13
5
8
10
9
16
4
4
11
14
15
17
10
15
11
15
10
9
14
15
9
12
10
16
15
14
12
15
9
12
15
6
4
8
10
6
12
14
11
15
13
15
16
4
15
12
15
15
14
14
14
11

11
12
15
10
12
11
5
16
11
15
12
9
11
15
12
16
14
11
10
7
11
10
11
16
14
12
12
11
6
14
9
15
12
12
9
13
15
11
10
13
16
13
14
14
16
9
8
8
12
10
16
13
11
14
15
8
9
17
9
13
6
13
8
12
13
14
11
15
7
16
16
14
11
13
13
7
15
11
15
13
11
12
10
12
12
12
14
6
14
15
8
12
10
15
11
9
14
10
16
5
8
13
16
16
14
14
10
9
14
8
8
16
12
9
15
12
14
12
16
12
14
8
15
16
12
4
8
11
4
14
14
13
14
7
19
12
10
14
16
11
16
12
12
16
12

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