Линейная регрессия с известным фиксированным перехватом в R

Я хочу рассчитать линейную регрессию, используя функцию LM () в R. Кроме того, я хочу получить уклон регрессии, где я явно даю перехват LM () .

Я нашел пример в Интернете, и я пытался прочитать R-HELP "? LM" (К сожалению, я не могу этого понять), но мне не удалось. Кто-нибудь может сказать мне, где моя ошибка?

lin <- data.frame(x = c(0:6), y = c(0.3, 0.1, 0.9, 3.1, 5, 4.9, 6.2))
plot (lin$x, lin$y)

regImp = lm(formula = lin$x ~ lin$y)
abline(regImp, col="blue")

# Does not work:
# Use 1 as intercept
explicitIntercept = rep(1, length(lin$x))
regExp = lm(formula = lin$x ~ lin$y + explicitIntercept)
abline(regExp, col="green")

TALLS для вашей помощи.