OneArmPhaseTwoStudy (version 1.0.3)

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

Description

Calculates the "uniformly minimal variance unbiased estimator" (UMVUE) for the true response rate for the superset endpoint.

Usage

get_UMVUE_GMS_subset_second_total(t, u, r1, n1, n)

Arguments

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.

Examples

# NOT RUN {
#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)
# }