# NOT RUN {
x = nuclearPed(1)
x = setMarkers(x, marker(x, "3" = "a/b", name = "m1"))
# Write to file
fn = writePed(x, prefix = tempfile("test"))
# Read
y = readPed(fn)
stopifnot(identical(x, y))
# }
Run the code above in your browser using DataLab