I made a calibration (check agreement between predictions and outcome: discrepancy yes or no) plot with ggplot. Perfect calibration would give a slope of 1 and intercept of 0, so now I was wonderding how to determine the slope and intercept.
This is my commando:
plot1 <-ggplot(dataset_validatie, aes(x=clinically_relevant_discrepancy, y=predictions, group = 1)) + geom_line()+geom_point() print(plot1)
Here is my calibration plot: plot