Tenho esse script abaixo: require(PASWR) trat<-rep(LETTERS[1:4],5) med<-c(25,31,22,33,26,25,26,29,20,28,28,31,23,27,25,34,21,24,29,28) exem1_4<-data.frame(med,trat) exem1_4 m1<-lm(exem1_4$med~exem1_4$trat) anova(m1) summary(m1) erro<-resid(m1) erro est<-predict(m1) med-est Quando gero o erro ele me dá essa saída. 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 2.00e+00 4.00e+00 -4.00e+00 2.00e+00 3.00e+00 -2.00e+00 -3.33e-16 -2.00e+00 -3.00e+00 1.00e+00 2.00e+00 -1.11e-16 8.88e-16 1.11e-16 -1.00e+00 3.00e+00 -2.00e+00 18 19 20 -3.00e+00 3.00e+00 -3.00e+00 Gostaria de transformar estes números para a notação comum, tipo 2, 3, -4 .... Me lembro que certa vez alguém postou esse problema, mas faz muito tempo. Alguém tem alguma sugestão? Edson Lira Estatístico Manaus-Amazonas