Как интерпретировать и вычислять аргументы between.var и within.var в функции для анализа мощности однофакторного дисперсионного анализа power.anova?

Question

[Medvedev_Denis]

Здравствуйте! Хочу понять как правильно интерпретировать и вычислять аргументы between.var и within.var в функции для анализа мощности однофакторного дисперсионного анализа power.anova.test (язык r). В документации написано, что это between group variance и within group variance. Речь идет о суммах квадратов SSB и SSW? Или об MSB = SSB/(k-1) и MSW = SSW/(n-k)?
Сейчас я вычисляю их как MSB и MSW. Получаю between.var = 387.1 и within.var = 339, и в результате power = 0.9851467. Мне кажется, что это - явно ошибочная оценка. Прошу аргументированно подтвердить или опровергнуть мои догадки насчет того, что надо использовать SSB и SSW.
Дело в том, что я работаю с пилотными данными в виде результатов A/B-теста. Мне нужно выполнить анализ мощности для однофакторного дисперсионного анализа с помощью функции power.anova.test из R. Код прилагаю:

X <- c(41.9,16.0,84.0,56.0,0.0,0.0,33.0,33.4,26.0,13.0,23.0,34.0,26.0,25.0,56.0,30.0,21.7,21.0,36.5,24.0,21.8,5.5,34.0,11.0,10.0,23.0,11.5,46.2,21.7,20.1,64.0,14.0)

F <- c(rep('f1',16) , rep('f2',16))

av <- unlist(summary(aov(X ~ F)))

b_var <-  av['Mean Sq1']
w_var <- av['Mean Sq2']

power.anova.test(
           groups = 2,
           n = 16,
           between.var = b_var,
           within.var = w_var,
           sig.level = 0.05)