a  b  c
yes 39 33 29
no  31 41 47

table1 <- table(ggr$TouchGun, ggr$Cond)
chisq.post.hoc(table1, test='chisq.test')

Adjusted p-values used the fdr method.

  comparison  raw.p  adj.p
1    1 vs. 2 0.0209 0.0209
2    1 vs. 3 0.0052 0.0104
3    2 vs. 3    NaN    NaN
Warning messages:
1: In test(tbl[prs[, i], ], ...) :
  Chi-squared approximation may be incorrect
2: In test(tbl[prs[, i], ], ...) :
  Chi-squared approximation may be incorrect
3: In test(tbl[prs[, i], ], ...) :
  Chi-squared approximation may be incorrect