# load needed packages
library(Biobase)
library(Biostrings)

# file name
inFile <- "UniVec_subset.fa"

# read file into R
dnaSeqs <- readDNAStringSet(inFile)
dnaSeqs

# question 1: length of shortest sequence?



names <- c("Vera", "Sandra", "Sujai", "Sofia", "Cei", "Franklin")
sample(names, 3, replace = FALSE)