Предупреждение в R с использованием функции gains ()

Question

Я получил эту ошибку при попытке использовать функцию gains () в R:

"Предупреждение: меньше прогнозируемых значений, чем запрошенных групп." Я использовал функцию summary (), чтобы убедиться, что два кадра данных, которые я пытаюсь сравнить, имеют одинаковый размер.

Answer 1

 if (num.groups < groups) {  #Just return all distinct scores
       warning("Warning: Fewer distinct predicted values than groups requested")
       pred.group<-rank(-1*predicted,ties.method="min")
    } else if (num.groups == groups)  {  #Just return all distinct scores
       pred.group<-rank(-1*predicted,ties.method="min")
    } else {  
       num.groups<-groups
       pred.rank<-total.n+1-rank(predicted,ties.method=ties.method)
       pred.group<-ceiling(pred.rank/(total.n/groups))    }