test_data <- data.frame(
Variable = rep(paste0("V", 1:5), each = 20),
Value = rnorm(100),
Group = rep(c("A", "B"), 50)
)
filtered <- quality_filter(test_data, "Variable", "Value", "Group",
0.8, 5, FALSE)
Run the code above in your browser using DataLab