R options更改小数位数无效

如题，各位大佬，我在使用psych包时，应用options(digits=4)等更改小数位数后，在运行corr.test语句后还是无法改变小数位数，仍然是2位小数。但是运行其他命令的结果小数位数是更改了的。请问这个怎么解决。

我原来也遇到过，不知道是不是顺序问题，你先写options(digits=4)，再写那个语句试一下，如果不是就不知道了

人不风流往少年 发表于 2020-3-17 11:35
我原来也遇到过，不知道是不是顺序问题，你先写options(digits=4)，再写那个语句试一下，如果不是就不知道了 ...

还是不行，顺序换了也不行

我在网上找到了替代方法，有人直接写了程序
COR.test=function(X,R){options(digits=4) #求F检验的p值，为矩阵形式，R为简单相关系数矩阵，X为数据集
        n=dim(X)[2]  #得到p矩阵的阶数
        p=diag(0,n)    #n阶零矩阵
        for(i in 1:n)
        {
                for(j in 1:n){
                        f=R[i,j]^2/((1-R[i,j]^2)/(dim(X)[1]-2))  #用F检验对相关系数作显著性检验
                        p[i,j]=1-pf(f,1,dim(X)[1]-2)   #用F检验计算p值
                }
        }
        p
}
COR.test(julei1,cor(julei1))
程序来源：https://wenku.baidu.com/view/5a24ef34f61fb7360a4c65a0.html