## 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)
# ## End(Not run)
Run the code above in your browser using DataLab