data("synthetic_metadata")
data("synthetic_rnaseqData")
data("synthetic_proteomicData")
data("synthetic_OlinkData")
assayData_list <- list("RNAseq" = synthetic_rnaseqData,
"Proteomics" = synthetic_proteomicData,
"Olink" = synthetic_OlinkData)
deggs_object <- get_diffNetworks(assayData = assayData_list,
metadata = synthetic_metadata,
category_variable = "response",
regression_method = "lm",
verbose = FALSE,
show_progressBar = FALSE,
cores = 1)
# the below function runs a shiny app, so can't be run during R CMD check
if(interactive()){
View_diffNetworks(deggs_object)
}
Run the code above in your browser using DataLab