Re: [Rd] format (PR#14062)

From: Michael Dewey <info_at_aghmed.fsnet.co.uk>
Date: Fri, 13 Nov 2009 14:34:14 +0000

At 10:40 13/11/2009, dirk.jacob_at_ise.fraunhofer.de wrote:

>Full_Name: Dirk Jacob
>Version: R 2.8.1 and 2.9.1
>OS: Win XP
>Submission from: (NULL) (153.96.32.62)
>
>
>I want to convert numbers to strings
>like:
> > inputs= c(0.3+0*(1:12) )
> > (format(inputs,digits=3,scientific=T,collapse=" "))
>
>and it works
>
> [1] "3e-01" "3e-01" "3e-01" "3e-01" "3e-01" "3e-01" "3e-01" "3e-01" "3e-01"
>[10] "3e-01" "3e-01" "3e-01"
>
>if I use different numbers it does not:
>
> > C <- c(840,1000,1000,1000)
> > R <- c(860,2500,2500,2000)
> > L <- c(0.23,1,1,1.1)
> > T <- c(0.2,0.2,0.3,0.175)

So now T has the value?

> > I <- c(0.05,0.1,0.14,0.18)
> > inputs <- cbind(C,R,L,T,I)
>
>If I try the same format command, it does not:
> > (format(c(inputs[1,]),digits=3, scientific=T))
>Error in prettyNum(.Internal(format(x, trim, digits, nsmall, width, 3, :
> invalid 'scientific' argument

It does work for scientific = TRUE (admittedly I am using R 2.10.0 but I suspect it has been the same for most of this millennium).

I do not think this is a bug in R.

>Only if I change scientific to NA
> > (format(c(inputs[1,]),digits=3, scientific=NA))
>
>remark (not important for the problem):
>but I need scientific because sometimes the strings get to long otherwise
>
>
>Now if I am trying the same thing as at the beginning it doesn't work anymore
> > inputs= c(0.3+0*(1:12) )
> > (format(inputs,digits=3,scientific=T,collapse=" "))
>Error in prettyNum(.Internal(format(x, trim, digits, nsmall, width, 3, :
> invalid 'scientific' argument
>
>This looks like some problem in .Internal(format, ...) to me!?
>
>if I remove everything from my environment
> > rm(list=ls(all=T))
> >
> > inputs= c(0.3+0*(1:12) )
> > (format(inputs,digits=3,scientific=T,collapse=" "))
> [1] "3e-01" "3e-01" "3e-01" "3e-01" "3e-01" "3e-01" "3e-01" "3e-01" "3e-01"
>[10] "3e-01" "3e-01" "3e-01"
> >
>it works again!
>
>rm(list=ls(all=T))
>
>inputs= c(0.3+0*(1:12) )
>(format(inputs,digits=3,scientific=T,collapse=" "))
>
>______________________________________________
>R-devel_at_r-project.org mailing list
>https://stat.ethz.ch/mailman/listinfo/r-devel

Michael Dewey
http://www.aghmed.fsnet.co.uk



R-devel_at_r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-devel Received on Fri 13 Nov 2009 - 14:39:39 GMT

This archive was generated by hypermail 2.2.0 : Fri 13 Nov 2009 - 16:10:24 GMT