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

63,1
63
74,9
64,7
68,5
73,9
57,3
62,5
75,7
73,5
71
76,1
65
66,3
74,4
71,1
71,9
75,7
64,3
62,6
75,3
80,3
72,2
80,3
71,3
70,7
77,5
79,2
75,4
83,4
72,9
68,4
85
86,2
76,7
91,2
76
77
87,3
83,1
81,1
88,4
76,7
70,9
85,9
84,8
79,6
89,9
74
74,8
91,4
84,1
80
92,2
77,3
78,1
93,6
92,9
89,8
101,8
84,8
90,8
106,8
92,2
101,5
101,6
86
89,7
106,3
107,8
106,7
118,1
100,3
97,5
112,9
101,3
107,8
110,3
94,6
93,9
104,8
109,4
107,6
112,3
99
99,9
111,1
111,2
109,5
111,6
102,2
94,5
114,4
116,8
110,5
121,1
106,3
104,6
117,3
112,4
107,5
116,9
104,9
95,9
121,5
124,1
110,7
128,1
108,9
111,2
131,9
120,5
115,4
130,8
112,6
111,1
129,5
131,8
127,7
142,6
115,8
119,5
139,8
130,6
126,2
141,7
118,9
120,3
141,2
138,9
141,3
153,7
131
136,5
160,1
139,8
143,8
155,8
131
131,8
151,7
153,8
152,9
156,1
147,2
145,7
165,3
147,5
154,5
165,5
146

70,9
73
83,9
73,2
76,7
83,1
59,8
68,2
91,1
85
81,6
78,8
73
74,3
81,2
79,9
79,7
83,6
68,6
66,6
83,5
91,8
80,5
84,7
78,7
78,4
83,1
84,8
80,7
91,8
75,3
71,8
93
94,3
83,7
95,6
82,2
83,4
93,1
88,7
84,5
95
76,6
73,4
93
91
85,3
89,5
76,1
76,1
91,5
85,4
80
94
72,6
80,8
94,1
94,9
91,9
99,2
84,7
93,7
106,7
93,5
104,8
103,5
83,1
89,6
105,7
110,7
110,4
109
106
100,9
114,3
101,2
109,2
111,6
91,7
93,7
105,7
109,5
105,3
102,8
100,6
97,6
110,3
107,2
107,2
108,1
97,1
92,2
112,2
111,6
115,7
111,3
104,2
103,2
112,7
106,4
102,6
110,6
95,2
89
112,5
116,8
107,2
113,6
101,8
102,6
122,7
110,3
110,5
121,6
100,3
100,7
123,4
127,1
124,1
131,2
111,6
114,2
130,1
125,9
119
133,8
107,5
113,5
134,4
126,8
135,6
139,9
129,8
131
153,1
134,1
144,1
155,9
123,3
128,1
144,3
153
149,9
150,9
141
138,9
157,4
142,7
151,5
160,8
138,4

58,4
56,8
69,4
59,6
63,6
68,4
55,9
59,1
66,2
66,5
64,5
74,5
60
61,4
70,1
65,7
67,1
70,8
61,5
60,1
70,1
73,2
67,1
77,4
66,9
66
74
75,8
72,2
78,2
71,4
66,3
79,9
81,2
72,2
88,4
72,2
73
83,8
79,7
79,1
84,3
76,8
69,3
81,3
80,9
76
90
72,6
73,9
91,2
83,1
80,1
91,1
80,1
76,3
93,2
91,6
88,5
103,2
84,9
89
106,9
91,4
99,6
100,6
88
89,7
106,7
106
104,4
123,7
97,1
95,5
112,2
101,4
106,9
109,5
96,4
93,9
104,2
109,2
108,9
117,9
98,2
101,4
111,6
113,6
110,8
113,9
105,5
95,9
115,8
119,9
107,3
126,9
107,8
105,5
120,2
116
110,4
120,8
110,7
99,9
126,8
128,6
112,9
136,6
113,3
116,3
137,5
126,7
118,5
136,4
120,2
117,2
133,3
134,8
129,9
149,5
118,5
122,8
145,7
133,6
130,8
146,8
126
124,4
145,5
146,3
145
162
132,2
140,2
164,8
143,7
144,2
156,4
135,9
134,2
156,5
154,8
155,2
159,5
151,5
150,1
170,6
150,8
156,8
168,8
150,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()