Validate Curve Table

Usage

validate_curve_table(
  curve_table,
  needed_column = c("Curve_Name", "Curve_Batch_Name", "Concentration", "Signal")
)

Arguments

curve_table: A curve table containing data of curve points, variables to group the curve points together and some additional annotations about the curve points
needed_column: A vector consisting of needed column names that must be found in curve_table, Default: c("Curve_Name", "Curve_Batch_Name", "Concentration", "Area")

Value

An error if the things in needed_column

is not found in curve_table

Examples

concentration <- c(
  10, 20, 40, 60, 80, 100,
  10, 20, 40, 60, 80, 100
)

curve_batch_name <- c(
  "B1", "B1", "B1", "B1", "B1", "B1",
  "B2", "B2", "B2", "B2", "B2", "B2"
)

curve_1_good_linearity <- c(
  22561, 31178, 39981, 48390, 52171, 53410,
  32561, 41178, 49981, 58390, 62171, 63410
)

curve_name <- c(
  "Curve_1", "Curve_1", "Curve_1",
  "Curve_1", "Curve_1", "Curve_1",
  "Curve_1", "Curve_1", "Curve_1",
  "Curve_1", "Curve_1", "Curve_1"
)

curve_table <- tibble::tibble(
  Curve_Name = curve_name,
  Curve_Batch_Name = curve_batch_name,
  Concentration = concentration,
  Signal = curve_1_good_linearity
)

validate_curve_table(
  curve_table = curve_table,
  needed_column = c(
    "Curve_Name",
    "Curve_Batch_Name",
    "Concentration",
    "Signal"
  )
)