OneArmPhaseTwoStudy (version 1.0.3)

get_UMVUE_GMS: Calculates the "uniformly minimal variance unbiased estimator".

Description

Calculates the "uniformly minimal variance unbiased estimator" (UMVUE) for the true response rate based on the approach of Grishick, Mosteller and Savage.

Usage

get_UMVUE_GMS(k, r1, n1, n)

Arguments

k

overall observed responses.

r1

critical value for the first stage.

n1

sample size for the first stage.

n

overall sample size.

References

Girshick MA, Mosteller F, and Savage LJ (1946): Unbiased estimates for certain binomial sampling problems with applications. Annals of Mathematical Statistics, 17(1):13-23.

Examples

# NOT RUN {
#Calculate a Simon's two-stage design
design <- getSolutions()$Solutions[3,] #minimax-design for the default values.

#Assume 9 responses were observed in the whole trial.
k = 9

umvue <- get_UMVUE_GMS(k, design$r1, design$n1, design$n)
# }