library(knitr)
library(readxl)
#detach(package:plyr)
library(dplyr)
library(ggplot2)
library(reshape2)
library(kableExtra)
set.seed(100)

files used

path <- "/Users/kylielanglois/SCCWRP/eDNA Sample Management - eDNA/ESTUARY_SAV"
#path to database files

inv <- read_excel(file.path(path, "eDNAmaster_inventory_ESTUARY_SAV.xlsx"), 
                sheet=1)

ex1 <- read_excel(file.path(path, "eDNAmaster_extraction_ESTUARY_SAV.xlsx"), 
               sheet=1)

seq <- read_excel(file.path(path, "eDNAmaster_extraction_ESTUARY_SAV.xlsx"), 
                            sheet=3)

what has been processed?

Project rep/bl # samples # extracted # sequenced
B23-R9 blank 18 15 5
B23-SAV blank 11 11 0
BAJA blank 4 0 0
Bight23 blank 6 3 0
EMPA blank 29 11 0
EPA-SAV blank 8 7 3
PROP50 blank 8 5 1
Santa Ana River blank 2 0 0
B23-R9 sample 138 135 131
B23-SAV sample 84 83 0
BAJA sample 56 0 0
Bight23 sample 125 35 0
EMPA sample 348 109 0
EMPA-Bight23 sample 245 10 0
EPA-SAV sample 22 20 20
PROP50 sample 70 57 45
Santa Ana River sample 36 0 0
NA sample 1 1 0

exceptions

Project StationCode NOT extracted
B23-SAV B23SAV-901 1
B23-R9 SC-AGH FB
B23-R9 SC-BAT FB
B23-R9 SC-KFR 2
B23-R9 SC-SDL 2
EPA-SAV UNB-PCH 1
EPA-SAV UNB-PCH 2
EPA-SAV UNB-PCH FB
B23-R9 SC-SDL 1
B23-R9 SC-SEL FB

details

Sample type total samples
Smith-Root 471
coffee filter 267
sterivex 265
FLAT 193
sediment 14