从列表中获取变量

Question

我进行回归并获取数据集：

x <- c(1,2,3)
y <- c(4,15,60)

fit <- lm(x ~ y)

现在我的拟合结果给了我一个截距（1.16244）和y变量（0.03181）我如何只引用y-var？我试过这样做：

Yvar <- c(fit[1]) 

但所有内容都存储在Yvar中。我试图制作一个矢量：

Yvar <- as.vector(c(fit[1]))

这里也存储了所有内容。我如何获得

Yvar = 0.03181