Вот один из способов сделать это.Обратите внимание, что когда я загрузил ваши данные, столбец, помеченный a
, отображается как X.
:
library(dplyr)
library(broom)
> data
# A tibble: 45 x 25
X. Cinizm Agres Vrajdeb Zavisim Motiv Stimul Igra Rasslab Podderjka_1
<int> <int> <int> <int> <int> <int> <int> <int> <int> <int>
1 1 33 22 17 1 7 6 7 13 15
2 1 54 38 24 3 8 13 4 13 8
3 1 44 35 21 6 8 11 10 14 6
...
> data %>% do(tidy(t.test(Vrajdeb~X., data=.)))
estimate estimate1 estimate2 statistic p.value parameter conf.low
conf.high method alternative
1 -1.728571 17.3 19.02857 -0.8999865 0.3819658 15.42225 -5.812628
2.355486 Welch Two Sample t-test two.sided