adoptr (version 0.1.1)

score-arithmetic: Score arithmetic

Description

To facilitate working with simple weighted sums of scores, adoptr supports some basic arithmetic operations on score objects (both conditional and unconditional ones). Scores can be scalar-multiplied by a constant and added to produce new scores. Conditional and unconditional scores cannot be mixed.

Usage

# S4 method for ConditionalScore,numeric
+(e1, e2)
# S4 method for numeric,ConditionalScore
+(e1, e2)
# S4 method for ConditionalScore,ConditionalScore
+(e1, e2)
# S4 method for ConditionalScore,numeric
*(e1, e2)
# S4 method for numeric,ConditionalScore
*(e1, e2)
# S4 method for UnconditionalScore,numeric
+(e1, e2)
# S4 method for numeric,UnconditionalScore
+(e1, e2)
# S4 method for UnconditionalScore,UnconditionalScore
+(e1, e2)
# S4 method for UnconditionalScore,numeric
*(e1, e2)
# S4 method for numeric,UnconditionalScore
*(e1, e2)
# S4 method for AffineUnconditionalScore,UnconditionalScore
+(e1, e2)
# S4 method for UnconditionalScore,AffineUnconditionalScore
+(e1, e2)
# S4 method for AffineUnconditionalScore,numeric
+(e1, e2)
# S4 method for numeric,AffineUnconditionalScore
+(e1, e2)
# S4 method for AffineUnconditionalScore,AffineUnconditionalScore
+(e1, e2)
# S4 method for AffineUnconditionalScore,numeric
*(e1, e2)
# S4 method for numeric,AffineUnconditionalScore
*(e1, e2)
# S4 method for AffineConditionalScore,ConditionalScore
+(e1, e2)
# S4 method for ConditionalScore,AffineConditionalScore
+(e1, e2)
# S4 method for AffineConditionalScore,numeric
+(e1, e2)
# S4 method for numeric,AffineConditionalScore
+(e1, e2)
# S4 method for AffineConditionalScore,AffineConditionalScore
+(e1, e2)
# S4 method for AffineConditionalScore,numeric
*(e1, e2)
# S4 method for numeric,AffineConditionalScore
*(e1, e2)

Arguments

e1

first summand / factor

e2

second summand / factor

Examples

# NOT RUN {
design <- TwoStageDesign(
  n1    = 25,
  c1f   = 0,
  c1e   = 2.5,
  n2    = 50,
  c2    = 1.96,
  order = 7L
)
ess <- expected(ConditionalSampleSize(Normal(), PointMassPrior(.4, 1.0)))
power <- expected(ConditionalPower(Normal(), PointMassPrior(.4, 1.0)))
evaluate(ess + 50*power, design)


# }