Find the lowest population probability whose median is consistently one This is the lowest estimate for Sens that is consistently (over 5 runs) most likely to yield a sample estimate that is all 1's (e.g. 100/100, etc.).

1 2 | ```
medianConsistentlyOne(pr, size, R, nConsistentRuns = 5, warn = TRUE,
consistentQuantile = 0.5)
``` |

`pr` |
Probability input. |

`size` |
Number of trials. |

`R` |
number of bootstrap replications. |

`nConsistentRuns` |
Number of runs that all have to be identical to return TRUE. |

`warn` |
Warn if searching outside of the range c(0,1). |

`consistentQuantile` |
Defaults to 0.5 (the median). Change if we want to use a different criterion for consistency than the median |

Boolean of length one (TRUE or FALSE).

1 2 3 4 5 6 | ```
## Not run:
prs <- seq(.990,.995,.0001)
bools <- sapply( prs, medianConsistentlyOne, size=truePos, R=R )
data.frame( prs, bools )
## End(Not run)
``` |

Questions? Problems? Suggestions? Tweet to @rdrrHQ or email at ian@mutexlabs.com.

All documentation is copyright its authors; we didn't write any of that.