如何从biserial.cor函数中找到p值？

Question

我想计算两个参数之间的相关性。 y是名义比例（0和1）

library(ltm)
x <- c(1,2,5,0,6,3,4)
y <- c(0,0,1,1,1,0,0)

我找到了提供ltm功能的biserial.cor包。

test <-  biserial.cor (x,y)

如何从此功能中找到p-value？

非常感谢您的所有建议和答案。