Настройка аргументов chisq.test() для групп

Вдохновленный этим вопросом, Get `chisq.test() $p.value` для нескольких групп с использованием `dplyr::group_by()` Я выполняю тесты хи-квадрат для нескольких групп, но мне нужно настроить аргументы chisq.test по умолчанию, но я получил ошибку. Пожалуйста, посмотрите, как я могу улучшить свой код. Спасибо

data%>%
  group_by(col4,col5)%>%
  do(broom::tidy(chisq.test(x=(.$col1, .$col2),simulate.p.value = T)))

Мне кажется, что несколько аргументов не допускаются. Ошибка, которую я получил, была

 Error: unexpected ',' in:
"  group_by(col4,col5)%>%
  do(broom::tidy(chisq.test(x=(.$col1,"

По умолчанию работает нормально.

data%>%
      group_by(col4,col5)%>%
 do(broom::tidy(chisq.test(.$col1, .$col2)))

r dplyr chi-squared
person hnguyen    schedule 21.11.2019    source источник
comment
(.$col1, .$col2) недействительный код. Вы можете видеть, что это именно то место, где код прерывается в сообщении об ошибке — там, где вы пытаетесь добавить запятую и указать .$col2. Вы имели в виду c(.$col1, .$col2) ? или cbind(.$col1, .$col2) ?   -  person thelatemail    schedule 22.11.2019
comment
Спасибо, это решает мою проблему. Виноват.   -  person hnguyen    schedule 22.11.2019
comment
Не расстраивайтесь, все мы время от времени делаем опечатки и пропускаем мелочи. Просто убедитесь, что вы получаете ожидаемый результат по сравнению с версией вашего кода, которая работает. Вы также можете использовать do(broom::tidy(chisq.test(x=.$col1, y=.$col2))), я думаю.   -  person thelatemail    schedule 22.11.2019
comment
Спасибо за объяснение и за прощение.   -  person hnguyen    schedule 22.11.2019