spearman.brown function | R Documentation