«Ошибка в tcrossprod (MModel, mmat.t): несоответствующие аргументы» в анализе посредничества

Question

В настоящее время я провожу анализ посредничества, в котором я хочу измерить влияние посредничества сыгранных минут (diff_MP_FY) на разницу в производительности (diff_perf_FY). У меня есть несколько переменных лечения. Я получаю следующее сообщение об ошибке:

Ошибка в tcrossprod (MModel, mmat.t): несовместимые аргументы

Это код, который я использовал:

model.m = lm(diff_MP_FY ~ avg_pre_injury_perf + Country  + Duration + age_at_injury 
             + line_id + first_perf_diff +
               injury_again, data = players)


model.y = lm(diff_perf_FY ~ avg_pre_injury_perf + Country  + Duration + age_at_injury 
              + line_id + first_perf_diff +
               injury_again + diff_MP_FY, data = players)

treat <- c("avg_pre_injury_perf", "Country", "Duration", "age_at_injury", 
           "line_id", "first_perf_diff", "injury_again") 

mediationmodel <- mediation::mediate(model.m, model.y, treat = treat, mediator = "diff_MP_FY")