# NOT RUN {
sink("old-seq")
cat("%001\n")
cat("aaa\n")
cat("bbb\n")
cat("aaa\n")
cat("ccc\n")
cat("%002\n")
cat("ccc\n")
cat("ccc\n")
cat("aaa\n")
cat("aaa\n")
cat("bbb\n")
sink()
seq1<-read.old.seq("old-seq")
seq1
file.remove("old-seq")
# }
Run the code above in your browser using DataLab