底辺私立医大を卒業した医者って頭悪いよね？ Part22

理論補正値を表示させるように仕様変更

cat(status,primary,'\n')
cat(additional,'\n')

if(!is.null(expected_CO2)|!is.null(expected_HCO3)){
return(c(expected_CO2=expected_CO2,expected_HCO3=expected_HCO3))
}
}

動作確認

> Astrap(pH=7.27, pCO2=98.2, HCO3=44.9)
chronic primary respiratory aciosis
secondary metabolic acidosis
expected_HCO3
47.28
>