design <- TwoStageDesign(25, 0, 2, 25, 2, order = 5)
# default: all parameters are tunable (except integration pivots,
# weights and tunability status itself)
design@tunable
# make n1 and the pivots of n2 fixed (not changed during optimization)
design <- make_fixed(design, n1, n2_pivots)
design@tunable
# make them tunable again
design <- make_tunable(design, n1, n2_pivots)
design@tunable
Run the code above in your browser using DataLab