# NOT RUN {
# Optimal wavelength for iron
lFe <- fluorescent_scan("Fe")
print(lFe$lambda)
idx <- lFe$idx
# Load anomalous dataframe for Fe
adFe <- load_anomalous_data("Fe")
print(adFe[idx,]) # Same wavelength as before!
# Optimal wavelength with window restriction
lFe <- fluorescent_scan("Fe",lambda_range=c(6,8))
print(lFe$lambda)
# }
Run the code above in your browser using DataLab