Hello,
Your code and the answers provided, specially Marc's, led me to
utf8ToBin <- function(x, out = c("ascii", "dec", "bin")){
out <- match.arg(out)
ascii_datformat <- utf8ToInt(x)
Base <- ascii_datformat - 48
Base <- ifelse(Base > 40, Base - 8, Base)
Bin <- R.utils::intToBin(Base)
switch (out,
"ascii" = ascii_datformat,
"dec" = Base,
"bin" = Bin
)
}
utf8ToBin("133m@", out = "ascii")
utf8ToBin("133m@", out = "dec")
utf8ToBin("133m@", out = "bin")
Hope this helps,
Rui Barradas
Às 16:30 de 27/12/19, Paul Bernal escreveu:
Dear Jeff,
Hope you are doing great. The link I provide below has the results I am
expecting. I am doing a test, trying to convert this string: "133m@ogP00PD
;88MD5MTDww@2D7k" into ascii numbers, then to decimal, and ultimately, into
binary. I am trying to recreate the results obtained in the link below.
http://www.it-digin.com/blog/?p=20
Hope this answers your question.
Thanks for any guidance you can provide,
Cheers,
Paul
El vie., 27 dic. 2019 a las 11:18, Jeff Newmiller (<jdnew...@dcn.davis.ca.us>)
escribió:
Your question is incomplete... what do you expect the result to be?
Perhaps [1] is relevant?
[1]
https://stackoverflow.com/questions/52298995/r-binary-decimal-conversion-confusion-ais-data
On December 27, 2019 7:42:36 AM PST, Paul Bernal <paulberna...@gmail.com>
wrote:
Dear friends,
Hope you are all doing well. I need to find a way to convert ascii
numbers
to six digit binary numbers:
I am working with this example, I converted the string to ascii, and
finally to decimal, but I am having trouble converting the decimal
numbers
into their six digit binary representation. The code below is exactly
what
I have so far:
ascii_datformat <- utf8ToInt("133m@ogP00PD;88MD5MTDww@2D7k")
ascii_datformat
Base <- ascii_datformat - 48
ifelse(Base > 40, Base-8, Base)
x <- rev(intToBits(Base))
dec2bin <- function(x) paste(as.integer(rev(intToBits(x))), collapse =
"")
dec2bin
any guidance will be greatly appreciated,
Best regards,
Paul
[[alternative HTML version deleted]]
______________________________________________
R-help@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.
--
Sent from my phone. Please excuse my brevity.
[[alternative HTML version deleted]]
______________________________________________
R-help@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@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.
