[R] Converting binary number to in Two´s complement representation

[Rui Barradas]

Sorry, missunderstood the problem.
Here it goes:

fun <- function(x){
   res <- sapply(x, function(y){
     if(nchar(y) %% 8 != 0 || substr(y, 1, 1) == "0"){
       strtoi(y, base = 2)
     }else{
       y <- unlist(strsplit(y, ""))
       -sum((y != "1")*2^((length(y) - 1):0)) - 1
     }
   })
   unname(res)
}

fun("10110010")
fun("10000000")
fun(c("01000000", "01111111", "10110010", "10000000"))


Hope this helps,

Rui Barradas

Às 11:38 de 20/01/20, Rui Barradas escreveu:
> Hello,
> 
> Is this what you want?
> 
> 
> x <- "10110010"
> strtoi(x, base = 2)
> #[1] 178
> 
> 
> Hope this helps,
> 
> Rui Barradas
> 
> Às 16:31 de 16/01/20, Paul Bernal escreveu:
>> Dear friends,
>>
>> How can I convert the following binary number in two´s complement
>> representation in R?
>>
>> 10110010
>>
>> Any help and/or guidance will be greatly appreciated,
>>
>> Best regards,
>>
>> Paul
>>
>>     [[alternative HTML version deleted]]
>>
>> ______________________________________________
>> R-help using r-project.org mailing list -- To UNSUBSCRIBE and more, see
>> 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.
>>
> 
> ______________________________________________
> R-help using r-project.org mailing list -- To UNSUBSCRIBE and more, see
> 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.