所以这就是我到目前为止所拥有的，
library(faraway)
x <- lm(gamble ~ sex+status+income+verbal, data= teengamb)
然后我发现拟合值和残差之间的相关性
zapsmall(cor(fitted(x), resid(x)))
所以现在我需要找到残差和收入之间的相关性 我需要创建矩阵吗？
答案 0 :(得分：0)
不，你没有。您正在比较两个变量，因此矩阵将是1乘1（即标量）
cor(teengamb$income, resid(x))