numbers <- c(2, 3, 5, 7, 11)
# Encoding binary data
data_b <- serialize(numbers, NULL)
# Decoding binary data
numbers2 <- unserialize(data_b)
# numbers2 = 2 3 5 7 11
numbers2_class <- class(numbers2)
# numbers2_class = numeric
cat("numbers2 =", numbers2, "\n")
cat("numbers2_class =", numbers2_class, "\n")