## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(collapse = TRUE, comment = "#>", eval = TRUE)

## -----------------------------------------------------------------------------
library(llmshieldr)

## -----------------------------------------------------------------------------
path <- system.file("extdata", "security_eval_cases.csv", package = "llmshieldr")
cases <- read.csv(path, stringsAsFactors = FALSE)
cases[, c("id", "stage", "category", "expected_action")]

## -----------------------------------------------------------------------------
results <- evaluate_security_cases(
  cases = cases,
  policy = "comprehensive",
  checks = "rules"
)

results

## -----------------------------------------------------------------------------
data.frame(
  cases = nrow(results),
  action_accuracy = mean(results$matched),
  median_latency_ms = median(results$latency_ms),
  p95_latency_ms = as.numeric(quantile(results$latency_ms, 0.95))
)