R program to find most similar and dissimilar person to me