> On 22 Mar 2019, at 18:07 , Martin Maechler <maech...@stat.math.ethz.ch> wrote:
>
> gives (on Linux R 3.5.3, Fedora 28)
>
> d=10 d=7 d=2 d=1 d=0
> [1,] "123456" "123456" "123456" "1e+05" "%#4.0-1e"
> [2,] "12345.6" "12345.6" "12346" "12346" "%#4.0-1e"
> [3,] "1234.56" "1234.56" "1235" "1235" "1235"
> [4,] "123.456" "123.456" "123" "123" "123"
> [5,] "12.3456" "12.3456" "12" "12" "12"
> [6,] "1.23456" "1.23456" "1.2" "1" "1"
> [7,] "0.123456" "0.123456" "0.12" "0.1" "0"
> [8,] "0.0123456" "0.0123456" "0.012" "0.01" "0"
> [9,] "0.00123456" "0.00123456" "0.0012" "0.001" "0"
>
> but probably looks better on Mac
Yes (3.5.1 though)
> nn <- 123456*10^(0:-8); dd <- c(10, 7, 2:0); names(dd) <- paste0("d=",dd)
> sapply(dd, function(dig) sapply(nn, format, digits=dig))
d=10 d=7 d=2 d=1 d=0
[1,] "123456" "123456" "123456" "1e+05" "1.e+05"
[2,] "12345.6" "12345.6" "12346" "12346" "1.e+04"
[3,] "1234.56" "1234.56" "1235" "1235" "1235"
[4,] "123.456" "123.456" "123" "123" "123"
[5,] "12.3456" "12.3456" "12" "12" "12"
[6,] "1.23456" "1.23456" "1.2" "1" "1"
[7,] "0.123456" "0.123456" "0.12" "0.1" "0"
[8,] "0.0123456" "0.0123456" "0.012" "0.01" "0"
[9,] "0.00123456" "0.00123456" "0.0012" "0.001" "0"
--
Peter Dalgaard, Professor,
Center for Statistics, Copenhagen Business School
Solbjerg Plads 3, 2000 Frederiksberg, Denmark
Phone: (+45)38153501
Office: A 4.23
Email: pd....@cbs.dk Priv: pda...@gmail.com
______________________________________________
R-devel@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-devel
