[Rd] significant digits (PR#9682)

2008-06-03 Thread pmc1
I came to report this same bug and found it already in the trash, but I slightly disagree with that assessment. If it's not a bug, then perhaps it's a feature request. Comments at the end. On Mon, May 14, 2007, Duncan Murdoch wrote: >>On 13/05/2007 8:46 PM, [EMAIL PROTECTED] wrote: >> >> In the ex

Re: [Rd] significant digits (PR#9682)

2008-06-03 Thread pmc1
To reply to my own message, that function wasn't quite right. I think this one works better: signif.string <- function(signum,sigdigs){ test <- abs(signum) left <- nchar(trunc(test)) right <- nchar(test)-left-1 if (test<1) {left<-left-1} if (right<0) {right<-0} if (sigdigshttps://stat.