powered by
MM.estimate(x, ...) "MM.estimate"(x, u, c = 4.685, ...) huber.estimate(x, ...) "huber.estimate"(x, u, k= 1.345, ...)
x
rlm
x~1
1/u^2
loc.est-class
## Cd heat of vapourisation example from the paper cited above x2<-c(27.044, 26.022, 26.340, 26.787, 26.796) v<-c(3, 76, 464, 3, 14)*1e-3 MM.estimate(x2, sqrt(v)) huber.estimate(x2, sqrt(v))
Run the code above in your browser using DataLab