computeOverallImbalance: A function to compute overall imbalances for each treatment

In SRS: Subject Randomization System

Description

This function computes the overall treatement imbalances for each treatment

Usage

computeOverallImbalance(object, imbalances)

Arguments

object	An object of class PocockSimonRandomizer
imbalances	imbalances a matrix of imbalance measures, usually the result of the function call to computeImbalances

Value

A vector of imbalances resulting from assigning each of the treatments, in turn.

Author(s)

Balasubramanian Narasimhan

References

Sequential Treatment Assigment with Balancing for Prognostic Factors in the Controlled Clinical Trial, by S.~J.~Pocock and R.~Simon, Biometrics, 31, 103-115

Examples

expt <- ClinicalExperiment(number.of.factors = 3,
                           number.of.factor.levels = c(2, 2, 3),
                           number.of.treatments = 3)
r.obj <- new("PocockSimonRandomizer", expt, as.integer(12345))
computeOverallImbalance(r.obj, computeImbalances(r.obj, c("1","2","2")))
##
## Another example
##
ex.matrix <- matrix (c(9,8,8,9,8,4,5,
                       10,7,6,11,8,5,4,
                       9,7,7,9,8,3,5), nrow=3, byrow=TRUE)

rownames(ex.matrix) <- c("Tr1", "Tr2", "Tr3")
colnames(ex.matrix) <- c("F1:1", "F1:2", "F2:1", "F2:2", "F3:1", "F3:2", "F3:3")
stateTable(r.obj) <- ex.matrix
computeOverallImbalance(r.obj, computeImbalances(r.obj, c("1","2","2")))

SRS documentation built on May 2, 2019, 5:21 p.m.