# \donttest{
# Mock data for PipelineResults
pipeline_results <- new("PipelineResults",
inbuilt_feature_importance = list(
Method1 = data.frame(feature = c("gene1", "gene2", "gene3")),
Method2 = data.frame(feature = c("gene2", "gene4"))),
permutation_importance = list(
Method1 = data.frame(feature = c("gene1", "gene5")),
Method2 = data.frame(feature = c("gene3", "gene6"))))
# Mock custom lists
custom_lists <- list("custom1" = c("gene1", "gene2"), "custom2" = c("gene3", "gene4"))
# Generate UpSet plots
result <- plot_upset(pipeline_results, custom_lists)
print(result$inbuilt_importance)
print(result$permutation_importance)
# }
Run the code above in your browser using DataLab