R: «x» не является ошибкой сбалансированного фактора - тест Фридмана

Question

Пытаюсь использовать friedman_test (coin), но получаю ошибку:

Error in .local(.Object, ...) : ‘x’ is not a balanced factor.

Я хочу сравнить два "Обработки" с большего информационного кадра и использовать "Предмет" в качестве блока. После извлечения соответствующих данных это df:

   Subject      Treatment Itching.Duration
1       BG  Pentobarbital              108
2       BG Tripelennamine              141
3       JF  Pentobarbital              341
4       JF Tripelennamine              184
5       BS  Pentobarbital              159
6       BS Tripelennamine              125
7       SI  Pentobarbital              135
8       SI Tripelennamine              227
9       BW  Pentobarbital              239
10      BW Tripelennamine              194
11      TS  Pentobarbital              136
12      TS Tripelennamine              155
13      GM  Pentobarbital              140
14      GM Tripelennamine              121
15      SS  Pentobarbital              134
16      SS Tripelennamine              129
17      MU  Pentobarbital              185
18      MU Tripelennamine               79
19      OS  Pentobarbital              188
20      OS Tripelennamine              317

И ошибка, которую я получаю:

> friedman_test(Itching.Duration~Treatment|as.factor(Subject), data = df1)
Error in .local(.Object, ...) : ‘x’ is not a balanced factor

Я понимаю, что мои данные не сбалансированы, но я не понимаю, как это сделать. Если я выполняю одну и ту же команду на всех кадрах данных перед извлечением данных, она работает.