# NOT RUN {
library(dplyr)
data(county_points)
data("floyd_tracks")
full_track <- create_full_track(hurr_track = floyd_tracks, tint = 0.25)
with_wind_radii <- add_wind_radii(full_track = full_track)
grid_point <- county_points %>% filter(gridid == "37055")
grid_wind_summary <- calc_and_summarize_grid_wind(grid_point = grid_point,
with_wind_radii = with_wind_radii, gust_duration_cut = 15,
sust_duration_cut = 15)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab