###################################################
### chunk number 1: R.hide
###################################################
library(sizepower)


###################################################
### chunk number 2: 
###################################################
sampleSize.randomized(ER0=1, G0=2000, power=0.9, absMu1=1, sigmad=0.566)


###################################################
### chunk number 3: 
###################################################
power.randomized(ER0=1, G0=2000, absMu1=1, sigmad=0.566, n=8)


###################################################
### chunk number 4: 
###################################################
sampleSize.matched(ER0=1, G0=2000, power=0.9, absMu1=1, sigmad=0.495)


###################################################
### chunk number 5: 
###################################################
power.matched(ER0=1, G0=2000, absMu1=1, sigmad=0.495, n=6)


###################################################
### chunk number 6: 
###################################################
power.multi(ER0=1, G0=2000, numTrt=5, absMu1=1, sigma=0.4, n=6)


###################################################
### chunk number 7: 
###################################################
power.multi(ER0=1, G0=5000, numTrt=6, absMu1=0.9, sigma=0.5, n=9)