Dear all, 
I am using randomization. 
it's small sample i have 80 patients in two arms (40 in each arm).
and stratified by 3 variable age(yes/No), surgery(Yes/No), kps(Yes No)
with 8 block of 10 

 I am not sure , what i did it correct. 
please advice me. 

thanks very much 
Sug

##------------------------------------#
##  Randomization Stratified by       #
##  Age 18: Yes/No                    #
##  Surgery: Yes/No                   #
##  KPS>70: Yes/No                    #
##------------------------------------# 
## N=80                               #
## Block size= 10                     #          
## Equal treatment group within block #
##------------------------------------#

library(blockrand)
Age_y <- blockrand(n=80, id.prefix="Yes", block.prefix="Yes",stratum="Age>18",block.sizes=c(10,10),uneq.beg=FALSE, uneq.mid=FALSE)
Age_N <- blockrand(n=80, id.prefix="No", block.prefix="No",stratum="Age<=18",block.sizes = c(10,10),uneq.beg=FALSE, uneq.mid=FALSE)
Age     <- rbind(Age_y,Age_N)

Sur_Y   <- blockrand(n=80, id.prefix="Yes", block.prefix="Yes",stratum="Sur_Yes",block.sizes = c(10,10),uneq.beg=FALSE, uneq.mid=FALSE)
Sur_N   <- blockrand(n=80, id.prefix="No", block.prefix="No",stratum="Sur_No",block.sizes = c(10,10),uneq.beg=FALSE, uneq.mid=FALSE)
Surgery <- rbind(Sur_Y,Sur_N)
 
KPS_y <- blockrand(n=80, id.prefix="Yes", block.prefix="Yes",stratum="KPS>70",block.sizes =c(10,10),uneq.beg=FALSE, uneq.mid=FALSE)
KPS_n <- blockrand(n=80, id.prefix="No", block.prefix="No",stratum="KPS<=70",block.sizes = c(10,10),uneq.beg=FALSE, uneq.mid=FALSE)
KPS<- rbind(KPS_y,KPS_n)
 
my.study <- cbind (Age,Surgery,KPS)
	[[alternative HTML version deleted]]

