"Критерий хи-квадрат" обычно генерируется как сумма квадратов индивидуальных отклонений ячеек от "ожидаемых" = произведений сумм строк и столбцов, деленная на общую сумму. Таким образом, можно сравнить вклады отдельных ячеек в сумму с критическим значением хи-квадрата с 1 d.f. Это довольно простая задача изменить код chisq.test () так, чтобы он возвращал хи-квадраты ячейки. Я просто добавил:
cell.chisq = (x - E)^2/E,
на вызов структуры в конце. Они не получат print () - ed, но вы можете присвоить результат объекту и использовать:
obj$cell.chisq