Homework 7

Due Friday November 10th at 5:00pm

Exercise 1

7.3 from Hoff.

Run the code below to load the data.

library(readr)
bluecrab = read_csv("https://sta360-fa23.github.io/data/bluecrab.csv")
orangecrab = read_csv("https://sta360-fa23.github.io/data/orangecrab.csv")

Exercise 2

8.1 from Hoff. Note there is a typo in this exercise. Every \(\theta_i\) in the exercise prompt should be replaced by \(\theta_j\).

Exercise 3

8.3 from Hoff

Run the code below to load the data.

library(readr)
library(glue)

for(i in 1:8) {
assign(paste0("school", i), 
       read_csv(glue("https://sta360-fa23.github.io/data/school{i}.csv")))
}