# Example TTE endpoint with formatting:
endpoints_input <- list(
list(type = "TTE",
hr = 0.8,
er.b = 0.25,
s = 12,
tte.winning.direction = "GT")
)
results <- powerHE(endpoints_input,
sample.size = 100,
alpha = 0.05,
rratio = 0.5,
output = "ALL")
formatHE(results)
Run the code above in your browser using DataLab