Summarize sampling compliance
Examples
fixture <- system.file("extdata", "parity", "v1.0.0", package = "carwatch")
results <- read_study_results(file.path(fixture, "results.csv"))
summarize_compliance(results)
#> # A tibble: 2 × 8
#> sample_position total_samples assessed_samples compliant_samples
#> <int> <int> <int> <int>
#> 1 1 1 1 1
#> 2 2 1 1 1
#> # ℹ 4 more variables: non_compliant_samples <int>, unassessed_samples <int>,
#> # missing_sampling_time <int>, compliance_rate <dbl>