# NOT RUN {
library(ggplot2)
data("county_points")
data("floyd_tracks")
grid_winds_floyd <- get_grid_winds(hurr_track = floyd_tracks,
grid_df = county_points)
floyd_map <- map_wind(grid_winds_floyd, value = "vmax_sust",
wind_metric = "knots") +
ggtitle("Maximum sustained wind speeds")
add_storm_track(floyd_tracks, plot_object = floyd_map)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab