coolneng/locigenesis
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Add space to sequence ID for easier parsing

Browse Source
This commit is contained in:
coolneng
2021-04-21 21:02:56 +02:00
parent 35406497a3
commit fb5d781c66
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/repertoire.r
View File

@@ -13,7 +13,7 @@ generate_repertoire <- function(number_of_sequences) {
process_data <- function(data) { process_data <- function(data) {
dna_sequence <- Biostrings::DNAStringSet(data$sequence) dna_sequence <- Biostrings::DNAStringSet(data$sequence)
data$sequence <- Biostrings::reverseComplement(dna_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") Biostrings::writeXStringSet(data$sequence, "data/sequence.fasta")
} }