calculate_bsa: Body Surface Area Calculation

In JMLuther/tabletools: Helpful Tools to Make html Tables

Body Surface Area Calculation

Description

Calculates Body Surface Area (m2) by several common methods. Converts weight to Kg and Height to cm if needed. Available methods for BSA calculations are described in Yu et al.:

• Mosteller: \frac{\sqrt{Ht(cm) \cdot Wt(kg)} }{3600}

• DuBois and DuBois: Wt(kg)^{0.425} \cdot Ht(cm)^{0.725} \cdot 0.007184

• Gehan and George: Wt(kg)^{0.51456} \cdot Ht(cm)^{0.42246} \cdot 0.0235

• Haycock: Wt(kg)^{0.5378} \cdot Ht(cm)^{0.3964} \cdot 0.024265

• Yu: \frac{71.3989 \cdot Ht(cm)^{0.7437} \cdot Wt(kg)^{0.4040}}{10000}

• Livingston: 0.1173 \cdot Wt(kg)^{0.6466}

• Tikuisis: 128.1 \cdot Ht(cm)^{0.60} \cdot Wt(kg)^{0.44}

Usage

calculate_bsa(
  weight,
  height,
  weight_units = "kg",
  height_units = "m",
  method = "Mosteller"
)

Arguments

weight	Body Weight (kg)
height	Body Height (m)
weight_units	If weight is in Units other than kg, specifiy here to properly convert for calucations ("kg", "g", or "lbs")
height_units	If height is in Units other than m, specifiy here to properly convert for calucations ("m", "cm", or "in")
method	string for BSA formula to use for calculation ()

Value

a numeric vector with Body Surface Area (BSA, m^2)

Examples

bsa_methods <- c("Mosteller", "DuBois", "Boyd", "Gehan-George", "Haycock", "Yu", "Livingston", "Tikuisis")
names(bsa_methods) <- bsa_methods
sapply(bsa_methods, \(x)calculate_bsa(weight = 70, height = 1.778, method = x))
calculate_bsa(weight = 70, height = 1.778)
calculate_bsa(weight = 70, height = 1.778, method = "Mosteller")
calculate_bsa(weight = 70, height = 1.778, method = "DuBois")
calculate_bsa(weight = 70, height = 1.778, method = "Boyd")
calculate_bsa(weight = 70, height = 1.778, method = "Gehan-George")
calculate_bsa(weight = 70, height = 1.778, method = "Haycock")
calculate_bsa(weight = 70, height = 1.778, method = "Yu")
calculate_bsa(weight = 70, height = 1.778, method = "Livingston")
calculate_bsa(weight = 70, height = 1.778, method = "Tikuisis")

# different units
calculate_bsa(weight = 154, weight_units = "lbs", 
    height = 70, height_units = "in", 
    method = "Mosteller")
calculate_bsa(weight = 70, height = 1.778)

JMLuther/tabletools documentation built on April 14, 2025, 3:09 a.m.