# NOT RUN {
# Decode three messages, using both individual decoding and batch decoding.
# The two first messages contain the airborne position.
# The third one, the aircraft identification
msg0 <- ADSBDecoder$hexToBits("8D40621D58C386435CC412692AD6")
msg1 <- ADSBDecoder$hexToBits("8D40621D58C382D690C8AC2863A7")
msg2 <- ADSBDecoder$hexToBits("8D4840D6202CC371C32CE0576098")
decoded0 <- ADSBDecoder$decodeMessage(msg0)
decoded1 <- ADSBDecoder$decodeMessage(msg1)
decoded2 <- ADSBDecoder$decodeMessage(msg2)
decodedAll <- ADSBDecoder$decodeMessages(list(msg0, msg1, msg2))
# }
Run the code above in your browser using DataLab