i have write a function to convert decimal number into binary number in R.
dectobin<-function(x){
as.numeric(intToBits(x))->x1
paste(x1,collapse="")->x2
as.numeric(gsub("0+$","",x2))->x3
return(as.character(x3))}
dectobin can get right result ,it is so long ,is there a build-in function to
do ?
[[alternative HTML version deleted]]
I recommend
?sprintf
(4^(1/3))^3 != 4
(4^(1/3))^3 == 4
(4^(1/3))^3 - 4
format(c((4^(1/3))^3 , 4), digits=17)
sprintf("%+13.13a", c((4^(1/3))^3 , 4))
On Fri, Dec 13, 2013 at 10:11 PM, ???? <1248283536 at qq.com>
wrote:> i have write a function to convert decimal number into binary number in R.
>
> dectobin<-function(x){
> as.numeric(intToBits(x))->x1
> paste(x1,collapse="")->x2
> as.numeric(gsub("0+$","",x2))->x3
> return(as.character(x3))}
>
> dectobin can get right result ,it is so long ,is there a build-in function
to do ?
> [[alternative HTML version deleted]]
>
> ______________________________________________
> R-help at r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide
http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.
On Sat, 14 Dec 2013, ???????? wrote:> i have write a function to convert decimal number into binary number in R. > > dectobin<-function(x){ > as.numeric(intToBits(x))->x1 > paste(x1,collapse="")->x2 > as.numeric(gsub("0+$","",x2))->x3 > return(as.character(x3))} > > dectobin can get right result ,it is so long ,is there a build-in > function to do ?I don't know of one. The below function is roughly twice as fast as yours and it works on an entire vector of values at once (but it still uses a for loop to do so). decToBinStr <- function(x) { l <- floor( log( x, 2 ) ) + 1 v <- as.logical( intToBits( x ) ) vc <- rep( "0", length( v ) ) vc[ v ] <- "1" m <- matrix( vc, ncol=length( x ) ) result <- rep( NA, length( x ) ) for ( idx in seq.int( length( x ) ) ) { result[ idx ] <- paste( m[ seq.int( l[ idx ], 1 ), idx ], collapse="" ) } result }> [[alternative HTML version deleted]]Per the Posting Guide, please post in plain text. --------------------------------------------------------------------------- Jeff Newmiller The ..... ..... Go Live... DCN:<jdnewmil at dcn.davis.ca.us> Basics: ##.#. ##.#. Live Go... Live: OO#.. Dead: OO#.. Playing Research Engineer (Solar/Batteries O.O#. #.O#. with /Software/Embedded Controllers) .OO#. .OO#. rocks...1k
???? wrote:> i have write a function to convert decimal number into binary number in R. > > dectobin can get right result ,it is so long ,is there a build-in function to do ?Try the R.utils package: > library(R.utils) > intToBin(12) [1] "1100" > intToBin(255) [1] "11111111" > intToBin(65535) [1] "1111111111111111" > intToBin(65536) [1] "10000000000000000" Earl F Glynn Principal Programmer/Analyst Center for Health Insights ? University of Missouri ? Kansas City