酸素解離曲線

酸素解離曲線というものがある。
Hillの式でやってみる。
SpO2 90%のときPaO2 60Torrは暗記事項らしい。

library(drc)
SpO2 <- c(0, 50, 75, 85, 88, 90, 93, 95) #SpO2の値
PaO2 <- c(0, 27, 40, 50, 55, 60, 70, 80) #PaO2の値

sig <- drm(SpO2 ~ PaO2, fct=L.4())
plot(sig, xlim=c(0, 100), ylim=c(0, 100), log="")
sig

A 'drc' model.

Call:
drm(formula = SpO2 ~ PaO2, fct = L.4())

Coefficients:
b:(Intercept)  c:(Intercept)  d:(Intercept)  e:(Intercept)  
     -0.08333      -14.46851       95.24187       22.63819