Update AAfanClustering.R