R 校正试验与校正试验p值

我试图使用来自软件包psych（psych_1.6.9）的corr.test，但在使用method=“spearman”时，它似乎给出了不同于cor.test的p值。相关系数相同，但p值不同。我已经整理了一些示例代码和输出，如下所示

library(psych)
set.seed(5)
df<-data.frame("S1"=runif(5, min=1, max=3), "S2"=runif(5, min=1, max=3), "S3"=runif(5, min=1, max=3), "S4"=runif(5, min=1, max=3), "S5"=runif(5, min=1, max=3))
rownames(df)<-c("A","B","C","D","E")
dfm<-as.matrix(df)
x1<-head(dfm,n=3)
x2<-tail(dfm,n=2)
a<-corr.test(t(x1),t(x2),method="spearman",ci=FALSE, adjust="none")
a$p
      D         E
A 1.0000000 0.8728886
B 0.2847570 0.1881204
C 0.8728886 0.6238377
cor.test(dfm["B",],dfm["D",], method="spearman", alternative="two.sided")

    Spearman's rank correlation rho

data:  dfm["B", ] and dfm["D", ]
S = 32, p-value = 0.35
alternative hypothesis: true rho is not equal to 0
sample estimates:
rho 
-0.6 

a$r
     D    E
A  0.0  0.1
B -0.6 -0.7
C  0.1 -0.3

图书馆（心理学）
种子（5）
dfWhat package is
corr.test
from？从package psych（psych_1.6.9）快速查看这两个函数的文档，看起来它们使用不同的方法来计算p值。嗯，我在读这个线程，它建议如果我使用adjust=“none”我应该得到相同的p值。啊，我明白了，谢谢@user20650！