このページの2つのバージョン間の差分を表示します。
両方とも前のリビジョン 前のリビジョン 次のリビジョン | 前のリビジョン 最新のリビジョン 両方とも次のリビジョン | ||
00.初めての医療統計rとezr:10.wilcoxonの順位和検定 [2020/03/27] adash333 [参考文献] |
00.初めての医療統計rとezr:10.wilcoxonの順位和検定 [2020/03/27] adash333 [tidyverseパッケージのwilcox.test()関数を用いる場合] |
||
---|---|---|---|
行 19: | 行 19: | ||
45, 51 | 45, 51 | ||
80, 89 | 80, 89 | ||
- | + | 52, 48 | |
+ | 66, 64 | ||
</ | </ | ||
行 26: | 行 27: | ||
library(tidyverse) | library(tidyverse) | ||
- | data <- read_csv(" | + | data <- tribble( |
+ | ~pre, ~post, | ||
+ | # | ||
+ | 51, 53, | ||
+ | 68, 65, | ||
+ | 45, 51, | ||
+ | 80, 89, | ||
+ | 52, 48, | ||
+ | 66, 64, | ||
+ | ) | ||
- | summary(data$A) | + | summary(data$pre) |
- | summary(data$B) | + | summary(data$post) |
# Wilcoxon符号付順位和検定 | # Wilcoxon符号付順位和検定 | ||
- | wilcox.test(data$A, data$B, paired = TRUE) | + | wilcox.test(data$pre, data$post, paired = TRUE) |
</ | </ | ||