# \donttest{
data(matrix_object)
data(lr_db)
# Analyzing ligand-receptor interactions between all cell types
result01a <- filter_lr_all(
rna = matrix_object,
lr_database = lr_db,
sample_col = 2,
cell_type_col = 1,
id_sep = "--",
min_samples = 10,
min_sample_ratio = 0.1,
min_adjust_p = 0.05,
num_cores = 1,
verbose = TRUE
)
# Analyzing ligand-receptor projection scores between all cell types
result02a <- score_lr_all(
rna = matrix_object,
filtered_lr = result01a,
sample_col = 2,
cell_type_col = 1,
id_sep = "--",
num_cores = 1,
verbose = TRUE
)
if (!is.null(result02a)) {
print(head(result02a))
}
# }
Run the code above in your browser using DataLab