Extract and Paste Formula From Standard Curve

std_paste_formula(std_curve, digits = 3)

Arguments

std_curve: object of class std_curve, the output of std_curve_fit()
digits: Number of decimal places to round numbers in the formula to.

Value

a string of the extracted formula from the standard curve

Examples

library(standard)

# Protein concentrations of the standards used in the assay
prot <- c(
  0.000, 0.016, 0.031, 0.063, 0.125, 0.250, 0.500, 1.000,
  0.000, 0.016, 0.031, 0.063, 0.125, 0.250, 0.500, 1.000
)

# absorbance readins from the standards used in the assay
abs <- c(
  0.329, 0.352, 0.349, 0.379, 0.417, 0.491, 0.668, 0.956,
  0.327, 0.341, 0.355, 0.383, 0.417, 0.446, 0.655, 0.905
)
assay_data <- data.frame(
  Protein = prot,
  Absorbance = abs
)

# unknown concentrations
unk <- c(0.554, 0.568, 0.705)


assay_data |>
  std_curve_fit(Protein, Absorbance) |>
  std_paste_formula()
#> [1] "Protein = 1.646 * Absorbance - 0.551"