Hi,
This is what i used. Also after running this it shows a following warning message:
In cor(MERGED, method = "pearson", use = "complete.obs") :
the standard deviation is zero
Corelation <-cor(MERGED, method = "pearson",use = "complete.obs")
Hope that helps.
Best