Remove a_chain generation

This commit is contained in:
coolneng 2021-02-28 02:23:28 +01:00
parent 34722f3ebf
commit ae5014fd74
Signed by: coolneng
GPG Key ID: 9893DA236405AF57
1 changed files with 1 additions and 8 deletions

View File

@ -2,13 +2,6 @@ library(immuneSIM)
library(Biostrings) library(Biostrings)
generate_repertoires <- function(number_of_sequences) { generate_repertoires <- function(number_of_sequences) {
a_chain <- immuneSIM(
number_of_seqs = number_of_sequences,
species = "hs",
receptor = "tr",
chain = "a",
verbose = TRUE
)
b_chain <- immuneSIM( b_chain <- immuneSIM(
number_of_seqs = number_of_sequences, number_of_seqs = number_of_sequences,
species = "hs", species = "hs",
@ -16,7 +9,7 @@ generate_repertoires <- function(number_of_sequences) {
chain = "b", chain = "b",
verbose = TRUE verbose = TRUE
) )
return(list("a_chain" = a_chain, "b_chain" = b_chain)) return(b_chain)
} }
process_chain <- function(repertoire) { process_chain <- function(repertoire) {