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

Compare commits

base: coolneng:04415310c660cbadd2d15b0f4d1fc57ff0d0dc71
Branches Tags
coolneng:master
coolneng:0.2.2
coolneng:0.2.1
coolneng:0.2.0
coolneng:0.1.1
coolneng:0.1.0
..
compare: coolneng:643960967a3468165c68998bf13eebbdfcd3456a
Branches Tags
coolneng:master
coolneng:0.2.2
coolneng:0.2.1
coolneng:0.2.0
coolneng:0.1.1
coolneng:0.1.0

1 Commits
04415310c6 ... 643960967a

Author SHA1 Message Date
coolneng 643960967a
Remove redundant sequencing runs argument 2021-03-29 20:31:40 +02:00
1 changed files with 2 additions and 2 deletions
Show Stats Expand all files Collapse all files

4
src/repertoire.r
View File

@ -16,7 +16,7 @@ save_data <- function(data) {
write.csv(vdj_sequences, "data/vdj_alignment.csv", row.names = FALSE) write.csv(vdj_sequences, "data/vdj_alignment.csv", row.names = FALSE)
} }
process_data <- function(repertoire) { process_data <- function(repertoire, sequencing_runs) {
columns <- c( columns <- c(
"sequence", "v_sequence_alignment", "sequence", "v_sequence_alignment",
"d_sequence_alignment", "j_sequence_alignment" "d_sequence_alignment", "j_sequence_alignment"
@ -36,4 +36,4 @@ parse_cli_arguments <- function() {
arguments <- parse_cli_arguments(commandArgs(trailing)) arguments <- parse_cli_arguments(commandArgs(trailing))
repertoire <- generate_repertoire(number_of_sequences = arguments[1]) repertoire <- generate_repertoire(number_of_sequences = arguments[1])
process_data(repertoire) process_data(repertoire, sequencing_runs)