R 管道运算符 %T>%

Question

谁会在 %T>% 上给我建议，

代码是

c(1031, 8, 0, 968, 66, 12) %>% 
  matrix(ncol = 3) %>% 
  'colnames<-'(c("Improved", "Hospitalized", "Death")) %>% 
  'rownames<-'(c("Treated", "Placebo")) %>% 
  as.table %T>% fisher.test %>% chisq.test

然而，它总是绕过 fisher.test 只进行 chisq.test。我的计划是数据将分别输出到 fisher 和 chisq 测试中。

非常感谢您的建议!

查尔斯

Answer 1

你不需要 T 型管。

library(magrittr)

c(1031, 8, 0, 968, 66, 12) %>% 
  matrix(ncol = 3) %>% 
  'colnames<-'(c("Improved", "Hospitalized", "Death")) %>% 
  'rownames<-'(c("Treated", "Placebo")) %>% 
  as.table %>% 
  {fisher.test(.) %>% print() 
   chisq.test(.) %>% print()}
#> 
#>  Fisher's Exact Test for Count Data
#> 
#> data:  .
#> p-value < 2.2e-16
#> alternative hypothesis: two.sided
#> 
#> 
#>  Pearson's Chi-squared test
#> 
#> data:  .
#> X-squared = 2012.4, df = 2, p-value < 2.2e-16

^{由 reprex package 创建于 2022-01-22 (v2.0.1)}