Correlation Coefficient

Data:

pizza <- read.csv("F:/Statistics/6. Regression/pizza.csv")

Scatter Plot:

plot(pizza$Promote,pizza$Sales)

Correlation Coefficient:

cor(pizza$Promote,pizza$Sales)

[1] 0.9943917