Implement HVR sequence alignment

2021-03-27 09:36:59 +01:00
1 changed files with 1 additions and 2 deletions
--- a/src/alignment.r
+++ b/src/alignment.r
@ -5,8 +5,7 @@ construct_dataframe <- function(data) {
  vdj_string_set <- lapply(data, FUN = Biostrings::DNAStringSet)
  vdj_dataframe <- as.data.frame(vdj_string_set)
  vdj_dataframe$hvr_region <- paste(vdj_dataframe$v_sequence,
-    vdj_dataframe$d_sequence,
-    vdj_dataframe$j_sequence,
+    vdj_dataframe$d_sequence, vdj_dataframe$j_sequence,
    sep = ""
  )
  return(vdj_dataframe)