diff --git a/src/repertoire.r b/src/repertoire.r index 13c47fa..79e98ed 100644 --- a/src/repertoire.r +++ b/src/repertoire.r @@ -13,7 +13,7 @@ generate_repertoire <- function(number_of_sequences) { process_data <- function(data) { dna_sequence <- Biostrings::DNAStringSet(data$sequence) data$sequence <- Biostrings::reverseComplement(dna_sequence) - names(data$sequence) <- paste(rownames(data), data$v_call, data$j_call) + names(data$sequence) <- paste(rownames(data), data$v_call, data$j_call, " ") Biostrings::writeXStringSet(data$sequence, "data/sequence.fasta") }