# Create fake pir_run output
pir_outs <- list()
pir_outs[[1]] <- create_test_pir_run_output(
add_twin = TRUE,
add_best = TRUE
)
pir_outs[[2]] <- pir_outs[[1]]
# Plot the (fake) output
pir_plots(pir_outs)
Run the code above in your browser using DataLab