用于计算OLS截距和斜率的函数

Question

OLS = function(x,y){
slope = cov(x, y)/var(x)
intercept = mean(y) - (slope*mean(x))
return(c(slope,intercept))
}

我想写一个给定预测器和结果的OLS截距和斜率的计算。我按如上所述编写代码。但是当我使用它时，它只给了我一堆NAs。我认为问题在于（x，y）。也许我不应该使用x和y，因为我会插入随机变量。