From ehlers at math.ucalgary.ca  Thu Oct 27 12:32:18 2005
From: ehlers at math.ucalgary.ca (ehlers@math.ucalgary.ca)
Date: Thu, 27 Oct 2005 12:32:18 +0200 (CEST)
Subject: [Rd] PR#8229
Message-ID: <20051027103218.5BA6E23776@slim.kubism.ku.dk>


platform i386-pc-mingw32
arch     i386
os       mingw32
system   i386, mingw32
status   Patched
major    2
minor    2.0
year     2005
month    10
day      24
svn rev  36016
language R


Re: plot.TukeyHSD

Thanks for the recent quick fix. Another small fix is needed.
I should have tested more thoroughly.

Replace:

xi <- x[[i]][, -4]

with:

xi <- x[[i]][, -4, drop = FALSE]

in order to keep nrow() functioning properly in

yvals <- nrow(xi):1

when xi has only one row as in the helpfile example with

plot(TukeyHSD(fm1, "wool"))


Peter Ehlers
U of Calgary



[Rd] PR#8229
ehlers@math.ucalgary.ca