InputData <- realTimeloads::ExampleData
Sonde<- InputData$Sonde
freq <- InputData$ADCP$Accoustic_Frequency_kHz[1]*1000
S <- ctd2sal(Sonde$Conductivity_uS_per_cm,Sonde$Water_Temperature_degC,Sonde$Pressure_dbar)
c <- speed_of_sound(S,Sonde$Water_Temperature_degC,Sonde$Pressure_dbar)
at <- InputData$ADCP$Transducer_radius_m
r <- seq(0.1,10,0.1)
psi <- near_field_correction(freq,c[1],r,at[1])
Run the code above in your browser using DataLab