2.7 Reading and Writing Data

# Read data
getwd()

spahn <- readr::read_csv(here::here("data/spahn.csv"))

# Write data
mantle_hr_rates <- hr_rates(Age, HR, AB)
Mantle <- tibble::tibble(
  Age, HR, AB, Rates = mantle_hr_rates$y
)

readr::write_csv(Mantle, here::here("data/mantle.csv"))