exFileF = system.file("extdata", "sam1F.fastq.gz", package="dada2")
show(exFileF)
srF = ShortRead::readFastq(exFileF)
derepF = derepFastq(exFileF)
dadaF <- dada(derepF, err=tperr1,
errorEstimationFunction=loessErrfun, selfConsist=TRUE)
dada2:::dada_to_seq_table(dadaF, derepF, srF)
Run the code above in your browser using DataLab