Update buoyancy.freq.R