Create windrose.R