Marcelo, seu exemplo nao eh reproduzivel (nos nao temos os dados "data"). set.seed(1) N = 1000 x = log(seq(1, N, length.out=N)) y = 2 + 3*x + rnorm(N, sd=3) reg1 = lm(y~x) reg2 = lm(y~x-1) plot(x, y) abline(reg1, col=2, lwd=2) abline(reg2, col=3, lwd=2) b