``` r
library(seqinr)
library(ShortRead)

# Replace 'input.fasta' with the name of your multi-sequence fasta file
input_file <- "../data/07-CG-motifs/input.fq"

# Need to use silghtly different code to accomodate an .fq file instead of a .fasta
# sequences <- read.fasta(input_file)
fq <- readFastq(input_file)
sequences <- sread(fq)
```