From 0e12a90ff58685831b72e502b91d5cac1d70fa73 Mon Sep 17 00:00:00 2001
From: lkalmar <44808502+lkalmar@users.noreply.github.com>
Date: Thu, 31 Oct 2024 12:51:01 +0000
Subject: [PATCH] Update 13-16S_seq.md

---
 materials/13-16S_seq.md | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/materials/13-16S_seq.md b/materials/13-16S_seq.md
index 5b8c357..2dec860 100644
--- a/materials/13-16S_seq.md
+++ b/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()
 ```