[R] Built-in function for extracting mantissa and exponent of a numeric

[Søren Højsgaard]

Dear all,

Given a number

x<-1.234e12

is there a built-in function for extracting 1.234 and 12 ?

The following "hack" seems clumpsy:

> a<-strsplit(format(x, scientific=T),"e")[[1]]
> a
[1] "1.234" "+12"  
> as.numeric(a[1])
[1] 1.234
> as.integer(a[2])
[1] 12

Regards
Søren