# Example FSA file provided
fsa <- read.fsa(system.file("extdata/fsa_GEP/A5918.fsa", package="FSAtools"))
# Add model from design file
design <- designFile(system.file("extdata/design_GEP.conf", package="FSAtools"))
fsa <- add.model(fsa, model=design$GLOBALS$MODEL)
# Plot model
plot(attr(fsa, "model"))
Run the code above in your browser using DataLab