Compare commits

..

1 Commits

Author SHA1 Message Date
coolneng 3209641768
Implement HVR sequence alignment 2021-03-27 09:36:59 +01:00
1 changed files with 1 additions and 2 deletions

View File

@ -5,8 +5,7 @@ construct_dataframe <- function(data) {
vdj_string_set <- lapply(data, FUN = Biostrings::DNAStringSet) vdj_string_set <- lapply(data, FUN = Biostrings::DNAStringSet)
vdj_dataframe <- as.data.frame(vdj_string_set) vdj_dataframe <- as.data.frame(vdj_string_set)
vdj_dataframe$hvr_region <- paste(vdj_dataframe$v_sequence, vdj_dataframe$hvr_region <- paste(vdj_dataframe$v_sequence,
vdj_dataframe$d_sequence, vdj_dataframe$d_sequence, vdj_dataframe$j_sequence,
vdj_dataframe$j_sequence,
sep = "" sep = ""
) )
return(vdj_dataframe) return(vdj_dataframe)