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

99.5
93.5
104.6
95.3
102.8
103.3
100.2
107.9
107.5
119.8
112
102.1
105.3
101.3
108.4
107.4
109.1
109.5
111.4
110.1
117
129.6
113.5
113.3
110.1
107.4
110.1
112.5
106
117.6
117.8
113.5
121.2
130.4
115.2
117.9
110.7
107.6
124.3
115.1
112.5
127.9
117.4
119.3
130.4
126
125.4
130.5
115.9
108.7
124
119.4
118.6
131.3
111.1
124.8
132.3
126.7
131.7
130.9

114.2
99.4
98
90.8
111.4
104.3
99.6
108
113.1
112.7
114.3
108.6
116.2
101.9
107.3
111.4
121.9
123.1
108.1
114.5
119.7
117
114.8
115.8
117.9
97.5
121.2
118.2
120.2
110.7
117.4
110
106.6
114.7
105.6
115.2
112.3
105.9
106.4
113.8
108.9
100.4
105.3
99.6
104.4
111.5
97
107.3
104.1
97.8
99.9
96.8
81.3
72.7
89.1
96
97.4
98
89
97.9

101.3
100.9
104.1
96.2
87
88.7
87
87.7
91.3
103.3
110.6
111.2
105.8
98.3
97.6
88.4
93
93.5
94.5
98.1
98.3
114.8
107.8
107.9
112.7
100.2
96.9
96.6
95.5
96.9
99.7
105.1
106.1
106.2
103.9
109.2
110.5
98
94.1
90.2
89.5
91.2
98.2
103.7
103.9
106.5
107.2
111
111.8
101.5
95.3
92.7
93.5
96.2
102.1
102.3
127.9
130.8
134.9
141.9

x <- array(x,dim=c(length(x),1))
colnames(x) <- par5
y <- array(y,dim=c(length(y),1))
colnames(y) <- par6
z <- array(z,dim=c(length(z),1))
colnames(z) <- par7
d <- data.frame(cbind(z,y,x))
colnames(d) <- list(par7,par6,par5)
par1 <- as.numeric(par1)
par2 <- as.numeric(par2)
if (par1>500) par1 <- 500
if (par2>500) par2 <- 500
if (par1<10) par1 <- 10
if (par2<10) par2 <- 10
library(GenKern)
library(lattice)
panel.hist <- function(x, ...)
{
usr <- par('usr'); on.exit(par(usr))
par(usr = c(usr[1:2], 0, 1.5) )
h <- hist(x, plot = FALSE)
breaks <- h$breaks; nB <- length(breaks)
y <- h$counts; y <- y/max(y)
rect(breaks[-nB], 0, breaks[-1], y, col='black', ...)
}
bitmap(file='cloud1.png')
cloud(z~x*y, screen = list(x=-45, y=45, z=35),xlab=par5,ylab=par6,zlab=par7)
dev.off()
bitmap(file='cloud2.png')
cloud(z~x*y, screen = list(x=35, y=45, z=25),xlab=par5,ylab=par6,zlab=par7)
dev.off()
bitmap(file='cloud3.png')
cloud(z~x*y, screen = list(x=35, y=-25, z=90),xlab=par5,ylab=par6,zlab=par7)
dev.off()
bitmap(file='pairs.png')
pairs(d,diag.panel=panel.hist)
dev.off()
x <- as.vector(x)
y <- as.vector(y)
z <- as.vector(z)
bitmap(file='bidensity1.png')
op <- KernSur(x,y, xgridsize=par1, ygridsize=par2, correlation=cor(x,y), xbandwidth=dpik(x), ybandwidth=dpik(y))
image(op$xords, op$yords, op$zden, col=terrain.colors(100), axes=TRUE,main='Bivariate Kernel Density Plot (x,y)',xlab=par5,ylab=par6)
if (par3=='Y') contour(op$xords, op$yords, op$zden, add=TRUE)
if (par4=='Y') points(x,y)
(r<-lm(y ~ x))
abline(r)
box()
dev.off()
bitmap(file='bidensity2.png')
op <- KernSur(y,z, xgridsize=par1, ygridsize=par2, correlation=cor(y,z), xbandwidth=dpik(y), ybandwidth=dpik(z))
op
image(op$xords, op$yords, op$zden, col=terrain.colors(100), axes=TRUE,main='Bivariate Kernel Density Plot (y,z)',xlab=par6,ylab=par7)
if (par3=='Y') contour(op$xords, op$yords, op$zden, add=TRUE)
if (par4=='Y') points(y,z)
(r<-lm(z ~ y))
abline(r)
box()
dev.off()
bitmap(file='bidensity3.png')
op <- KernSur(x,z, xgridsize=par1, ygridsize=par2, correlation=cor(x,z), xbandwidth=dpik(x), ybandwidth=dpik(z))
op
image(op$xords, op$yords, op$zden, col=terrain.colors(100), axes=TRUE,main='Bivariate Kernel Density Plot (x,z)',xlab=par5,ylab=par7)
if (par3=='Y') contour(op$xords, op$yords, op$zden, add=TRUE)
if (par4=='Y') points(x,z)
(r<-lm(z ~ x))
abline(r)
box()
dev.off()