WindRsoe fenfesm tzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzCode.docx

wind rose code inR

1. ws=bro$`Wind Speed (km/h)`
wd=bro$`Wind Dir (Deg)`
dhruti=data.frame(ws,wd)
dhruti
windRose(dhruti, ws="ws", wd="wd")
ws=first$`Wind Speed (km/h)`
wd=first$`Wind Dir (Deg)`
dhruti=data.frame(ws,wd)
dhruti
windRose(dhruti, ws="ws", wd="wd")
windRose(Winddata, ws="ws", wd="wd", col=c("red", "blue", "green", "orange"), width=1,
key.position="right", paddle=FALSE, annotate=FALSE)