Sample-size score

this scores measures the expected sample size of a design under a specified Prior.

SampleSize(prior)

Arguments

prior	Prior object

See also

Prior, scores

Examples

# \donttest{
  load_julia_package()
  design <- Design(c(0, 25, 20, 11, 0, 0, 0), c(Inf, 10, 8, 6, -Inf, -Inf, -Inf))
  ess    <- SampleSize(Beta(5, 7))
  # unconditional expected sample size
  evaluate(ess, design)
#> [1] 18.36991
  # conditional sample size given X1 = 1 ( = 6 + 25 = 31)
  evaluate(ess, design, x1 = 1)
#> [1] 31
  # expected sample size given 2 responses out of 3 observations (in stage one)
  evaluate(ess, design, partial = c(2, 3))
#> [1] 12.85
# }