soundSpeed(medium="air")
soundSpeed(medium="sea water")
soundSpeed(method="cramer", temp=14, pressure=3, RH=10)
soundSpeed(method="cramer", temp=14, temp.unit="C", pressure=3, pressure.unit="kPa", RH=10)
t <- 1:30
s <- lapply(t, \(x){soundSpeed(method="cramer", temp=x)})
Run the code above in your browser using DataLab