bcost_WS {BRDT} | R Documentation |

## Warranty Services Cost

### Description

Define the cost function of warranty services (WS) after the decision of the test (for binomial RDT)

### Usage

```
bcost_WS(Cw, N, n, c, pi)
```

### Arguments

`Cw` |
Average cost per warranty claim |

`N` |
Sales volume |

`n` |
RDT sample size |

`c` |
Maximum allowable failures |

`pi` |
Failure probability |

### Value

The result is a vector with two values. The first value is the expected failure probability in warranty period. The second value is the expected warranty services cost.

### See Also

`bcost_RDT`

, `bcost_RG`

, `bcost_expected`

### Examples

```
#the n value can be the minimum test sample size obtained from \code{\link{boptimal_n}}.
n_optimal <- 20
pi <- pi_MCSim_beta(M = 1000, seed = 10, a = 1, b = 1)
WScost <- bcost_WS(Cw = 10, N = 1, n = n_optimal, c = 1, pi = pi);
print(WScost[1]) #expected failure probability
print(WScost[2]) #expected warranty services cost
```

[Package

*BRDT*version 0.1.0 Index]