 
Is this a bug somewhere?  The format function, using a specific number of digits, doesn't give sensible results:
 
R> set.seed(2);print(x<-rexp(5))
[1] 1.86535 0.40475 0.14665 1.73071 0.08953
R> format(x,digits=1)
[1] "1.87" "0.40" "0.15" "1.73" "0.09"
R> format(x,digits=2)
[1] "1.87" "0.40" "0.15" "1.73" "0.09"
R> format(x,digits=3)
[1] "1.8654" "0.4047" "0.1467" "1.7307" "0.0895"
 
 

	[[alternative HTML version deleted]]

