对象'；sef'；在R corr.test中未找到

我正试图在R中运行corr.test方程，代码是我的教授提交的，并在他的系统上进行了测试。不幸的是，当我运行它时，我得到了一个错误，即“找不到对象sef”

这让我和我的教授都感到困惑，而且经过彻底的研究，我们不确定如何解决这个问题

我真的很感激你能提供的任何帮助

编辑：以下是我正在使用的代码：

trendan1 <- read.table("trendan1.for.R.dat", header=TRUE, na.strings=".")
head(trendan1)
tail(trendan1)
attributes(trendan1)
is.matrix(trendan1)

id <- trendan1$id
famenv1 <- trendan1$famenv1
famenv2 <- trendan1$famenv2
famenv3 <- trendan1$famenv3
conf1 <- trendan1$conf1
conf2 <- trendan1$conf2
conf3 <- trendan1$conf3

trendan1dataset1 <- cbind(id,famenv1,famenv2,famenv3,conf1,conf2,conf3)
attributes(trendan1dataset1)
is.matrix(trendan1dataset1)
is.data.frame(trendan1dataset1)

require("psych")
describe(trendan1dataset1[,2:7])
print(describe(trendan1dataset1[,2:7]), digits=6)  


famave <-  (1*famenv1 + 1*famenv2 + 1*famenv3)/3
famlin <-  -1*famenv1 + 0*famenv2 + 1*famenv3
famquad <-  1*famenv1 - 2*famenv2 + 1*famenv3;

trendandataset2 <- cbind(famenv1,famenv2,famenv3,famave,famlin,famquad)
print(describe(trendandataset2), digits=6)

hist(famenv1)
boxplot(famenv1)
abline(h=mean(famenv1)) 
qqnorm(famenv1,ylab="famenv1")  
qqline(famenv1)                
shapiro.test(famenv1)

hist(famenv2)
boxplot(famenv2)
abline(h=mean(famenv2)) # add mean to the boxplot
qqnorm(famenv1,ylab="famenv2")  
qqline(famenv2)                
shapiro.test(famenv2)

corvars1 <- cbind(famenv1,famenv2,famenv3)


cor(corvars1,use = "everything", method = "pearson")
cov(corvars1,use = "everything")
sscp1 <- t(corvars1)%*%(corvars1) #Matrix multiplcation
sscp1

rc1 <- corr.test(corvars1, 
use="pairwise",method="pearson",adjust="holm",alpha=.05, ci=FALSE) 
attributes(rc1)
print(rc1$p, digits=6)

---

trendan1这是一个错误，有时在您不评估置信区间时会发生。如果u将选项更改为ci=TRUE，或者简单地删除此选项，因为默认值为ci=TRUE，则应修复此问题。
您能否提供所使用的数据和代码（对于数据，至少显示结构）编辑问题（最好使用代码格式）；不要将代码作为注释发布。欢迎使用StackOverflow。请阅读并遵循帮助文档中的发布指南，以及。请记住，您还需要包括。我们应该能够将您发布的代码粘贴到文本文件中，并重现您描述的问题。完成后，单击
edit
编辑您的问题，以便我们提供帮助。