Loading...
Loading...
Compare original and translation side by side
cdr3_aa + v_callcdr3_aa + v_calllibrary(immunarch)library(immunarch)undefinedundefinedidata <- annotate_clonality_prop(idata)
sdata <- annotate_seurat(idata, sdata, cols = "clonal_prop_bin")
Seurat::DimPlot(sdata, reduction = "umap", group.by = "clonal_prop_bin", shuffle = TRUE)idata <- annotate_clonality_prop(idata)
sdata <- annotate_seurat(idata, sdata, cols = "clonal_prop_bin")
Seurat::DimPlot(sdata, reduction = "umap", group.by = "clonal_prop_bin", shuffle = TRUE)library(immundata)
md_path <- system.file("extdata/tsv", "metadata.tsv", package = "immundata")
files <- c(
system.file("extdata/tsv", "sample_0_1k.tsv", package = "immundata"),
system.file("extdata/tsv", "sample_1k_2k.tsv", package = "immundata")
)
md <- read_metadata(md_path)
idata <- read_repertoires(
path = files,
schema = c("cdr3_aa", "v_call"),
metadata = md
)library(immundata)
md_path <- system.file("extdata/tsv", "metadata.tsv", package = "immundata")
files <- c(
system.file("extdata/tsv", "sample_0_1k.tsv", package = "immundata"),
system.file("extdata/tsv", "sample_1k_2k.tsv", package = "immundata")
)
md <- read_metadata(md_path)
idata <- read_repertoires(
path = files,
schema = c("cdr3_aa", "v_call"),
metadata = md
)read_metadata()read_repertoires()library(immundata)
inp_files <- "path/to/airr/*.tsv.gz"
md_table <- read_metadata("path/to/metadata.tsv")
idata <- read_repertoires(
path = inp_files,
schema = c("cdr3_aa", "v_call"),
metadata = md_table,
repertoire_schema = "Sample"
)read_metadata()read_repertoires()library(immundata)
inp_files <- "path/to/airr/*.tsv.gz"
md_table <- read_metadata("path/to/metadata.tsv")
idata <- read_repertoires(
path = inp_files,
schema = c("cdr3_aa", "v_call"),
metadata = md_table,
repertoire_schema = "Sample"
)idata <- read_repertoires(
path = inp_files,
schema = c("cdr3_aa", "v_call")
)idata <- read_repertoires(
path = inp_files,
schema = c("cdr3_aa", "v_call")
)schema <- make_receptor_schema(
features = c("cdr3", "v_call"),
chains = "TRA"
)
idata <- read_repertoires(
path = "path/to/single_cell.csv.gz",
schema = schema,
barcode_col = "barcode",
locus_col = "locus"
)schema <- make_receptor_schema(
features = c("cdr3", "v_call"),
chains = "TRA"
)
idata <- read_repertoires(
path = "path/to/single_cell.csv.gz",
schema = schema,
barcode_col = "barcode",
locus_col = "locus"
)schema <- make_receptor_schema(
features = c("cdr3", "v_call"),
chains = c("TRA", "TRB")
)
idata <- read_repertoires(
path = "path/to/single_cell.csv.gz",
schema = schema,
barcode_col = "barcode",
locus_col = "locus",
umi_col = "umis"
)schema <- make_receptor_schema(
features = c("cdr3", "v_call"),
chains = c("TRA", "TRB")
)
idata <- read_repertoires(
path = "path/to/single_cell.csv.gz",
schema = schema,
barcode_col = "barcode",
locus_col = "locus",
umi_col = "umis"
)schema <- make_receptor_schema(
features = c("cdr3", "v_call"),
chains = c("IGH", "IGK|IGL")
)schema <- make_receptor_schema(
features = c("cdr3", "v_call"),
chains = c("IGH", "IGK|IGL")
)undefinedundefinedundefinedundefinedidata_grp <- idata |>
agg_repertoires("Tissue")idata_grp <- idata |>
agg_repertoires("Tissue")undefinedundefinedundefinedundefinedcl_line <- airr_clonality_line(idata_grp)
cl_prop <- airr_clonality_prop(idata_grp)
cl_rank <- airr_clonality_rank(idata_grp, bins = c(10, 100, 1000))
cl_prop |> vis()
cl_rank |> vis()cl_line <- airr_clonality_line(idata_grp)
cl_prop <- airr_clonality_prop(idata_grp)
cl_rank <- airr_clonality_rank(idata_grp, bins = c(10, 100, 1000))
cl_prop |> vis()
cl_rank |> vis()d50 <- airr_diversity_dxx(idata_grp, perc = 50)
chao1 <- airr_diversity_chao1(idata_grp)
shannon <- airr_diversity_shannon(idata_grp)
pielou <- airr_diversity_pielou(idata_grp)
hill1 <- airr_diversity_index(idata_grp)
hillprof <- airr_diversity_hill(idata_grp, q = c(0, 1, 2))
pielou |> vis()d50 <- airr_diversity_dxx(idata_grp, perc = 50)
chao1 <- airr_diversity_chao1(idata_grp)
shannon <- airr_diversity_shannon(idata_grp)
pielou <- airr_diversity_pielou(idata_grp)
hill1 <- airr_diversity_index(idata_grp)
hillprof <- airr_diversity_hill(idata_grp, q = c(0, 1, 2))
pielou |> vis()m_pub <- airr_public_intersection(idata_grp)
m_jac <- airr_public_jaccard(idata_grp)
m_pub |> vis()
m_jac |> vis()m_pub <- airr_public_intersection(idata_grp)
m_jac <- airr_public_jaccard(idata_grp)
m_pub |> vis()
m_jac |> vis()undefinedundefined
---
---ImmunDatabarcode_collocus_columi_colpath = "<metadata>"filterannotatemutateagg_repertoiresimd_*imd_schema()ImmunDatabarcode_collocus_columi_colpath = "<metadata>"filterannotatemutateagg_repertoiresimd_*imd_schema()idata_rawidata_qcidata_annidata_statsvis()idata_rawidata_qcidata_annidata_statsvis()