Mude a declaração do modelo para ir para a parametrização desejada

ml <- lm(circumference~-1+factor(Tree)/age, data=Orange)
summary(ml)

À disposição.
Walmes.