adding HS_AQ pressures soft bottom R script