Analysis

  1. Open, save, and establish an R markdown document that includes a YAML header with your name, title, date and output as an html [1].

  2. Include an R chunk that loads tidyverse [1].

library(tidyverse)
## ── Attaching core tidyverse packages
## ✔ dplyr     1.1.4     ✔ readr     2.1.4
## ✔ forcats   1.0.0     ✔ stringr   1.5.1
## ✔ ggplot2   3.4.4     ✔ tibble    3.2.1
## ✔ lubridate 1.9.2     ✔ tidyr     1.3.0
## ✔ purrr     1.0.2     
## ── Conflicts ───────────────────────
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag()    masks stats::lag()
## ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errors
  1. Please download the data you see above by accessing this link. Read it in as CSV data and save it to an object named dat. [3]
dat <- read_csv("data/bite_force.csv")
## Rows: 20 Columns: 3
## ── Column specification ────────────
## Delimiter: ","
## chr (1): sex
## dbl (2): mass, Fmax
## 
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.
  1. Produce an illustrative visualization of the relationship between squirrel maximum bite force and mass and how this relationship may vary by sex. [3]
dat %>% 
  ggplot(aes(mass,Fmax,col=sex))+geom_point()

Interpretation

Overall, bite force increases with mass while males, on average have higher bite force than females. Perhaps the sexual differences arise due to sexual selection, i.e., males spar with one another in competition for females and over territory.