coffee-cooling-homework.R

# my 15yo's homework today during lockdown
# find an equation for the cooling of a cup of coffee
# with the following temperature measurements

library(tidyverse)

decay_tbl <- tribble(
  ~time, ~temperature,
      0,        179.5,
      5,        168.7,
      8,        158.1,
     11,        149.2,
     15,        141.7,
     18,        134.6,
     22,        125.4,
     25,        123.5,
     30,        116.3,
     34,        113.2,
     38,        109.1,
     42,        105.7,
     45,        102.2,
     50,        100.5
)

decay_tbl %>% 
  ggplot() +
  aes(time, temperature) +
  geom_line() +
  geom_point()