"pressure" <-
data.frame(temperature = c(0, 20, 40, 60, 80, 100, 120, 140, 160, 180,
200, 220, 240, 260, 280, 300, 320, 340, 360), pressure = c(0.0002, 0.0012,
0.006, 0.03, 0.09, 0.27, 0.75, 1.85, 4.2, 8.8, 17.3, 32.1, 57, 96, 157,
247, 376, 558, 806))