!!!多重比較の場合のp値の補正
https://www.rdocumentation.org/packages/stats/versions/3.6.2/topics/p.adjust

!手順
+補正前のp値をベクトルに保存
+補正方法を選択："bonferroni" "holm"
+組合せの数（ベクトルの要素の数と同じ）

!使い方
 p.adjust(ベクトル, method="補正方法", 組合せの数)
!例
{{pre
> d1 <- c(0.00000000000000022, 0.00000000000000022, 0.00000000000000022)

> p.adjust(d1, method="holm", n=3)

[1] 6.6e-16 6.6e-16 6.6e-16

> d2 <- c(0.0000000007925, 0.00000007586, 0.8093)

> p.adjust(d2, method="holm", n=3)

[1] 2.3775e-09 1.5172e-07 8.0930e-01

> p.adjust(d2, method="bonferroni", n=3)

[1] 2.3775e-09 2.2758e-07 1.0000e+00

> d3 <- c(0.00000002481, 0.00000000000000022, 0.0000000005179)

> p.adjust(d3, method="holm", n=3)

[1] 2.4810e-08 6.6000e-16 1.0358e-09
}}