OneArmPhaseTwoStudy (version 1.0.3)

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

Description

Calculates the "uniformly minimal variance unbiased estimator" (UMVUE) for the true response rate only for the superset endpoint (response rate superset endpoint minus response rate subset endpoint) in a subset design.

Usage

get_UMVUE_GMS_subset_second_only(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_only(t, u, design$r1, design$n1, design$n)
# }