Generate both alfa and beta chains
This commit is contained in:
parent
f63fabac4f
commit
010849d4c9
|
@ -1,13 +1,21 @@
|
||||||
library(immuneSIM)
|
library(immuneSIM)
|
||||||
|
|
||||||
sim_repertoire <- immuneSIM(
|
generate_repertoires <- function(number_of_sequences) {
|
||||||
number_of_seqs = 1000,
|
a_chain <- immuneSIM(
|
||||||
|
number_of_seqs = number_of_sequences,
|
||||||
|
species = "hs",
|
||||||
|
receptor = "tr",
|
||||||
|
chain = "a",
|
||||||
|
verbose = TRUE
|
||||||
|
)
|
||||||
|
b_chain <- immuneSIM(
|
||||||
|
number_of_seqs = number_of_sequences,
|
||||||
species = "hs",
|
species = "hs",
|
||||||
receptor = "tr",
|
receptor = "tr",
|
||||||
chain = "b",
|
chain = "b",
|
||||||
verbose = TRUE
|
verbose = TRUE
|
||||||
)
|
)
|
||||||
|
return(list("a_chain" = a_chain, "b_chain" = b_chain))
|
||||||
|
}
|
||||||
|
|
||||||
save(sim_repertoire, file = "data/repertoire")
|
|
||||||
|
|
||||||
plot_report_repertoire(sim_repertoire, output_dir = "data/reports")
|
|
Loading…
Reference in New Issue