# Create example data
set.seed(42)
data <- data.frame(
day = rep(1:5, each = 4),
value = rnorm(20, mean = 100, sd = 5)
)
data$value <- data$value + rep(rnorm(5, 0, 3), each = 4)
prec <- precision_study(data, value = "value", day = "day")
print(prec)
Run the code above in your browser using DataLab