'k' must satisfy 0 < k < min(nrow(A), ncol(A))

[mbcole]

Add helpful message when eval_pcs > the number of (eval) negative controls or (eval) positive controls