rare values expect control.pts to be of size 9

[hiyamgh]

If the user uses the method range in phi.control and provides a relevance matrix with 2 rows rather than 3 rows, we cannot compute the percentage of rare values in the data according to the following (code snippet taken from code provided in this repository)

because of the following line:
both <- all(pc$control.pts[c(2,8)] == c(1,1))