# Interoperability conversion used once; numerical analysis reads the supplied CSV.
# Run from the bundle root with base R to verify the preserved source conversion.
d <- readRDS("data/source.RDS")
stopifnot(is.data.frame(d))
write.csv(d, "data/source.csv", row.names=FALSE, na="")