# simulate variances
lambda <- rev(sort(diff(sort(c(0, 1, runif(9))))))
# apply the Auer-Gervini method
ag <- AuerGervini(lambda, dd=c(3,10))
# try different methods
agfuns <- list(twice=agDimTwiceMean,
km=agDimKmeans,
cpt=agDimCPT)
compareAgDimMethods(ag, agfuns)
Run the code above in your browser using DataLab