# Evaluates a cutpoint by returning the mean treatment cost per sample.

Source:`R/evaluate_cutpoint.R`

`evaluate_cutpoint_cost.Rd`

Evaluates a cutpoint by returning the mean treatment cost per sample.

## Examples

```
evaluate_cutpoint_cost(
predicted = runif(1000),
actual = sample(c(0, 1), size = 1000, replace = TRUE),
pt = 0.1,
nmb = c(
"qalys_lost" = 5,
"low_risk_group_treatment_cost" = 0,
"high_risk_group_treatment_cost" = 1,
"low_risk_group_treatment_effect" = 0,
"high_risk_group_treatment_effect" = 0.3,
"outcome_cost" = 10
)
)
#> [1] 4.365
```