```
# NOT RUN {
### To be on the safe side: sample size required to
### obtain 95% likelihood of success when assuming
### 100 nuisance variables exist.
pwr.randomizationSuccess(dNonequivalence = 0.2,
pRandomizationSuccess = 0.95,
nNuisanceVars = 100);
### Living on the edge:
pwr.randomizationSuccess(dNonequivalence = 0.2,
pRandomizationSuccess = 0.60,
nNuisanceVars = 10);
### For those with quite liberal ideas of 'equivalence':
pwr.randomizationSuccess(dNonequivalence = 0.5,
pRandomizationSuccess = 0.95,
nNuisanceVars = 100);
### And these results can be checked with
### prob.randomizationSuccess:
prob.randomizationSuccess(1212, .2, 100);
prob.randomizationSuccess(386, .2, 10);
prob.randomizationSuccess(198, .5, 100);
### Or in one go:
prob.randomizationSuccess(n=c(198, 386, 1212), c(.2, .5), c(10, 100));
# }
```

Run the code above in your browser using DataLab