data(cobradata_example)
cobraperf <- calculate_performance(cobradata_example,
binary_truth = "status",
aspects = "fdrtpr")
cobraplot <- prepare_data_for_plot(cobraperf)
## Coerce COBRAPerformance object into COBRAPlot object
as(cobraperf, "COBRAPlot")
## Coerce COBRAPlot object into COBRAPerformance object
as(cobraplot, "COBRAPerformance")
Run the code above in your browser using DataLab