Update cluster-func.R