# NOT RUN {
data(wind.data)
# Create a vector with wind direction (angles) adapted
alpha <- arrowDir(wind.data)
# }
# NOT RUN {
# Now, you can plot wind direction with Arrowhead function from shapes package
# Load "shape package
require(shape)
plot(wind.data$lon, wind.data$lat, type = "n")
Arrowhead(wind.data$lon, wind.data$lat,
angle = alpha,
arr.length = 0.1, arr.type = "curved"
)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab