exam

references:
- ISI, example 10.1, p.521

library(tidyverse)

data

df1 <- read.csv("ExamTimesScores.csv")
str(df1)
## 'data.frame':    30 obs. of  2 variables:
##  $ time : int  30 41 41 43 47 48 51 54 54 56 ...
##  $ score: int  100 84 94 90 88 99 85 84 94 100 ...

Scatterplot.

ggplot(df1, aes(time, score)) +
  geom_point(shape = 20, color = "darkred") +
  labs(title = "Exams")