# Example FSA file provided
fsa <- read.fsa(system.file("extdata/fsa_GEP/A5918.fsa", package="FSAtools"))
# Plot subset of the profile (time index)
plot(fsa, units="index", xlim=c(4000,5000))
# Align using full ladder
fullLadder <- c(
50, 60, 90, 100, 120, 150, 160, 180, 190, 200, 220,
240, 260, 280, 290, 300, 320, 340, 360, 380, 400
)
fsa <- align.fsa(fsa, fullLadder=fullLadder)
# Plot subset of the profile (base pairs)
plot(fsa, units="bp", xlim=c(80,130))
Run the code above in your browser using DataLab