tweak corr.R so returns numeric if no results