今天在写一个很简单的函数,就是输出一个回归里面的IV的系数和P值,但是奇怪的是函数里面的变量无法赋值。具体的代码如下
mydata <- read.csv(file.choose())
PPP <- function(x, y) {
#browser()
fit.YonX <- summary(lm(y ~ x))
co.YonX <- fit.YonX$Coefficients[2,1]
p.YonX <- fit.YonX$Coefficients[2,4]
results <- list(co.YonX, p.YonX)
return(results)
}
coo <- PPP(mydata$CQ_Meta, mydata$LeadEmer_selfRated)
输出的结果为
> PPP <- function(x, y) {
+ #browser()
+ fit.YonX <- summary(lm(y ~ x))
+ co.YonX <- fit.YonX$Coefficients[2,1]
+ p.YonX <- fit.YonX$Coefficients[2,4]
+ results <- list(co.YonX, p.YonX)
+ return(results)
+ }
>
> coo <- PPP(mydata$CQ_Meta, mydata$LeadEmer_selfRated)
> coo
[[1]]
NULL
[[2]]
NULL
我用调试模式查了下,主要是以下两个语句无法赋值
co.YonX <- fit.YonX$Coefficients[2,1]
p.YonX <- fit.YonX$Coefficients[2,4]
请问大家有没有遇到过相同的情况,有解决的方法吗,先谢谢大家了。