Build a graph using R

#1
I need to build this graph,

So i have this formula:

Code:
k <- 0
maxthreshold <- 100000

thresholds  <- c()
points <- c()

while (k < maxthreshold){

  inmb <- k*DELTA_QALY - DELTA_COST

  k <- k+100

}
So what i need is that in the x axes to put different values of k and in the y axes i need to put the values of the imb and just plot a chart...

Can you please help me with the plot() function? I just need to find different values for the inmb for different values of k Thanks