# NOT RUN {
# Build model from design file
design <- designFile(system.file("extdata/design.conf", package="MLPA"))
design$model$disable <- NULL
model <- do.call("model", design$model)
# Plot model
plot(model)
# }
Run the code above in your browser using DataLab