data("cars")

cor(cars$speed, cars$dist)

cor(cars)

cor.test(cars$speed, cars$dist)