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==