The Data N = 7 Median = 5 Quartiles = 3, 6 Decimal point is at the colon 1 : 0 2 : 3 : 0 4 : 0 5 : 0 6 : 00 High: 14 a1 <- a0 - median(a0) [1] -4 -2 -1 0 1 1 9 mad1 <- median(abs(a1)) [1] 1 [ght1 <- bisquare(a1/(6 * mad1)) 1] 0.3086420 0.7901235 0.9452160 1.0000000 0.9452160 0.9452160 0.0000000 a0 weight1 [1,] 1 0.3086420 [2,] 3 0.7901235 [3,] 4 0.9452160 [4,] 5 1.0000000 [5,] 6 0.9452160 [6,] 6 0.9452160 [7,] 14 0.0000000 c1 <- sum(a0 * weight1)/sum(weight) 4.62111 a2 <- a0 - c1 [1] -3.6211102 -1.6211102 -0.6211102 0.3788898 1.3788898 1.3788898 9.3788898 mad2 <- median(abs(a2)) [1] 1.37889 weight2 <- bisquare(a2/(6 * mad2)) [1] 0.6535631 0.9246861 0.9887596 0.9958098 0.9452160 0.9452160 0.0000000 a0 weight1 [1,] 1 0.3086420 [2,] 3 0.7901235 [3,] 4 0.9452160 [4,] 5 1.0000000 [5,] 6 0.9452160 [6,] 6 0.9452160 [7,] 14 0.0000000 c2 <- sum(a0 * weight2)/sum(weight) [1] 4.803874