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 _______________________________________________ R-br mailing list [email protected] https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.
