[R-br] obtencao de coef. de determinacao

Pessoal, mais outra questao sendo: a<- 1:10 b<- c(3,6,5,6,8,10,8,11,10,12) quando eu faco summary(lm(b~a)) , me resulta em um Rsquared = 0,8743 Entretanto, quando eu forço a passagem pela origem do grafico: summary(lm(b ~a-1)), o valor de Rsquared é maior (~0.95) O valor do Rsquared quando eu forco a passagem pela origem nao deveria ser menor?? obrigado, Leonardo.