#set file path
path <- "../data"
#make matched list of forward and reverse reads
fnFs <- sort(list.files(path, pattern = "_R1_001.fastq.gz", full.names = TRUE))
fnRs <- sort(list.files(path, pattern = "_R2_001.fastq.gz", full.names = TRUE))
#specify primer sequences
FWD <- "GGWACWGGWTGAACWGTWTAYCCYCC"
REV <- "TAIACYTCIGGRTGICCRAARAAYCA"