извлечь p-значения и r-квадрат из линейной регрессии

Как вы извлекаете p-значение (для значимости ненулевого значения коэффициента единственной независимой переменной) и значение R-квадрата из простой модели линейной регрессии? Например ...

x = cumsum(c(0, runif(100, -1, +1)))
y = cumsum(c(0, runif(100, -1, +1)))
fit = lm(y ~ x)
summary(fit)

Я знаю, что summary (fit) отображает p-значение и R-квадрат, но я хочу иметь возможность вставить их в другие переменные.