get_UMVUE_GMS {OneArmPhaseTwoStudy} | R Documentation |
Calculates the "uniformly minimal variance unbiased estimator" (UMVUE) for the true response rate based on the approach of Grishick, Mosteller and Savage.
get_UMVUE_GMS(k, r1, n1, n)
k |
overall observed responses. |
r1 |
critical value for the first stage. |
n1 |
sample size for the first stage. |
n |
overall sample size. |
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.
#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)