# \donttest{
# Assuming `pipelineresults` is a PipelineResults object
pipelineresults <- new("PipelineResults",
inbuilt_feature_importance = list("Method1" = data.frame(
feature = LETTERS[1:10],
mean_importance = runif(10)),
"Method2" = data.frame(
feature = LETTERS[1:10],
mean_importance = runif(10))),
permutation_importance = list("Method1" = data.frame(
feature = LETTERS[1:10],
mean_importance = runif(10))))
# Plot the feature importance
importance_plots <- plot_feature_importance(pipelineresults, top_n_features = 5)
print(importance_plots)
# }
Run the code above in your browser using DataLab