Update 13-16S_seq.md

materials/13-16S_seq.md

@@ -44,7 +44,7 @@ In the first line we define the path to our data folder, followed by reading the
 path <- "FIX/ME"
 fnFs <- sort(list.files(path, pattern="_1.fastq.gz", full.names = TRUE))
 fnRs <- sort(list.files(path, pattern="_2.fastq.gz", full.names = TRUE))
-sample.names <- sapply(strsplit(basename(fnFs), "_"), `[`, 6)
+sample.names <- sapply(strsplit(basename(fnFs), "_"), `[`, 1)
 
 ```
 
@@ -229,8 +229,6 @@ We are loading in the sample metadata from an external excel file and will use t
 metadata <- read_excel("FIX/ME/Fecal_Sample_Collection.xlsx", 
                       sheet = "Metadata")
 metadata <- metadata %>% as.data.frame() %>% column_to_rownames(var = "Sample_ID")
-sample.names <- sapply(strsplit(rownames(seqtab.nochim), "lane1RebeccaR"), `[`, 2)
-rownames(seqtab.nochim) <- sample.names
 seqtab.nochim <- seqtab.nochim %>% as.data.frame()
 ```