# NOT RUN {
innerpars <- letters[1:3]
constraints <- c(a = "b + c")
mycondition <- "cond1"
trafo <- repar("x ~ x", x = innerpars)
trafo <- repar("x ~ y", trafo, x = names(constraints), y = constraints)
trafo <- repar("x ~ exp(x)", trafo, x = innerpars)
trafo <- repar("x ~ x + Delta_x_condition", trafo, x = innerpars, condition = mycondition)
# }
Run the code above in your browser using DataLab