print(formatC(med-est, format = "g"), quote = FALSE) ou print(formatC(med-est, format = "fg"), quote = FALSE) Veja ?formatC []s, --- Fernando Mayer Universidade Federal de Santa Catarina - UFSC Departamento de Ecologia e Zoologia - ECZ/CCB URL: http://sites.google.com/site/fernandomayer e-mail: fernandomayer [@] gmail.com 2012/4/24 Edson Lira <edinhoestat@yahoo.com.br>:

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

_______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.