get_UMVUE_GMS_subset_second_total {OneArmPhaseTwoStudy} | R Documentation |
Calculates the "uniformly minimal variance unbiased estimator" (UMVUE) for the true response rate for the superset endpoint.
get_UMVUE_GMS_subset_second_total(t, u, r1, n1, n)
t |
observed responses in the subset endpoint. |
u |
observed responses in the superset endpoint. |
r1 |
critical value for the first stage. |
n1 |
sample size for the first stage. |
n |
overall sample size. |
#Setup "sub1"-object sub1 <- setupSub1Design(pc0 = 0.5, pt0 = 0.6) #Calculate a subset design design <- getSolutionsSub1(sub1, skipN1 = FALSE)$Solutions[4,] #Assume 9 responses in the subset endpoint and 13 responses in the superset endpoint were observed. t = 9 u = 13 umvue_second <- get_UMVUE_GMS_subset_second_total(t, u, design$r1, design$n1, design$n)