[R-br] Erro em função lmer do pacote nlme!

Bom dia amigos da lista. Estou tentando ajustar um modelo linear misto a um conjunto de dados (didático), em que Arvore foi considerado como aleatório e Local fixo. Veja os dados e CMR:

dados   Altura Local Arvore 1     87     1      1 2     84     2      2 3     75     2      3 4     90     1      4 5     79     2      5

CMR: require(lme4) misto = lmer(Altura ~ Local +(1| Arvore), dados)  Mas, a seguinte mensagem de erro aparece: Error in checkNlevels(reTrms$flist, n = n, control) :    number of levels of each grouping factor must be < number of observations Alguém saberia dizer como corrigir este problema? Grato. Elton.