Error in `h(simpleError(msg, call))`: error in evaluating the argument 'x' in selecting a method for function 'score': 'recursive' must be a length-1 vector

test_that("Generate similarity matrix and display as a heatmap", {
kmers_given <- c("GATTACA", "ACAGATT", "GAATTAC", "GAAATCT", "CTATAGA", "GTACATA", "AACGATT")
kmers_mat <- kmeRs_similarity_matrix(q = kmers_given, submat = "BLOSUM62")
# Score the matrix and sort by decreasing score

"Generate similarity matrix and display as a heatmap"

Generate similarity matrix and display as a heatmap

test_that("Generate similarity matrix for given k-mers", {
kmers_mat <- kmeRs_similarity_matrix(q = c("GATTACA"), x = kmers_given , submat = "BLOSUM62")

"Generate similarity matrix for given k-mers"

Generate similarity matrix for given k-mers

Error in `unlist(substitutionMatrix, substitutionMatrix)`: 'recursive' must be a length-1 vector

kmeRs_align <- kmeRs_show_alignment(kmer_A = "AAATTTCCCGGG", kmer_B = "TCACCC", submat = "BLOSUM62")

test_that("Generate similarity matrix for given k-mer", {

"Generate similarity matrix for given k-mer"

Generate similarity matrix for given k-mer

test_that("Calculate basic statistics for the matrix", {

"Calculate basic statistics for the matrix"

Calculate basic statistics for the matrix