Compare commits
1 Commits
c5f28ea3bf
...
3209641768
Author | SHA1 | Date |
---|---|---|
coolneng | 3209641768 |
|
@ -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)
|
||||||
|
|
Loading…
Reference in New Issue