# From the workflow:
## Not run:
# # Filter out satellite peaks:
# shot <- filterPeakSatellites(shot)
# shot_satellite_n <- setdiff(row.names(shot_full), row.names(shot))
# shot_satellite <- shot_full[shot_satellite_n,]
# # shot_satellite contains the peaks which were eliminated as satellites.
# ## End(Not run)
Run the code above in your browser using DataLab