This is my assignment.
This is my data set:
x <- c(1, 2, 4, 7, 8)
y <- c(9, 6, 5, 5, 2)
Here is the correlation
cor(x, y)
[1] -0.8753123
Here is my graph

LS0tCnRpdGxlOiAiUiBOb3RlYm9vayIKb3V0cHV0OiBodG1sX25vdGVib29rCi0tLQoKVGhpcyBpcyBteSBhc3NpZ25tZW50LgoKVGhpcyBpcyBteSBkYXRhIHNldDoKCmBgYHtyfQp4IDwtIGMoMSwgMiwgNCwgNywgOCkKeSA8LSBjKDksIDYsIDUsIDUsIDIpCgpgYGAKCgoKSGVyZSBpcyB0aGUgY29ycmVsYXRpb24KCmBgYHtyfQpjb3IoeCwgeSkKYGBgCgoKSGVyZSBpcyBteSBncmFwaAoKYGBge3J9CnBsb3QoeCwgeSkKYGBgCgo=