# 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

 `1` ```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

 ``` 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16``` ```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 31, 2017, 3:18 a.m.