perceptions

references:
- ISI, exploration 10.4, p.550

library(tidyverse)

data

df <- read.delim("Handwidth.txt", header = TRUE)
str(df)
## 'data.frame':    46 obs. of  2 variables:
##  $ hand_width      : num  7.4 7.4 7.4 7.4 7.4 7.4 7.4 7 7.7 7.7 ...
##  $ perceived_weight: num  75.2 83.6 86.2 92.6 98.1 ...

Scatterplot.

ggplot(df, aes(hand_width, perceived_weight)) +
  geom_point(shape = 20, color = "darkred") +
  labs(title = "Perceptions of Heaviness")