# NOT RUN {
{
# For Coelho et al. (2015):
input <- system.file("extdata",
"uwnd.mon.mean_200hPa_2014JFM.nc",
package = "raytracing")
b <- betaks(u = input)
rt <- ray(betam = b$betam,
u = b$u,
lat = b$lat,
K = 3,
itime = 10 * 4,
x0 = -130,
y0 = -30,
dt = 6,
direction = -1,
cx = 0,
interpolation = "trin")
rp <- ray_path(rt$lon, rt$lat)
plot(rp,
main = "Coelho et al. (2015): JFM/2014",
axes = TRUE,
cex = 2,
graticule = TRUE)
}
# }
Run the code above in your browser using DataLab