This is my assignment.

Enter data here:

x <- c(2, 3, 5, 5, 7)
y <- c(9, 8, 3, 1, 2)

Get correlation:

cor(x, y)
[1] -0.886182

Hereโ€™s the graph:

plot(x, y)

LS0tCnRpdGxlOiAiUiBOb3RlYm9vayIKb3V0cHV0OiBodG1sX25vdGVib29rCi0tLQoKVGhpcyBpcyBteSBhc3NpZ25tZW50LgoKRW50ZXIgZGF0YSBoZXJlOgpgYGB7cn0KeCA8LSBjKDIsIDMsIDUsIDUsIDcpCnkgPC0gYyg5LCA4LCAzLCAxLCAyKQoKYGBgCgoKR2V0IGNvcnJlbGF0aW9uOgoKYGBge3J9CmNvcih4LCB5KQpgYGAKCgoKSGVyZSdzIHRoZSBncmFwaDoKCmBgYHtyfQpwbG90KHgsIHkpCmBgYAoK