## Show that format01prec() does reveal more precision :
cbind(format (1 - 2^-(16:24)),
format01prec(1 - 2^-(16:24)))
## a bit more variety
e <- c(2^seq(-24,0, by=2), 10^-(7:1))
ee <- sort(unique(c(e, 1-e)))
noquote(ff <- format01prec(ee))
data.frame(ee, format01prec = ff)
Run the code above in your browser using DataLab