Можете ли вы передать данные в pairwise.t.test?

Question

Мне интересно, можно ли упростить следующий код, чтобы данные могли передаваться напрямую из команды суммирования в pairwise.t.test без создания промежуточного объекта?

data_for_PTT <- data %>% 
  group_by(subj, TT) %>% 
  summarise(meanRT = mean(RT))

pairwise.t.test(x = data_for_PTT$meanRT, g = data_for_PTT$TT, paired = TRUE)

I пробовал x = .$meanRT, но это не понравилось, возвращая:

Ошибка в match.arg (p.adjust.method): 'arg' должно быть NULL или символьным вектором

Answer 1

Вы можете использовать фигурные скобки:

data_for_PTT <- data %>% 
  group_by(subj, TT) %>% 
  summarise(meanRT = mean(RT)) %>%
  {pairwise.t.test(x = .$meanRT, g = .$TT, paired = TRUE)}

Воспроизводимые:

df <- data.frame(X1 = runif(1000), X2 = runif(1000), subj = rep(c("A", "B")))

df %>% 
  {pairwise.t.test(.$X1, .$subj, paired = TRUE)}