# \dontshow{
WGCNA::disableWGCNAThreads()
# }
data(drug_gene_interactions)
data(metabolite_protein_interactions)
data(layers_example)
example_inter_layer_connections = list(make_connection(from='mrna', to='protein',
connect_on='gene_name', weight=1),
make_connection(from='protein', to='phosphosite',
connect_on='gene_name', weight=1),
make_connection(from='protein', to='metabolite',
connect_on=metabolite_protein_interactions,
weight='combined_score'))
example_drug_target_interactions <- make_drug_target(target_molecules='protein',
interaction_table=drug_gene_interactions,
match_on='gene_name')
example_settings <- drdimont_settings(
handling_missing_data=list(
default="pairwise.complete.obs",
mrna="all.obs"),
reduction_method="pickHardThreshold",
r_squared=list(default=0.65, metabolite=0.1),
cut_vector=list(default=seq(0.2, 0.65, 0.01)))
# \donttest{
run_pipeline(
layers=layers_example,
inter_layer_connections=example_inter_layer_connections,
drug_target_interactions=example_drug_target_interactions,
settings=example_settings)
# }
Run the code above in your browser using DataLab