# NOT RUN {
# Obtain a list of fstat files from a directory.
x <- getfile(multi=TRUE, pattern="^.+?dat$")
# set the working directory to that directory.
setwd(x$path)
# run the analysis on each file.
poppr.all(x$files)
# }
Run the code above in your browser using DataLab