add R script for cluster eigengenes