data(cobradata_example)
cobraperf <- calculate_performance(cobradata_example,
binary_truth = "status", aspects = "fpr")
cobraplot <- prepare_data_for_plot(cobraperf, colorscheme = "Dark2",
incltruth = TRUE)
cobraplot <- reorder_levels(cobraplot, c("voom", "edgeR"))
plot_fpr(cobraplot, xaxisrange = c(0, 0.25))
Run the code above in your browser using DataLab