#Creosote example from ISO 5725-5:1998
#Means for each group are:
cm <-c(24.140, 20.155, 19.500, 20.300, 20.705, 17.570, 20.100, 20.940, 21.185)
algA(cm, verbose=TRUE)
#Iteration 4 corresponds very closely to the ISO 5725 answer
Run the code above in your browser using DataLab