Accuracy in summary (PR#7121)

Full_Name: Sanford Weisberg
Version: 1.9.1
OS: Win XP
Submission from: (NULL) (160.94.148.2)

wm <- read.table(url("http://www.stat.umn.edu/~sandy/wmdata0.txt"),

header=TRUE)

mean(wm$Spd1)

[1] 7.7773

summary(wm$Spd1)

Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
  0.222   4.780   7.550   7.780  10.200  21.600 

The mean of this variable DOES NOT ROUND to the value shown in the summary
output.

options(digits=6)
mean(wm$Spd1)

[1] 7.77733

summary(wm$Spd1)

Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
  0.222   4.780   7.550   7.780  10.200  21.600

This is still wrong.  Also, the minimum value is 0.2221, which should have been
printed in full given digits=6.