# NOT RUN {
data(template)
ftrs = findabsorptionfeatures(template$Wavelength,
template$Flux,
pix_range = 8, gamma = 0.05,
alpha = 0.07, minlinedepth = 0.015)
plot(template$Wavelength, template$Flux,
type='l', xlab = "Wavelength", ylab = "Flux")
for(i in 1:length(ftrs$wvbounds)){
lines(ftrs$wvbounds[[i]],
c(1,1) - 0.01*rep(i%%2,2), col=3)
}
# }
Run the code above in your browser using DataLab