coh1 = list(center=c(C1=.4, C2=.2, C3=.1, C4=.3),
sex=c(Male=.5, Female=.5),
age = function(x) runif(x, min=50, max=70))
simDat = simPats(100, coh1)
simDat[1:5,]
table(simDat[,1])
Run the code above in your browser using DataLab