ercas

library(dplyr)
library(ggplot2)
library(jsonlite)
library(lubridate)
library(stringr)

# load data ---------------------------------------------------------------

data <- fromJSON("ercas_lb-2021-07-21.json") %>%
  flatten() %>%

shawwwn

# µPing (MicroPing) for MicroPython
# copyright (c) 2018 Shawwwn <shawwwn1@gmail.com>
# License: MIT

# Internet Checksum Algorithm
# Author: Olav Morken
# https://github.com/olavmrk/python-ping/blob/master/ping.py
# @data: bytes
def checksum(data):
    if len(data) & 0x1: # Odd number of bytes