# Define original data
defs <- defData(varname = "w", formula = 0, variance = 3, dist = "normal")
defs <- defData(defs, varname = "x", formula = "1 + w", variance = 1, dist = "normal")
defs <- defData(defs, varname = "z", formula = 4, variance = 1, dist = "normal")
# Define additional columns
defsA <- defDataAdd(varname = "a", formula = "w + x + z", variance = 2, dist = "normal")
set.seed(2001)
dt <- genData(10, defs)
dt <- addColumns(defsA, dt)
dt
# Modify definition of additional column
defsA <- updateDefAdd(dtDefs = defsA, changevar = "a", newformula = "w+z", newvariance = 1)
set.seed(2001)
dt <- genData(10, defs)
dt <- addColumns(defsA, dt)
dt
Run the code above in your browser using DataLab