# NOT RUN {
# Assuming ms is on the path
system("ms 5 4 -s 5 > ms.out")
msout1 <- read.ms.output("ms.out")
system("ms 50 4 -s 5 > ms.out")
msout2 <- read.ms.output("ms.out",outfile="out",outfileonly=TRUE)
msout <- system("ms 5 4 -s 5 -L", intern=TRUE)
msout3 <- read.ms.output(msout,FALSE)
# }
Run the code above in your browser using DataLab