def <- defRepeat(
nVars = 4, prefix = "g", formula = "1/3;1/3;1/3",
variance = 0, dist = "categorical"
)
def <- defData(def, varname = "a", formula = "1;1", dist = "trtAssign")
def <- defRepeat(def, 8, "b", formula = "5 + a", variance = 3, dist = "normal")
def <- defData(def, "y", formula = "0.10", dist = "binary")
def
Run the code above in your browser using DataLab