library(ggplot2)

dat <- read.csv("Islander_Data_HW9.csv")

dat[which(dat$Intelligence == NA), "Intelligence"] <- 0

head(cbind(dat$ModeratePhysicalActivity, dat$Intelligence))

cor.test(dat$ModeratePhysicalActivity, dat$Intelligence)

ggplot(dat) + geom_point(aes(x = dat$ModeratePhysicalActivity, y = dat$Intelligence)) + geom_smooth(aes(x = dat$ModeratePhysicalActivity, y = dat$Intelligence))