this is my assignment.

this is my data set:

x <- c(1, 2, 4, 7, 8)
y <- c(9, 6, 5, 5, 2)
cor(x,y)
[1] -0.8753123

here is my plot

plot(x,y)

LS0tCnRpdGxlOiAiUiBOb3RlYm9vayIKb3V0cHV0OiBodG1sX25vdGVib29rCi0tLQoKdGhpcyBpcyBteSBhc3NpZ25tZW50LgoKdGhpcyBpcyBteSBkYXRhIHNldDoKYGBge3J9CnggPC0gYygxLCAyLCA0LCA3LCA4KQp5IDwtIGMoOSwgNiwgNSwgNSwgMikKCmBgYAoKCmBgYHtyfQpjb3IoeCx5KQoKYGBgCmhlcmUgaXMgbXkgcGxvdCAKYGBge3J9CnBsb3QoeCx5KQpgYGAKCg==