# NOT RUN {
library(Biostrings)
seqs <- DNAStringSet(c(a='ATGC', b = 'ATGG', c = 'ATGT'))
csv <- data.frame(queries = c('a', 'b'), refs = c('c', 'c'))
gphmmPerRead <- makeGphmmPerRead(seqs, csv)
parameters <- initializeGphmm()
counts <- lapply(1:nrow(csv), function(i) gphmmPerRead(i, parameters))
computeGphmmParam(counts)
# }
Run the code above in your browser using DataLab