[Rd] windrose (circular package) error in table (PR#8341)

[Allyson.Williams@dpi.qld.gov.au]

Full_Name: Allyson Williams
Version: 2.1.1
OS: Windows XP
Submission from: (NULL) (203.25.1.208)


I'm using the 'Circular' package to plot windroses. I think the output table
(see out2$table below) is incorrect when using different rotations. More
precisely, when a rotation is used for the plot, the output table stuffs up.

This example is from the code in the help notes, although the input data (dir,
mag) are changed):

> dir <- c(1:50,1:50)
> mag <-  c(1:100)
> 
> sample <- data.frame(dir=circular(dir,units="degrees"), mag=mag)
> 
> par(mfrow=c(2,2))
> res <- windrose(sample)
> 
> ## we join two pedals and keep the same shrink (scale of the plot)
> breaks <- seq(0, 2 * pi, by = pi/6)
> breaks <- breaks[-2]
> out1<-windrose(sample, breaks=breaks, increment=50,main="The same but with two
pedals joined", shrink=res$shrink)
> #
> # change the rotation
> sample <- data.frame(dir=circular(dir, units="degrees", rotation="clock"),
mag=mag)
> out2<-windrose(sample, breaks=breaks,increment=50, main="Change the rotation",
shrink=res$shrink)
> 
> ## use geographics template
> sample <- data.frame(dir=circular(dir, units="degrees",
template="geographics"), mag=mag)
> out3<-windrose(sample, breaks=breaks, increment=50,main="Use the template
'geographics'", shrink=res$shrink)
> 

THESE are the output tables that seem to be incorrect (I'm sorry they're not
clearer):
> out1$table
               [0, 60) [60, 90) [90, 120) [120, 150) [150, 180) [180, 210) [210,
240) [240, 270) [270, 300) [300, 330) [330, 360)
>From 0 to 50       0.5        0         0          0          0          0      
   0          0          0          0          0
>From 50 to 100     0.5        0         0          0          0          0      
   0          0          0          0          0
> out2$table
               [0, 60) [60, 90) [90, 120) [120, 150) [150, 180) [180, 210) [210,
240) [240, 270) [270, 300) [300, 330) [330, 360)
>From 0 to 50         0        0         0          0          0          0      
   0          0          0          0        0.5
>From 50 to 100       0        0         0          0          0          0      
   0          0          0          0        0.5
> out3$table
               [0, 60) [60, 90) [90, 120) [120, 150) [150, 180) [180, 210) [210,
240) [240, 270) [270, 300) [300, 330) [330, 360)
>From 0 to 50         0      0.5         0          0          0          0      
   0          0          0          0          0
>From 50 to 100       0      0.5         0          0          0          0      
   0          0          0          0          0
> 


out1$table is correct. The data is all between 0-60degrees.
out2$table (changed rotation) is incorrect. The data are listed as being between
330-360degrees. 
Out3$table (geographic rotation) is incorrect. The data are listed as being
between 60-90degrees. 
Regardless of the rotation, the data should always be between 0-60degrees!

The problem only seems to occur when 'rotating' the plot.