def1 <- defData(varname = "x", formula = 0, variance = 1)
def1 <- defData(varname = "xcat", formula = ".3;.2", dist = "categorical")
def2 <- defData(varname = "yBin", formula = 0.5, dist = "binary", id = "xcat")
def2 <- defData(def2, varname = "yNorm", formula = 5, variance = 2)
dt1 <- genData(20, def1)
dt2 <- genData(3, def2)
dtMerge <- mergeData(dt1, dt2, "xcat")
dtMerge
Run the code above in your browser using DataLab