Create subsample.R

This script can be used to subsample a fasta using a header list (must be used with bioconductor)