# Example FSA file provided
fsa <- read.fsa(system.file("extdata/fsa_GEP/A5918.fsa", package="FSAtools"))
fsa <- align.fsa(fsa)
# Profile before filtering
plot(fsa)
# Plot subset of the profile (base pairs)
fsa <- filter.fsa(fsa, channel="ROX", filter=20, from=40, to=140, units="bp")
# Profile after filtering
plot(fsa)
Run the code above in your browser using DataLab