# Example FSA file provided
fsa <- read.fsa(system.file("extdata/fsa_GEP/A5918.fsa", package="FSAtools"))
fsa <- align.fsa(fsa)
# Add model from design file
design <- designFile(system.file("extdata/design_GEP.conf", package="FSAtools"))
fsa <- add.model(fsa, model=design$GLOBALS$MODEL)
# Add peak heights
fsa <- peaks.fsa(fsa, peaks=design$GLOBALS$PEAKS)
# Classify sample
fsa <- classify(fsa, plot=TRUE)
print(attr(fsa, "classification"))
Run the code above in your browser using DataLab