# Example 1: Verify precision from raw measurements
set.seed(42)
measurements <- rnorm(25, mean = 100, sd = 3.5)
# Manufacturer claims CV = 4%
result <- verify_precision(measurements, claimed_cv = 4, mean_value = 100)
print(result)
# Example 2: Verify precision from a precision_study object
prec_data <- data.frame(
day = rep(1:5, each = 5),
value = rnorm(25, mean = 100, sd = 3)
)
prec_data$value <- prec_data$value + rep(rnorm(5, 0, 1.5), each = 5)
prec <- precision_study(prec_data, value = "value", day = "day")
result <- verify_precision(prec, claimed_cv = 5)
print(result)
# Example 3: Verify precision directly from data frame
result <- verify_precision(
prec_data,
claimed_cv = 5,
value = "value",
day = "day"
)
print(result)
Run the code above in your browser using DataLab