2025-01-12 04:36:52 +08:00

6 lines
265 B
R

library(MASS)
x <- c(rep(1.407,3), rep(1.422,4), 1.597, 1.597, rep(1.64,19), 1.649,
1.664, 1.664, 1.67, 1.672, 1.672, 1.787, 4.42, 4.44, rep(6.55,3),
rep(6.79,14), rep(7.19,,73), 9.00, 9.38, rep(9.41,10))
hubers(x) # failed to converge in MASS 7.3-9.