avoid using .Internal
par.pam
make id last parameter for plot.cluster
zero for NA correlation
sort inside cluster by sil_width