set.seed(1965)
def <- defData(varname="x", formula = 10, variance = 2, dist = "normal")
def <- defData(def, varname="y", formula = "3 + 0.5 * x", variance = 1, dist = "normal")
dd <- genData(250, def)
dd <- trtAssign(dd, nTrt = 4, grpName = "grp", balanced = TRUE)
dd
Key: <id>
id x y grp
<int> <num> <num> <int>
1: 1 11.191960 8.949389 4
2: 2 10.418375 7.372060 4
3: 3 8.512109 6.925844 3
4: 4 11.361632 9.850340 4
5: 5 9.928811 6.515463 4
---
246: 246 8.220609 7.898416 2
247: 247 8.531483 8.681783 2
248: 248 10.507370 8.552350 3
249: 249 8.621339 6.652300 1
250: 250 9.508164 7.083845 3