This function trims a specified number of points from the beginning and end of the antenna pattern data.
Examples
# Trim loops for a test SeaSondeRAPM object
apm_file <- system.file("css_data/MeasPattern.txt", package = "SeaSondeR")
obj <- seasonder_readSeaSondeRAPMFile(apm_file)
#> seasonder_createSeaSondeRAPM: APM object created successfully.
trimmed_obj <- seasonder_trimAPM(obj, 3)