# NOT RUN {
## Exemplary Input Wind speed and direction data frame
# Uniform wind speed and single wind direction
data.in <- data.frame(ws = 12, wd = 0)
windrosePlot <- plot_windrose(data = data.in, spd = data.in$ws,
dir = data.in$wd)
# Random wind speeds and random wind directions
data.in <- data.frame(ws = sample(1:25, 10),
wd = sample(1:260, 10))
windrosePlot <- plot_windrose(data = data.in, spd = data.in$ws,
dir = data.in$wd)
# }
Run the code above in your browser using DataLab