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

87,28
87,28
87,09
86,92
87,59
90,72
90,69
90,3
89,55
88,94
88,41
87,82
87,07
86,82
86,4
86,02
85,66
85,32
85
84,67
83,94
82,83
81,95
81,19
80,48
78,86
69,47
68,77
70,06
73,95
75,8
77,79
81,57
83,07
84,34
85,1
85,25
84,26
83,63
86,44
85,3
84,1
83,36
82,48
81,58
80,47
79,34
82,13
81,69
80,7
79,88
79,16
78,38
77,42
76,47
75,46
74,48
78,27
80,7
79,91
78,75
77,78
81,14
81,08
80,03
78,91
78,01
76,9
75,97
81,93
80,27
78,67
77,42
76,16
74,7
76,39
76,04
74,65
73,29
71,79
74,39
74,91
74,54
73,08
72,75
71,32
70,38
70,35
70,01
69,36
67,77
69,26
69,8
68,38
67,62
68,39
66,95
65,21
66,64
63,45
60,66
62,34
60,32
58,64
60,46
58,59
61,87
61,85
67,44
77,06
91,74
93,15
94,15
93,11
91,51
89,96
88,16
86,98
88,03
86,24
84,65
83,23
81,7
80,25
78,8
77,51
76,2
75,04
74
75,49
77,14
76,15
76,27
78,19
76,49
77,31
76,65
74,99
73,51
72,07
70,59
71,96
76,29
74,86
74,93
71,9
71,01
77,47
75,78
76,6
76,07
74,57
73,02
72,65
73,16
71,53
69,78
67,98
69,96
72,16
70,47
68,86
67,37
65,87
72,16
71,34
69,93
68,44
67,16
66,01
67,25
70,91
69,75
68,59
67,48
66,31
64,81
66,58
65,97
64,7
64,7
60,94
59,08
58,42
57,77
57,11
53,31
49,96
49,4
48,84
48,3
47,74
47,24
46,76
46,29
48,9
49,23
48,53
48,03
54,34
53,79
53,24
52,96
52,17
51,7
58,55
78,2
77,03
76,19
77,15
75,87
95,47
109,67
112,28
112,01
107,93
105,96
105,06
102,98
102,2
105,23
101,85
99,89
96,23
94,76
91,51
91,63
91,54
85,23
87,83
87,38
84,44
85,19
84,03
86,73
102,52
104,45
106,98
107,02
99,26
94,45
113,44
157,33
147,38
171,89
171,95
132,71
126,02
121,18
115,45
110,48
117,85
117,63
124,65
109,59
111,27
99,78
98,21
99,2
97,97
89,55
87,91
93,34
94,42
93,2
90,29
91,46
89,98
88,35
88,41
82,44
79,89
75,69
75,66
84,5
96,73
87,48
82,39
83,48
79,31
78,16
72,77
72,45
68,46
67,62
68,76
70,07
68,55
65,3
58,96
59,17
62,37
66,28
55,62
55,23
55,85
56,75
50,89
53,88
52,95
55,08
53,61
58,78
61,85
55,91
53,32
46,41
44,57
50
50
53,36
46,23
50,45
49,07
45,85
48,45
49,96
46,53
50,51
47,58
48,05
46,84
47,67
49,16
55,54
55,82
58,22
56,19
57,77
63,19
54,76
55,74
62,54
61,39
69,6
79,23
80
93,68
107,63
100,18
97,3
90,45
80,64
80,58
75,82
85,59
89,35
89,42
104,73
95,32
89,27
90,44
86,97
79,98
81,22
87,35
83,64
82,22
94,4
102,18

library(Hmisc)
m <- mean(x)
e <- median(x)
bitmap(file='test1.png')
op <- par(mfrow=c(2,1))
mydensity1 <- density(x,kernel='gaussian',na.rm=TRUE)
plot(mydensity1,main='Density Plot - Gaussian Kernel',xlab='Median (0 -> full line) | Mean (0 -> dashed line)',ylab='density')
abline(v=e,lty=1)
abline(v=m,lty=5)
grid()
myseq <- seq(0.01, 0.99, 0.01)
hd <- hdquantile(x, probs = myseq, se = TRUE, na.rm = FALSE, names = TRUE, weights=FALSE)
plot(myseq,hd,col=2,main='Harrell-Davis Quantiles',xlab='quantiles',ylab='Median (0 -> full) | Mean (0 -> dashed)')
abline(h=m,lty=5)
abline(h=e,lty=1)
grid()
par(op)
dev.off()
load(file='createtable')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Median versus Mean',2,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'mean',header=TRUE)
a<-table.element(a,mean(x))
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'median',header=TRUE)
a<-table.element(a,median(x))
a<-table.row.end(a)
a<-table.end(a)
table.save(a,file='mytable.tab')