x = -50:50
y = 500 - (900*x)
plot(x,y, type="l", col="red", xlim=c(-100,100), ylim=c(-1000, 1000))
abline(h=0, v=0)
title(main="500 - (900*x)", col.main="blue", font.main=2)