# NOT RUN {
x <- getfile()
poppr(x$files)
y <- getfile(multi=TRUE, pattern="^.+?dat$")
#useful for reading in multiple FSTAT formatted files.
yfiles <- poppr.all(y$files)
# Write results to a file in that directory.
setwd(y$path)
write.csv(yfiles)
# }
Run the code above in your browser using DataLab