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}