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.