Não há nada de errado! Para retornar exatamente o que você quer existem várias opções. Dentre elas, a <- seq(-.6,.8,by=.2) round(a,2) format(a,scientific=TRUE) format(a,scientific=FALSE) format(a,digits=3,scientific=FALSE) formatC(a,format='f',digits=2,drop0trailing=TRUE) formatC(a,format='f',decimal.mark=',') as.numeric(formatC(a,format='f',decimal.mark='.')) (S,f,P) Allaman   \begin{signature} <<>>= Prof. Dr. Ivan Bezerra Allaman Universidade Estadual de Santa Cruz Departamento de Ciências Exatas e Tecnológicas Ilhéus/BA - Brasil Fone: +55 73 3680-5596 E-mail: ivanalaman@yahoo.com.br/ivanalaman@gmail.com @ \end{signature}