# NOT RUN {
# }
# NOT RUN {
library(oce)
beam <- read.oce("/data/archive/sleiwex/2008/moorings/m09/adp/rdi_2615/raw/adp_rdi_2615.000",
from=as.POSIXct("2008-06-26", tz="UTC"),
to=as.POSIXct("2008-06-26 00:10:00", tz="UTC"),
longitude=-69.73433, latitude=47.88126)
beam2 <- binmapAdp(beam)
plot(enuToOther(toEnu(beam), heading=-31.5))
plot(enuToOther(toEnu(beam2), heading=-31.5))
plot(beam, which=5:8) # backscatter amplitude
plot(beam2, which=5:8)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab