extVar <- 2.3
def <- defData(varname = "xNr", dist = "nonrandom", formula = 7, id = "idnum")
def <- defData(def, varname = "xUni", dist = "uniform", formula = "10;20")
def <- defData(def,
varname = "xNorm", formula = "xNr + xUni * 2", dist = "normal",
variance = 8
)
def <- defData(def,
varname = "xPois", dist = "poisson", formula = "xNr - 0.2 * xUni",
link = "log"
)
def <- defData(def, varname = "xCat", formula = "0.3;0.2;0.5", dist = "categorical")
def <- defData(def,
varname = "xGamma", dist = "gamma", formula = "5+xCat",
variance = 1, link = "log"
)
def <- defData(def,
varname = "xBin", dist = "binary", formula = "-3 + xCat",
link = "logit"
)
def <- defData(def,
varname = "external", dist = "nonrandom",
formula = "xBin * log(..extVar)"
)
def
Run the code above in your browser using DataLab