# New data set
def <- defData(varname = "x", dist = "categorical", formula = ".33;.33")
def <- defData(def, varname = "y", dist = "uniform", formula = "-5;5")
dt <- genData(1000, def)
# Define conditions
defC <- defCondition(
condition = "x == 1", formula = "5 + 2*y-.5*y^2",
variance = 1, dist = "normal"
)
defC <- defCondition(defC,
condition = "x == 2",
formula = "3 - 3*y + y^2", variance = 2, dist = "normal"
)
defC <- defCondition(defC,
condition = "x == 3",
formula = "abs(y)", dist = "poisson"
)
# Add column
dt <- addCondition(defC, dt, "NewVar")
# Plot data
library(ggplot2)
ggplot(data = dt, aes(x = y, y = NewVar, group = x)) +
geom_point(aes(color = factor(x)))
Run the code above in your browser using DataLab